diff options
| -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 () |