git.iko.soy/typeable/wai
on master help sign in
Added static file test
e86fffaMichael Snoyman
file.hsnew file+5
compare with master
unifiedsplit
@@ -0,0 +1,5 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+import Network.Wai
3+import Network.Wai.Handler.Warp
4+
5+main = run 3000 $ const $ return $ ResponseFile status200 [("Content-Type", "text/plain"), ("Content-Length", "16")] "test.txt"
test.txtnew file+1
@@ -0,0 +1 @@
1+This is a test.