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

Cleanup.

Browse Source
This commit is contained in:
Patrick Thomson 2019-09-23 12:33:45 -04:00
parent 54b5d379ea
commit 46c7d45865
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-python/src/Language/Python/Core.hs
View File

@ -118,7 +118,8 @@ instance Compile (Py.Assignment Span) where
, Py.right = Just rhs
} cc = do
value <- compile rhs
locate it =<< ((Name.named' name :<- value) >>>=) <$> local (def name) cc
let assigning n = (Name.named' name :<- value) >>>= n
locate it =<< assigning <$> local (def name) cc
compileCC other _ = fail ("Unhandled assignment case: " <> show other)
compile t = compileCC t (pure none)