github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

ClosureBody takes the location parameter.

Browse Source
This commit is contained in:
Rob Rix 2018-05-28 11:58:55 -04:00
parent b0ef2ddd66
commit 99e0bcc9c3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Abstract/Value.hs
View File

@ -14,7 +14,7 @@ import qualified Data.Set as Set
import Prologue
data Value location body
= Closure PackageInfo ModuleInfo [Name] (ClosureBody body) (Environment location)
= Closure PackageInfo ModuleInfo [Name] (ClosureBody location body) (Environment location)
| Unit
| Boolean Bool
| Integer (Number.Number Integer)
@ -32,7 +32,7 @@ data Value location body
| Hole
deriving (Eq, Ord, Show)
data ClosureBody body = Label Int
data ClosureBody location body = Label Int
deriving (Eq, Ord, Show)