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

Align

Browse Source
This commit is contained in:
Timothy Clem 2018-04-02 11:19:15 -07:00
parent e56c338c7e
commit 6c1cd03621
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/Abstract/Value.hs
View File

@ -234,7 +234,7 @@ instance (Monad m, MonadEvaluatable term Value m) => MonadValue Value m where
asString v asString v
| Just (String n) <- prjValue v = pure n | Just (String n) <- prjValue v = pure n
| otherwise = fail ("expected " <> show v <> " to be a string") | otherwise = fail ("expected " <> show v <> " to be a string")
ifthenelse cond if' else' ifthenelse cond if' else'
| Just (Boolean b) <- prjValue cond = if b then if' else else' | Just (Boolean b) <- prjValue cond = if b then if' else else'