diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-24 22:27:20 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-24 22:27:20 +0100 |
| commit | beda8ded7c96c591fdebbbd2cf197a02f8f87d0c (patch) | |
| tree | 8eb33391786237bf70347a06170ac306710ba6fd | |
| parent | aa161777510728c94e51e9ef1d6df4146d7d952b (diff) | |
Fix parsing of a module starting with whitespace or comment
| -rw-r--r-- | src/Parser.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 94e9a12..1d1d540 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -119,6 +119,7 @@ parseImport = label "import declaration" $ toplevel (\() -> []) $ do parseTestModule :: FilePath -> TestParser Module parseTestModule absPath = do + scn moduleName <- choice [ label "module declaration" $ do wsymbol "module" |