@@ -29,12 +29,6 @@ safeRead d s = case reads s of
2929cgiToApp :: CGI CGIResult -> Application
3030cgiToApp = cgiToAppGeneric id
3131
32−unbufferSource :: Monad m => BufferedSource m a -> Source m a
33−unbufferSource bsrc = Source $ return $ PreparedSource
34− { sourcePull = bsourcePull bsrc
35− , sourceClose = bsourceClose bsrc
36− }
37−
3832cgiToAppGeneric :: Monad m
3933 => (m (Headers, CGIResult) -> IO (Headers, CGIResult))
4034 -> CGIT m CGIResult