From 1ea376cf10807778e693a2109154f143fc0f8d1d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 21 Jul 2015 11:17:00 -0400 Subject: fix layout to meet style --- src/Propellor/Property.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property.hs') 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 -- cgit v1.2.3