summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2015-07-21 11:17:00 -0400
committerJoey Hess2015-07-21 11:17:00 -0400
commit1ea376cf10807778e693a2109154f143fc0f8d1d (patch)
tree0dd7591e80a305f588bc0000cd03a1d152c22889 /src
parente4ecda210bd56cc0e233c3b635ac551d6ddce543 (diff)
fix layout to meet style
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs
index 339cb303..0fa8f17e 100644
--- a/src/Propellor/Property.hs
+++ b/src/Propellor/Property.hs
@@ -76,7 +76,8 @@ onChangeFlagOnFail flagfile p1 p2 =
MadeChange -> flagFailed s2
_ -> ifM (liftIO $ doesFileExist flagfile)
(flagFailed s2
- , return r1)
+ , return r1
+ )
flagFailed s = do
r <- s
liftIO $ case r of
@@ -88,7 +89,6 @@ onChangeFlagOnFail flagfile p1 p2 =
writeFile flagfile ""
removeFlagFile = whenM (doesFileExist flagfile) $ removeFile flagfile
-
-- | Alias for @flip describe@
(==>) :: IsProp (Property i) => Desc -> Property i -> Property i
(==>) = flip describe