cleanup
This commit is contained in:
parent
acd7a52dfd
commit
2332afb4bc
2 changed files with 17 additions and 15 deletions
|
@ -40,6 +40,10 @@ separate c l = unbreak $ break c l
|
|||
| null b = r
|
||||
| otherwise = (a, tail b)
|
||||
|
||||
{- Breaks out the first line. -}
|
||||
firstLine :: String-> String
|
||||
firstLine = takeWhile (/= '\n')
|
||||
|
||||
{- Catches IO errors and returns a Bool -}
|
||||
catchBoolIO :: IO Bool -> IO Bool
|
||||
catchBoolIO a = catchDefaultIO a False
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue