@@ -72,8 +72,8 @@ hGetLineLoop hh@Handle__{..} ts buf@Buffer{ bufL=r0, bufR=w, bufRaw=raw0 } = do
72 let pre | isEmptyBuffer buf1 = T.empty
72 let pre | isEmptyBuffer buf1 = T.empty
73 | otherwise = T.singleton '\r'
73 | otherwise = T.singleton '\r'
74 writeIORef haCharBuffer buf1{ bufL=0, bufR=0 }
74 writeIORef haCharBuffer buf1{ bufL=0, bufR=0 }
75− let str = reverse $ pre:t:ts
75+ let str = reverse . filter (not . T.null) $ pre:t:ts
76− if all T.null str
76+ if null str
77 then ioe_EOF
77 then ioe_EOF
78 else return str
78 else return str
79 Just new_buf -> hGetLineLoop hh (t:ts) new_buf
79 Just new_buf -> hGetLineLoop hh (t:ts) new_buf