fix, much cleanup and doc

Author: chris-martin

cabal.project

@@ -1 +1 @@
-packages: unfork
+packages: unfork, unfork-demo

unfork-demo/Demo.hs

@@ -0,0 +1,19 @@
+module Demo where
+
+import Prelude (IO, String, putStr, show, (*>), (<>))
+import Control.Concurrent (threadDelay)
+import Control.Concurrent.Async (concurrently_)
+import Data.Foldable (for_)
+import Numeric.Natural (Natural)
+
+putStrLnSlow :: String -> IO ()
+putStrLnSlow = r
+  where
+    r [] = putStr "\n"
+    r (x : xs) = putStr [x] *> threadDelay 10 *> r xs
+
+logFromTwoThreads :: (String -> IO ()) -> IO ()
+logFromTwoThreads log =
+    concurrently_
+        (for_ [1 .. 9 :: Natural] (\i -> log ("A " <> show i <> "\tone two three four") *> threadDelay 50))
+        (for_ [1 .. 9 :: Natural] (\i -> log ("B " <> show i <> "\tfive six seven eight") *> threadDelay 200))

unfork-demo/logging/interleaved/Main.hs

@@ -0,0 +1,9 @@
+module Main (main) where
+
+import Demo
+import System.IO
+
+main :: IO ()
+main = do
+    hSetBuffering stdout NoBuffering
+    logFromTwoThreads putStrLnSlow

unfork-demo/logging/unforked/Main.hs

@@ -0,0 +1,10 @@
+module Main (main) where
+
+import Demo
+import System.IO
+import Unfork
+
+main :: IO ()
+main = do
+    hSetBuffering stdout NoBuffering
+    unforkAsyncIO_ putStrLnSlow logFromTwoThreads

unfork-demo/unfork-demo.cabal

@@ -0,0 +1,25 @@
+cabal-version: 3.0
+
+name: unfork-demo
+version: 0
+
+common base
+    default-language: Haskell2010
+    ghc-options: -Wall
+    build-depends: async, base, unfork
+
+library
+    import: base
+    exposed-modules: Demo
+
+executable demo-logging-interleaved
+    import: base
+    build-depends: unfork-demo
+    hs-source-dirs: logging/interleaved
+    main-is: Main.hs
+
+executable demo-logging-unforked
+    import: base
+    build-depends: unfork-demo
+    hs-source-dirs: logging/unforked
+    main-is: Main.hs