diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-21 09:48:44 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-21 09:48:44 +0900 |
| commit | 71f54f79a044e5231d06c2b2d92ba579922d4f79 (patch) | |
| tree | 55b39d17a7a2f717f180cd002b1c464a7f7a7095 /src | |
| parent | bc26ebc31bcb286a9e5991f65e0be49e0e7facf6 (diff) | |
line length
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 6 |
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 |