summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Sbuild.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index 0f4ebf25..f76aba3c 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -53,7 +53,10 @@ schrootChrootD = "/etc/schroot/chroot.d"
-- | Build and configure a schroot for use with sbuild
built :: System -> Property DebianLike
built system@(System distro arch) =
- property' ("built chroot for " ++ show system) $ liftIO $ do
+ property' ("built chroot for " ++ show system) (liftIO go)
+ `requires` keypairGenerated
+ where
+ go = do
suite <- case extractSuite system of
Just s -> return s
Nothing -> errorMessage $