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

Merge branch 'master' into bump-haskell-tree-sitter-0.11

Browse Source
This commit is contained in:
Patrick Thomson 2018-04-02 11:12:34 -04:00 committed by GitHub
commit 748c0f2e14
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Syntax/Statement.hs
View File

@ -77,8 +77,11 @@ instance Eq1 Let where liftEq = genericLiftEq
instance Ord1 Let where liftCompare = genericLiftCompare instance Ord1 Let where liftCompare = genericLiftCompare
instance Show1 Let where liftShowsPrec = genericLiftShowsPrec instance Show1 Let where liftShowsPrec = genericLiftShowsPrec
-- TODO: Implement Eval instance for Let instance Evaluatable Let where
instance Evaluatable Let eval Let{..} = do
addr <- snd <$> letrec name (subtermValue letValue)
localEnv (Env.insert name addr) (subtermValue letBody)
where name = freeVariable (subterm letVariable)
-- Assignment -- Assignment