diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2021-07-08 13:56:58 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2021-07-08 13:56:58 +0200 |
| commit | a1fd3ea142f215d7a030b8a95d32ba0c55dd61fb (patch) | |
| tree | 264ca65aa66b0e1c7b01d3dcf42e4d6158b13f3c /src/compiler/GF/Compile | |
| parent | cdbe73eb475cf44e1a45b2abacb12756e394016a (diff) | |
Fix bug introduced in cdbe73eb475cf44e1a45b2abacb12756e394016a
Apparently I don't understand how pattern-matching works in Haskell
Diffstat (limited to 'src/compiler/GF/Compile')
| -rw-r--r-- | src/compiler/GF/Compile/Compute/Predef.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs index b9e23d424..58b9b3447 100644 --- a/src/compiler/GF/Compile/Compute/Predef.hs +++ b/src/compiler/GF/Compile/Compute/Predef.hs @@ -28,8 +28,8 @@ instance Predef Int where instance Predef Bool where toValue = boolV fromValue v = case v of - VCApp (cPredef,cPTrue) [] -> return True - VCApp (cPredef,cPFalse) [] -> return False + 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 |