@@ -383,7 +383,7 @@ wrapTillBound bound src = do
383383 NoBound -> do
384384 -- don't emit newlines, in case it's part of a bound
385385 let (toEmit, front') =
386− if not (S8.null bs) && S8.last bs `elem` "\r\n"
386+ if not (S8.null bs) && S8.last bs `elem` ['\r','\n']
387387 then let (x, y) = S.splitAt (S.length bs - 2) bs
388388 in (x, S.append y)
389389 else (bs, id)