diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-07-21 11:17:00 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-21 11:17:00 -0400 |
| commit | 1ea376cf10807778e693a2109154f143fc0f8d1d (patch) | |
| tree | 0dd7591e80a305f588bc0000cd03a1d152c22889 /src | |
| parent | e4ecda210bd56cc0e233c3b635ac551d6ddce543 (diff) | |
fix layout to meet style
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property.hs | 4 |
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 |