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 receives the body parameter.

Browse Source
This commit is contained in:
Rob Rix 2018-05-28 11:56:17 -04:00
parent 6f0570c828
commit 88d651da7f
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 (Environment location)
= Closure PackageInfo ModuleInfo [Name] (ClosureBody 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 = Label Int
data ClosureBody body = Label Int
deriving (Eq, Ord, Show)