Garmelon/lambda
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some whitespace

Browse source
This commit is contained in:
Joscha 2017-11-25 22:59:52 +00:00
parent 91fd370380
commit 3fa8b3be2b
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Lambda.hs
View file

@ -115,7 +115,10 @@ chainl1' :: ReadP a -> ReadP (a -> a -> a) -> ReadP a
chainl1' p f = foldl1 <$> f <*> many1' p chainl1' p f = foldl1 <$> f <*> many1' p
parens :: [(Char, Char)] parens :: [(Char, Char)]
parens = [('(',')'),('[',']'),('{','}')] parens = [ ('(', ')')
, ('[', ']')
, ('{', '}')
]
isOpeningParen :: Char -> Bool isOpeningParen :: Char -> Bool
isOpeningParen a = isJust $ lookup a parens isOpeningParen a = isJust $ lookup a parens