@@ -248,6 +248,7 @@ drop n m = fromStream $ go n (toStream m)
248 go n1 m1 = Stream $ \ctx stp yld ->
248 go n1 m1 = Stream $ \ctx stp yld ->
249 let yield _ Nothing = stp
249 let yield _ Nothing = stp
250 yield _ (Just x) = (runStream $ go (n1 - 1) x) ctx stp yld
250 yield _ (Just x) = (runStream $ go (n1 - 1) x) ctx stp yld
251+ -- Somehow "<=" check performs better than a ">"
251 in if n1 <= 0
252 in if n1 <= 0
252 then (runStream m1) ctx stp yld
253 then (runStream m1) ctx stp yld
253 else (runStream m1) ctx stp yield
254 else (runStream m1) ctx stp yield