------------------------------------------------------------------------------
noContentType :: L.ByteString -> Snap ()
noContentType body = modifyResponse $ setResponseBody e
  where
    e s = do
        Streams.writeList (map byteString $ L.toChunks body) s
        return s

------------------------------------------------------------------------------
noContentType :: L.ByteString -> Snap ()
noContentType body = modifyResponse $ setResponseBody e
  where
    e s = do
        Streams.writeList (map byteString $ L.toChunks body) s
        return s

------------------------------------------------------------------------------
noContentType body = modifyResponse $ setResponseBody e
  where
    e s = do
        Streams.writeList (map byteString $ L.toChunks body) s
        return s

------------------------------------------------------------------------------