summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-09-13 13:35:12 -0400
committerJoey Hess2015-09-13 13:35:12 -0400
commitf256b24aa87409a599b388f0a7848aa9abecaa7f (patch)
tree09602392b0d9b020378a5dd18f0e85958c3b74ba
parentb84c9bbb7c9db688118ad756c1c43ef034fd98fb (diff)
avoid brackets
-rw-r--r--src/Propellor/Property/Debootstrap.hs4
-rw-r--r--src/Propellor/Property/Docker.hs4
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs
index 74da68b4..2551d679 100644
--- a/src/Propellor/Property/Debootstrap.hs
+++ b/src/Propellor/Property/Debootstrap.hs
@@ -158,10 +158,10 @@ sourceInstall' = withTmpDir "debootstrap" $ \tmpd -> do
let indexfile = tmpd </> "index.html"
unlessM (download baseurl indexfile) $
errorMessage $ "Failed to download " ++ baseurl
- urls <- (sortBy (flip compare) -- highest version first
+ urls <- sortBy (flip compare) -- highest version first
. filter ("debootstrap_" `isInfixOf`)
. filter (".tar." `isInfixOf`)
- . extractUrls baseurl) <$>
+ . extractUrls baseurl <$>
readFileStrictAnyEncoding indexfile
nukeFile indexfile
diff --git a/src/Propellor/Property/Docker.hs b/src/Propellor/Property/Docker.hs
index fc12cf8c..8c70b714 100644
--- a/src/Propellor/Property/Docker.hs
+++ b/src/Propellor/Property/Docker.hs
@@ -630,8 +630,8 @@ data ContainerFilter = RunningContainers | AllContainers
-- | Only lists propellor managed containers.
listContainers :: ContainerFilter -> IO [ContainerId]
listContainers status =
- (mapMaybe toContainerId . concatMap (split ",")
- . mapMaybe (lastMaybe . words) . lines)
+ mapMaybe toContainerId . concatMap (split ",")
+ . mapMaybe (lastMaybe . words) . lines
<$> readProcess dockercmd ps
where
ps