threads: print to stdout

outputs/threads.txt

@@ -1 +1,10 @@
+main: 1
+main: 2
+main: 3
+...
+...
+...
+...
+...
+...
 done

threads.hs

@@ -6,15 +6,15 @@ import System.IO
 
 main =
   do
-    hSetBuffering stderr LineBuffering
+    hSetBuffering stdout LineBuffering
 
     tasksCompleted <- atomically (newTVar 0)
 
     let
         task x =
           do
             for_ [1..3] $ \i ->
-                hPutStrLn stderr (x ++ ": " ++ show i)
+                putStrLn (x ++ ": " ++ show i)
             atomically $
                 modifyTVar' tasksCompleted (+ 1)
 

tools/outputs.nix

@@ -26,7 +26,7 @@ in
     (run "hashing.txt" ../hashing.hs)
     (run "hello-world.txt" ../hello-world.hs)
     (run "mutable-references.txt" ../mutable-references.hs)
-    (run "threads.txt" ../threads.hs)
+    (run' "threads.txt" ../threads.hs { sed = ["s!^fork.*$!...!"]; })
     (run "timeouts.txt" ../timeouts.hs)
     (run' "transactions.txt" ../transactions.hs { sed = ["s!\\[.*\\]!...!"]; })
     (run "variables.txt" ../variables.hs)