1
1
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00

Handle anonymous namespaces.

This commit is contained in:
Rob Rix 2018-07-16 10:50:19 -04:00
parent d0fc64e2df
commit 91b446856f

View File

@ -381,6 +381,7 @@ instance Evaluatable Namespace where
name <- maybeM (throwResumable NoNameError) n
letrec' name $ \addr ->
subtermValue namespaceBody *> makeNamespace name addr Nothing
go [] = subtermValue namespaceBody
data TraitDeclaration a = TraitDeclaration { traitName :: a, traitStatements :: [a] }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)