diff options
| author | dan <[email protected]> | 2021-04-21 07:05:17 +0200 |
|---|---|---|
| committer | dan <[email protected]> | 2021-04-21 07:05:17 +0200 |
| commit | 2784674ac1efc97348b4e7e2082628e08ef6b7c1 (patch) | |
| tree | ec447656b2a3f5747bff09b5e4e994aa1cf6dc78 /src/MyLib.hs | |
| parent | 766bc25be87ad66d9c850373e42c7d323f8d58db (diff) | |
| download | bizexp-2784674ac1efc97348b4e7e2082628e08ef6b7c1.tar.gz bizexp-2784674ac1efc97348b4e7e2082628e08ef6b7c1.tar.bz2 bizexp-2784674ac1efc97348b4e7e2082628e08ef6b7c1.zip | |
FloatVal, average, Context, evalTableExpression, return tables from api
Diffstat (limited to 'src/MyLib.hs')
| -rw-r--r-- | src/MyLib.hs | 8 |
1 files changed, 1 insertions, 7 deletions
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 |