From 30d8ed1558e19d08e18d617633cf0f7878a74078 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 16 May 2016 15:06:37 -0700 Subject: Sbuild.built requires key pair generated --- src/Propellor/Property/Sbuild.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') 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 $ -- cgit v1.3-2-g0d8e