summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton2016-05-16 15:06:37 -0700
committerSean Whitton2016-05-16 15:06:37 -0700
commit30d8ed1558e19d08e18d617633cf0f7878a74078 (patch)
tree92ed37ce0668dd0fe450ebf3ee2e51353cfa339c
parent3f2854885a1f7618b6e697fa461d9e31eec1697f (diff)
Sbuild.built requires key pair generated
-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 $