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


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


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


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