github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Term module declaration components

Browse Source
This commit is contained in:
Rick Winfrey 2018-06-22 16:33:10 -07:00
parent 32b8224a3e
commit 7a4b2da299
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Assignment.hs
View File

@ -596,9 +596,9 @@ module' = makeTerm
<$> symbol Module
<*> children (Syntax.Module
<$> manyTerm (comment <|> pragma)
<*> (moduleIdentifier <|> qualifiedModuleIdentifier <|> emptyTerm)
<*> term (moduleIdentifier <|> qualifiedModuleIdentifier <|> emptyTerm)
<*> moduleExports
<*> (where' <|> expressions <|> emptyTerm))
<*> term (where' <|> expressions <|> emptyTerm))
where
moduleExports = (symbol ModuleExports *> children (manyTerm export))
<|> (pure [])