diff options
Diffstat (limited to 'src/compiler/GF/Compile/Compute/Predef.hs')
| -rw-r--r-- | src/compiler/GF/Compile/Compute/Predef.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs index 609a17798..58b9b3447 100644 --- a/src/compiler/GF/Compile/Compute/Predef.hs +++ b/src/compiler/GF/Compile/Compute/Predef.hs @@ -27,6 +27,10 @@ instance Predef Int where instance Predef Bool where toValue = boolV + fromValue v = case v of + VCApp (mn,i) [] | mn == cPredef && i == cPTrue -> return True + VCApp (mn,i) [] | mn == cPredef && i == cPFalse -> return False + _ -> verror "Bool" v instance Predef String where toValue = string |