on master help sign in
Handle whitespace before EOF properly
e721f2fEvan Czaplicki
src/Parse/Parse.hs+1−2
@@ -47,8 +47,7 @@ programParser :: Package.Name -> IParser M.SourceModule
47programParser pkgName =
47programParser pkgName =
48 do (M.Header name docs exports imports) <- Module.header
48 do (M.Header name docs exports imports) <- Module.header
49 decls <- declarations
49 decls <- declarations
50− optional freshLine
50+ many (spaces <|> newline)
51− optional spaces
52 eof
51 eof
53
52
54 let canonicalName =
53 let canonicalName =