Streamline avoids blocking when receiving 0 bytes

src/System/IO/Uniform/Streamline.hs

@@ -284,10 +284,11 @@ recieveN n = LBS.toStrict <$> recieveN' n
 
 -- | Lazy version of recieveN
 recieveN' :: MonadIO m => Int -> Streamline m LBS.ByteString
-recieveN' n = Streamline $ \cl ->
-  do
-    (tt, cl') <- recieve cl n
-    return (LBS.fromChunks tt, cl')
+recieveN' n | n <= 0 = return ""
+            | otherwise = Streamline $ \cl ->
+            do
+              (tt, cl') <- recieve cl n
+              return (LBS.fromChunks tt, cl')
   where
     recieve d b
       | isEOF d = eofError "System.IO.Uniform.Streamline.lazyRecieveN"