summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2016-05-21 09:48:44 +0900
committerSean Whitton2016-05-21 09:48:44 +0900
commit71f54f79a044e5231d06c2b2d92ba579922d4f79 (patch)
tree55b39d17a7a2f717f180cd002b1c464a7f7a7095 /src/Propellor/Property/Sbuild.hs
parentbc26ebc31bcb286a9e5991f65e0be49e0e7facf6 (diff)
line length
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