warp/file-nolen.hs · typeable/wai

git.iko.soy/typeable/wai

on wai-frontend-monadcgi/1.3.0 help sign in

typeable/wai/warp/file-nolen.hs

6 lines 223 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")] "test.txt" Nothing