Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: edfa0acc84
Fetching contributors…

Cannot retrieve contributors at this time

10 lines (8 sloc) 0.354 kb
import Network.Wai
import Data.Enumerator.List (consume)
import Blaze.ByteString.Builder (toByteString)
import Data.Monoid (mconcat)
import Data.ByteString.Char8 (pack)
main = do
b <- responseEnumerator (ResponseFile undefined undefined "test.hs" (Just $ FilePart 7 7)) (const $ const consume)
print $ toByteString (mconcat b) == pack "Network"
Jump to Line
Something went wrong with that request. Please try again.