@@ -29,12 +29,6 @@ safeRead d s = case reads s of
29cgiToApp :: CGI CGIResult -> Application
29cgiToApp :: CGI CGIResult -> Application
30cgiToApp = cgiToAppGeneric id
30cgiToApp = cgiToAppGeneric id
32−unbufferSource :: Monad m => BufferedSource m a -> Source m a
33−unbufferSource bsrc = Source $ return $ PreparedSource
34− { sourcePull = bsourcePull bsrc
35− , sourceClose = bsourceClose bsrc
38cgiToAppGeneric :: Monad m
32cgiToAppGeneric :: Monad m
39 => (m (Headers, CGIResult) -> IO (Headers, CGIResult))
33 => (m (Headers, CGIResult) -> IO (Headers, CGIResult))
40 -> CGIT m CGIResult
34 -> CGIT m CGIResult