Merge pull request joewalnes#114 from FranklinChen/haskell

More work on Haskell examples

examples/haskell/README.md

@@ -9,3 +9,11 @@ $ websocketd --port=8080 --devconsole --passenv PATH ./count.hs
 ```
 
 The passing of `PATH` was required for me because a typical Haskell installation of `runhaskell` does not go into `/usr/bin` but more like `/usr/local/bin`.
+
+### Greeter
+
+The greeter server waits for a line of text to be sent, then sends back a greeting in response, and continues to wait for more lines to come.
+
+```
+$ websocketd --port=8080 --devconsole --passenv PATH ./greeter.hs
+```

examples/haskell/count.hs

@@ -2,9 +2,11 @@
 
 import Control.Monad (forM_)
 import Control.Concurrent (threadDelay)
+import System.IO (hFlush, stdout)
 
 -- | Count from 1 to 10 with a sleep
 main :: IO ()
 main = forM_ [1 :: Int .. 10] $ \count -> do
   print count
+  hFlush stdout
   threadDelay 500000

examples/haskell/greeter.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env runhaskell
+
+import Control.Monad (unless)
+import System.IO (hFlush, stdout, stdin, hIsEOF)
+
+-- | For each line FOO received on STDIN, respond with "Hello FOO!".
+main :: IO ()
+main = do
+  eof <- hIsEOF stdin
+  unless eof $ do
+    line <- getLine
+    putStrLn $ "Hello " ++ line ++ "!"
+    hFlush stdout
+    main