cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix layout to meet style

This commit is contained in:
Joey Hess 2015-07-21 11:17:00 -04:00
parent e4ecda210b
commit 1ea376cf10
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Property.hs
View File

@ -76,7 +76,8 @@ onChangeFlagOnFail flagfile p1 p2 =
MadeChange -> flagFailed s2 MadeChange -> flagFailed s2
_ -> ifM (liftIO $ doesFileExist flagfile) _ -> ifM (liftIO $ doesFileExist flagfile)
(flagFailed s2 (flagFailed s2
, return r1) , return r1
)
flagFailed s = do flagFailed s = do
r <- s r <- s
liftIO $ case r of liftIO $ case r of
@ -88,7 +89,6 @@ onChangeFlagOnFail flagfile p1 p2 =
writeFile flagfile "" writeFile flagfile ""
removeFlagFile = whenM (doesFileExist flagfile) $ removeFile flagfile removeFlagFile = whenM (doesFileExist flagfile) $ removeFile flagfile
-- | Alias for @flip describe@ -- | Alias for @flip describe@
(==>) :: IsProp (Property i) => Desc -> Property i -> Property i (==>) :: IsProp (Property i) => Desc -> Property i -> Property i
(==>) = flip describe (==>) = flip describe