| CARVIEW |
Select Language
HTTP/2 200
server: nginx
date: Sat, 17 Jan 2026 01:06:42 GMT
content-type: application/octet-stream
content-length: 306
last-modified: Mon, 11 Jan 2021 21:17:27 GMT
module Main where
import Control.Monad (msum)
import Happstack.Server ( Method(GET, HEAD), dir, methodM
, nullConf, ok, simpleHTTP
)
main :: IO ()
main = simpleHTTP nullConf $ msum
[ do methodM [GET, HEAD]
ok $ "Hello, World\n"
]