warp/file.hs · typeable/wai

git.iko.soy/typeable/wai

on wai-websockets/1.2.0.3 help sign in

6 lines 249 B history raw

1{-# LANGUAGE OverloadedStrings #-}

2import Network.Wai

3import Network.Wai.Handler.Warp

4import Network.HTTP.Types

6main = run 3000 $ const $ return $ ResponseFile status200 [("Content-Type", "text/plain"), ("Content-Length", "16")] "test.txt" Nothing