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:
parent
d0fc64e2df
commit
91b446856f
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user