1 files changed, 2 insertions, 0 deletions
diff --git a/html-test/run.hs b/html-test/run.hs
index afd60a13..4103ad04 100755
--- a/html-test/run.hs
+++ b/html-test/run.hs
@@ -180,8 +180,10 @@ diffModule diff mdl = do
     writeFile refFile' $ Xml.ppElement refXml'
 
     putStrLn $ "Diff for module " ++ show mdl ++ ":"
+    hFlush stdout
     handle <- runProcess' diff $ processConfig
         { pcArgs = [outFile', refFile']
+        , pcStdOut = Just $ stdout
         }
     waitForProcess handle >> return ()
   where