'lines' produces an extra empty line

[UnkindPartition]

% cat streaming-bug.hs 
import Streaming as S
import qualified Streaming.Prelude as S
import qualified Data.ByteString.Streaming.Char8 as SBS

main = do
  writeFile "test.txt" $ unlines ["a"]
  runResourceT $ streamFold
    (const $ return ())
    join
    (join . SBS.putStrLn)
    (SBS.lines $ SBS.readFile "test.txt")

% stack runghc --resolver=lts-7.0 --package streaming-0.1.4.3 --package streaming-bytestring-0.1.4.4 streaming-bug.hs | cat -n
     1  a
     2  

[michaelt]

Thanks very much!