From a1fd3ea142f215d7a030b8a95d32ba0c55dd61fb Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Thu, 8 Jul 2021 13:56:58 +0200
Subject: [PATCH] Fix bug introduced in
 cdbe73eb475cf44e1a45b2abacb12756e394016a

Apparently I don't understand how pattern-matching works in Haskell
---
 src/compiler/GF/Compile/Compute/Predef.hs | 4 ++--
 1 file 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