github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

Add an eval instance for QualifiedExport

Browse Source
This commit is contained in:
joshvera 2018-03-07 10:03:59 -05:00
parent 15b073485e
commit 368dc93e91
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Syntax/Declaration.hs
View File

@ -240,6 +240,9 @@ instance Ord1 QualifiedExport where liftCompare = genericLiftCompare
instance Show1 QualifiedExport where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable QualifiedExport where
eval (QualifiedExport from exportSymbols) = do
traverse_ addExport exportSymbols
unit
-- | Import declarations (symbols are added directly to calling environment).
--