From 1f7584bf98346c6d044df631a82353fd1c5972af Mon Sep 17 00:00:00 2001 From: Liyana Date: Tue, 10 Nov 2020 17:14:31 +0800 Subject: Added explicit implementation for 'fromValue' in instance declaration for 'Predef Bool' --- src/compiler/GF/Compile/Compute/Predef.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/compiler/GF/Compile/Compute') diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs index 609a17798..69df3792c 100644 --- a/src/compiler/GF/Compile/Compute/Predef.hs +++ b/src/compiler/GF/Compile/Compute/Predef.hs @@ -27,6 +27,7 @@ instance Predef Int where instance Predef Bool where toValue = boolV + fromValue boolV = return (boolV == boolV) instance Predef String where toValue = string -- cgit v1.2.3 From 8ca4baf470da2fd607d89e7679f7376a56b3f8fb Mon Sep 17 00:00:00 2001 From: Liyana Date: Tue, 10 Nov 2020 17:15:20 +0800 Subject: Deleted redundant pattern match --- src/compiler/GF/Compile/Compute/ConcreteNew.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Compile/Compute') diff --git a/src/compiler/GF/Compile/Compute/ConcreteNew.hs b/src/compiler/GF/Compile/Compute/ConcreteNew.hs index ea55e77cb..6f00c45e1 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteNew.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteNew.hs @@ -528,7 +528,7 @@ value2term' stop loc xs v0 = -- VGlue v1 v2 -> Glue (v2t v1) (v2t v2) -- VExtR v1 v2 -> ExtR (v2t v1) (v2t v2) VError err -> return (Error err) - _ -> bug ("value2term "++show loc++" : "++show v0) + where v2t = v2txs xs v2txs = value2term' stop loc -- cgit v1.2.3 From 9b02385e3efcadf39a171f65eaba871b1897360e Mon Sep 17 00:00:00 2001 From: Liyana Date: Tue, 10 Nov 2020 17:26:56 +0800 Subject: Removed fromValue for boolV --- src/compiler/GF/Compile/Compute/Predef.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/compiler/GF/Compile/Compute') diff --git a/src/compiler/GF/Compile/Compute/Predef.hs b/src/compiler/GF/Compile/Compute/Predef.hs index 69df3792c..609a17798 100644 --- a/src/compiler/GF/Compile/Compute/Predef.hs +++ b/src/compiler/GF/Compile/Compute/Predef.hs @@ -27,7 +27,6 @@ instance Predef Int where instance Predef Bool where toValue = boolV - fromValue boolV = return (boolV == boolV) instance Predef String where toValue = string -- cgit v1.2.3