bufferIteratee: fix boneheaded unnecessary type conversion

snapframework · May 30, 2010 · 28689f3 · 28689f3
1 parent 2e31154
commit 28689f3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Snap/Iteratee.hs b/src/Snap/Iteratee.hs
@@ -145,7 +145,7 @@ bufferIteratee = return . go (D.empty,0)
       where
         big = toWrap $ L.fromChunks [S.concat $ D.toList dl]
 
-    f (!dl,!n) iter (Chunk ws) =
+    f (!dl,!n) iter (Chunk (WrapBS s)) =
         if n' > blocksize
            then do
                iterv <- runIter iter (Chunk big)
@@ -155,7 +155,6 @@ bufferIteratee = return . go (D.empty,0)
                   Cont i Nothing  -> return $ Cont (go (D.empty,0) i) Nothing
            else return $ Cont (go (dl',n') iter) Nothing
       where
-        s   = S.concat $ L.toChunks $ fromWrap ws
         m   = S.length s
         n'  = n+m
         dl' = D.snoc dl s