hell-http.hs demo

hell-http.hs

#!/usr/bin/env hell

-- How to run this:
--
-- socat TCP-LISTEN:8081,fork,reuseaddr,max-children=20 EXEC:"./handler.hell"

main = do
 line <- Text.getLine
 let content =
      Text.concat ["<h1>Hello, World!</h1><p>This is generated by Hell.</p><pre>", line, "</pre>"]
 Text.putStrLn $
  Text.intercalate
    "\r\n"
    [
      "HTTP/1.1 200 OK",
      "Content-Type: text/html",
      Text.concat ["Content-Length: ", Int.show (Text.length content)],
      "",
      content
   ]