diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-16 15:06:37 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-16 15:06:37 -0700 |
| commit | 30d8ed1558e19d08e18d617633cf0f7878a74078 (patch) | |
| tree | 92ed37ce0668dd0fe450ebf3ee2e51353cfa339c /src | |
| parent | 3f2854885a1f7618b6e697fa461d9e31eec1697f (diff) | |
Sbuild.built requires key pair generated
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 $ |