fix some mixed space+tab indentation
This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast.
This commit is contained in:
parent
8f69d55f03
commit
7b50b3c057
131 changed files with 242 additions and 242 deletions
|
@ -90,7 +90,7 @@ tokenGroups :: [Token op] -> [TokenGroup op]
|
|||
tokenGroups [] = []
|
||||
tokenGroups (t:ts) = go t
|
||||
where
|
||||
go Open =
|
||||
go Open =
|
||||
let (gr, rest) = findClose ts
|
||||
in gr : tokenGroups rest
|
||||
go Close = tokenGroups ts -- not picky about missing Close
|
||||
|
@ -101,7 +101,7 @@ findClose l =
|
|||
let (g, rest) = go [] l
|
||||
in (Group (reverse g), rest)
|
||||
where
|
||||
go c [] = (c, []) -- not picky about extra Close
|
||||
go c [] = (c, []) -- not picky about extra Close
|
||||
go c (t:ts) = dispatch t
|
||||
where
|
||||
dispatch Close = (c, ts)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue