bernsteinbear.com
this repo has no description
1| "/" -> (status 200 <| page "you're on the index")
2| "/about" -> (status 200 <| page "you're on the about page")
3| _ -> notfound
4
5. notfound = (status 404 <| page "not found")
6. status = code -> body -> { code = code, body = body }
7. page = body -> "<!doctype html><html><body>" ++ body ++ "</body></html>"
8