diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 5 |
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 $ |