github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 10:27:45 +03:00
Code Issues Projects Releases Wiki Activity

Docs

Browse Source
This commit is contained in:
Timothy Clem 2018-03-07 08:33:06 -08:00
parent 956993a98d
commit df8367c6f5
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/Data/Syntax/Declaration.hs
View File

@ -231,9 +231,9 @@ instance Evaluatable QualifiedImport where
qualifyInsert k v rest = envInsert (prefix <> k) v <$> rest
directInsert k v rest = maybe rest (\symAlias -> envInsert symAlias v <$> rest) (Map.lookup k symbols)
-- | Import declarations (symbols are added directly to calling environment).
-- | Import declarations (symbols are added directly to the calling env).
--
-- If symbols is empty, just import the module for it's side effects.
-- If symbols is empty, just evaluate the module for it's side effects.
data Import a = Import { importFrom :: !a, importSymbols :: ![(Name, Name)] }
deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Ord, Show, Traversable, FreeVariables1)