Make it possible to run tests without generating diff.

1 files changed, 6 insertions, 1 deletions

diff --git a/html-test/run.hs b/html-test/run.hs
index 4103ad04..f57d547a 100755
--- a/html-test/run.hs
+++ b/html-test/run.hs
@@ -152,7 +152,9 @@ loadConfig flags files = do
 
     let cfgHaddockStdOut = fromMaybe "/dev/null" (flagsHaddockStdOut flags)
 
-    cfgDiffTool <- (<|>) <$> pure (flagsDiffTool flags) <*> defaultDiffTool
+    cfgDiffTool <- if FlagNoDiff `elem` flags
+        then pure Nothing
+        else (<|>) <$> pure (flagsDiffTool flags) <*> defaultDiffTool
 
     return $ Config { .. }
 
@@ -302,6 +304,7 @@ data Flag
     | FlagHaddockOptions String
     | FlagHaddockStdOut FilePath
     | FlagDiffTool FilePath
+    | FlagNoDiff
     | FlagHelp
     deriving Eq
 
@@ -318,6 +321,8 @@ options =
         "where to redirect Haddock output"
     , Option [] ["diff-tool"] (ReqArg FlagDiffTool "PATH")
         "diff tool to use when printing failed cases"
+    , Option [] ["no-diff"] (NoArg FlagNoDiff)
+        "do not print diff for failed cases"
     , Option ['h'] ["help"] (NoArg FlagHelp)
         "display this help end exit"
     ]