add debugging

This commit is contained in:
Joey Hess 2012-07-17 14:40:05 -04:00
parent 1d5582091e
commit 182526ff68
8 changed files with 25 additions and 22 deletions

View file

@ -33,7 +33,7 @@ separate c l = unbreak $ break c l
| otherwise = (a, tail b)
{- Breaks out the first line. -}
firstLine :: String-> String
firstLine :: String -> String
firstLine = takeWhile (/= '\n')
{- Splits a list into segments that are delimited by items matching