Fix enumeratee bug
commit744139f31cb7d774cad7165299cb6f4a17807172
authorMichael Snoyman <michael@snoyman.com>
dateWed 25 May 2011, 12:36 (15 years ago)
parentc3fe9c3
Network/Wai/Handler/Launch.hs+1−1
@@ -75,7 +75,7 @@ insideHead toInsert =
7575 case step of
7676 Continue k -> do
7777 step' <- lift $ runIteratee $ k stream
78− return step'
78+ EL.map id step'
7979 Yield b s -> return $ Yield b s
8080 Error e -> return $ Error e
8181