diff options
author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-04 18:53:47 +0200 |
---|---|---|
committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:26 +0200 |
commit | 9048548dc9dbdf129b16e4c9ac22ca1343261378 (patch) | |
tree | 40f8f9d54dd6efe3d7111b32d67feb6bd0b7587a | |
parent | 18333ed77a6134c01c000d82efd5e05a8d502428 (diff) |
Improve code style to match popular guidelines.
-rwxr-xr-x | html-test/run.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/html-test/run.hs b/html-test/run.hs index 039ff676..d1a134f8 100755 --- a/html-test/run.hs +++ b/html-test/run.hs @@ -146,13 +146,13 @@ checkModule :: String -> IO CheckResult checkModule mdl = do hasRef <- doesFileExist $ refFile mdl if hasRef - then do - out <- readFile $ outFile mdl - ref <- readFile $ refFile mdl - return $ if haddockEq (outFile mdl, out) (refFile mdl, ref) - then Pass - else Fail - else return NoRef + then do + out <- readFile $ outFile mdl + ref <- readFile $ refFile mdl + return $ if haddockEq (outFile mdl, out) (refFile mdl, ref) + then Pass + else Fail + else return NoRef diffModule :: String -> IO () |