1
1
mirror of https://github.com/github/semantic.git synced 2025-01-05 05:58:34 +03:00
This commit is contained in:
Rick Winfrey 2019-03-15 11:25:54 -07:00
parent 1af0ea0534
commit 8d5f0bb549

View File

@ -328,7 +328,7 @@ instance Declarations1 Assignment where
instance Evaluatable Assignment where
eval eval ref Assignment{..} = do
(lhsName, relation) <- case (declaredName assignmentTarget) of
(lhsName, relation) <- case declaredName assignmentTarget of
Just name -> pure (name, Default)
_ -> gensym >>= \name -> pure (name, Gensym)
maybeSlot <- maybeLookupDeclaration (Declaration lhsName)