shithub: MicroHs

Info  •  Files  •  Log  •  Branches

fix end of file comment but.

--- a/src/MicroHs/Lex.hs

+++ b/src/MicroHs/Lex.hs

@@ -171,7 +171,7 @@

 skipLine :: SLoc -> String -> [Token]

 skipLine loc cs@('\n':_) = lex loc cs

 skipLine loc (_:cs)      = skipLine loc cs

-skipLine   _ []          = []

+skipLine loc []          = lex loc []

 -- | Takes a list of tokens and produces a list of tokens. If the first token in

 -- the input list is a TIndent, the input is returned unaltered. Otherwise, a

-- 

⑨