git.iko.soy/typeable/wai
on fbe2de8 help sign in
typeable/wai/test.hs
9 lines 354 B history raw
1import Network.Wai
2import Data.Enumerator.List (consume)
3import Blaze.ByteString.Builder (toByteString)
4import Data.Monoid (mconcat)
5import Data.ByteString.Char8 (pack)
7main = do
8 b <- responseEnumerator (ResponseFile undefined undefined "test.hs" (Just $ FilePart 7 7)) (const $ const consume)
9 print $ toByteString (mconcat b) == pack "Network"