summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-rw-r--r--src/Propellor/Property/Sbuild.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index 1d18a6de..bc9511e8 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -123,7 +123,8 @@ built s@(SbuildSchroot suite arch) mirror =
, schrootRoot s
, mirror
]
- ifM (liftIO $ boolSystemEnv "sbuild-createchroot" params (Just de))
+ ifM (liftIO $
+ boolSystemEnv "sbuild-createchroot" params (Just de))
( ensureProperty w $
fixConfFile s
`before` aliasesLine
@@ -162,7 +163,8 @@ updatedFor :: System -> Property DebianLike
updatedFor system = property' ("updated sbuild schroot for " ++ show system) $
\w -> case schrootFromSystem system of
Just s -> ensureProperty w $ updated s
- Nothing -> errorMessage ("don't know how to debootstrap " ++ show system)
+ Nothing -> errorMessage
+ ("don't know how to debootstrap " ++ show system)
-- | Ensure that an sbuild schroot's packages and apt indexes are updated
updated :: SbuildSchroot -> Property DebianLike