Explain/document a few functions

This commit is contained in:
Joscha 2017-12-01 05:59:03 +00:00
parent 3fa8b3be2b
commit 7672bd5919
2 changed files with 30 additions and 8 deletions

View file

@ -10,6 +10,7 @@ instance Show StrSymbol where
instance Eq StrSymbol where
(StrSymbol a) == (StrSymbol b) = a == b
-- process a string line by line instead of all at once
linewise :: (String -> String) -> String -> String
linewise f = unlines . map f . lines