github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

remove fromJust

Browse Source
This commit is contained in:
Charlie Somerville 2018-06-12 12:36:57 +10:00
parent 3c2a877821
commit e436ace47c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Abstract/Value.hs
View File

@ -241,7 +241,7 @@ address :: ( AbstractValue address value effects
=> ValueRef address value
-> Evaluator address value effects address
address (LvalLocal var) = variable var
address (LvalMember obj prop) = evaluateInScopedEnv (deref obj) (fromJust <$> lookupEnv prop)
address (LvalMember obj prop) = evaluateInScopedEnv (deref obj) (variable prop)
address (Rval addr) = pure addr
subtermAddress :: ( AbstractValue address value effects