github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-08 16:39:47 +03:00
Code Issues Projects Releases Wiki Activity

If evaluatable instance returns a ValueRef

Browse Source
This commit is contained in:
joshvera 2018-11-05 16:11:04 -05:00
parent 63aa9da7f6
commit f2754368cb
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/Data/Syntax/Statement.hs
View File

@ -51,7 +51,7 @@ instance Show1 If where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable If where
eval eval (If cond if' else') = do
bool <- eval cond >>= Abstract.value
Rval <$> ifthenelse bool (eval if' >>= address) (eval else' >>= address)
ifthenelse bool (eval if') (eval else')
instance Tokenize If where
tokenize If{..} = within' Scope.If $ do