1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

Fix WildcardImport

Combine with the global env instead of replacing it outright
This commit is contained in:
joshvera 2018-03-08 16:02:03 -05:00
parent aef8814a7d
commit f75e4b280e

View File

@ -287,7 +287,10 @@ instance Ord1 WildcardImport where liftCompare = genericLiftCompare
instance Show1 WildcardImport where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable WildcardImport where
eval (WildcardImport from _) = putGlobalEnv mempty *> require (qualifiedName (subterm from)) *> unit
eval (WildcardImport from _) = do
importedEnv <- withGlobalEnv mempty (require (qualifiedName (subterm from)))
modifyGlobalEnv (flip (Map.foldrWithKey envInsert) (unEnvironment importedEnv))
unit
-- | A declared type (e.g. `a []int` in Go).
data Type a = Type { typeName :: !a, typeKind :: !a }