From 2784674ac1efc97348b4e7e2082628e08ef6b7c1 Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Wed, 21 Apr 2021 07:05:17 +0200
Subject: FloatVal, average, Context, evalTableExpression, return tables from
 api

---
 src/MyLib.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'src/MyLib.hs')

diff --git a/src/MyLib.hs b/src/MyLib.hs
index 864f99e..c8dc95d 100644
--- a/src/MyLib.hs
+++ b/src/MyLib.hs
@@ -31,13 +31,7 @@ instance CoerceTo Bool where
   coerceTo (IntVal v) = Just $ v /= 0
   coerceTo (StrVal "True") = Just True
   coerceTo (StrVal "true") = Just True
-  --coerceTo v@(StrVal _) = coerceTo . IntVal =<< (coerceTo v :: Maybe Integer) :: Maybe Bool
-  coerceTo v@(StrVal x) = case (readMaybe x :: Maybe Integer) of
-      Nothing -> Just False
-      Just n -> Just $ True--n /= 0
---    case coerceTo v :: Maybe Integer of
---      Nothing -> Just False
---      Just n -> coerceTo (IntVal n)
+  coerceTo v = coerceTo . IntVal =<< (coerceTo v :: Maybe Integer) :: Maybe Bool
 
   coerceFrom = BoolVal
 
-- 
cgit v1.2.3