@@ -3,7 +3,7 @@ module Parse.Parse (program, parse) where
4import qualified Data.Map as Map
4import qualified Data.Map as Map
5import qualified Data.Traversable as T
5import qualified Data.Traversable as T
6−import Text.Parsec (char, eof, letter, many, optional, putState, (<|>))
6+import Text.Parsec (char, eof, letter, many, putState, (<|>))
7import qualified Text.Parsec.Error as Parsec
7import qualified Text.Parsec.Error as Parsec
9import qualified AST.Declaration as D
9import qualified AST.Declaration as D
@@ -47,7 +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− many (spaces <|> newline)
50+ _ <- many (spaces <|> newline)
53 let canonicalName =
53 let canonicalName =