github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Add a Closure constructor to Abstract.Value.Concrete

Browse Source
This commit is contained in:
Rick Winfrey 2018-12-20 17:05:14 -08:00
parent c3ab029fb2
commit 98e83045fc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Value/Concrete.hs
View File

@ -224,6 +224,7 @@ instance ( Member (Allocator address) sig
| Object address <- v = pure (Just address) | Object address <- v = pure (Just address)
| Class _ _ address <- v = pure (Just address) | Class _ _ address <- v = pure (Just address)
| Namespace _ address <- v = pure (Just address) | Namespace _ address <- v = pure (Just address)
| Closure _ _ _ _ _ _ _ address <- v = pure (Just address)
| otherwise = pure Nothing | otherwise = pure Nothing
asString v asString v