summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Debootstrap.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-13 13:35:12 -0400
committerJoey Hess2015-09-13 13:35:12 -0400
commitf256b24aa87409a599b388f0a7848aa9abecaa7f (patch)
tree09602392b0d9b020378a5dd18f0e85958c3b74ba /src/Propellor/Property/Debootstrap.hs
parentb84c9bbb7c9db688118ad756c1c43ef034fd98fb (diff)
avoid brackets
Diffstat (limited to 'src/Propellor/Property/Debootstrap.hs')
-rw-r--r--src/Propellor/Property/Debootstrap.hs4
1 files changed, 2 insertions, 2 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