@@ -145,9 +145,8 @@ commonPrefix (x:xs) (y:ys)
146-- | Trim up to one newline from the beginning of the string.
146-- | Trim up to one newline from the beginning of the string.
147lchop :: String -> String
147lchop :: String -> String
148−lchop s = case s of
148+lchop ('\n':xs) = xs
149− '\n':ss -> ss
149+lchop s = s
152-- | Trim up to one newline from the end of the string.
151-- | Trim up to one newline from the end of the string.
153rchop :: String -> String
152rchop :: String -> String