summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAntonKholomiov <>2016-03-26 16:59:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-03-26 16:59:00 (GMT)
commit9f36d9fb4284a5e7992d05fffa2fdd6f68bf64af (patch)
tree77804a4ce9b03863505c4c14bd1728115d40a0b3
parent3fecca8a51d5aac124b24a85a2803154b918204e (diff)
version 0.0.9.30.0.9.3
-rw-r--r--csound-expression-typed.cabal2
-rw-r--r--src/Csound/Typed/Types/Prim.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/csound-expression-typed.cabal b/csound-expression-typed.cabal
index 496e93c..e9ff3c1 100644
--- a/csound-expression-typed.cabal
+++ b/csound-expression-typed.cabal
@@ -1,5 +1,5 @@
Name: csound-expression-typed
-Version: 0.0.9.2
+Version: 0.0.9.3
Cabal-Version: >= 1.22
License: BSD3
License-file: LICENSE
diff --git a/src/Csound/Typed/Types/Prim.hs b/src/Csound/Typed/Types/Prim.hs
index 3096a7e..3ac2e0b 100644
--- a/src/Csound/Typed/Types/Prim.hs
+++ b/src/Csound/Typed/Types/Prim.hs
@@ -381,13 +381,13 @@ instance Val BoolSig where
fromGE = BoolSig
toGE x = case x of
BoolSig a -> a
- PrimBoolSig b -> return $ if b then 1 else 0
+ PrimBoolSig b -> return $ if b then true else false
instance Val BoolD where
fromGE = BoolD
toGE x = case x of
BoolD a -> a
- PrimBoolD b -> return $ if b then 1 else 0
+ PrimBoolD b -> return $ if b then true else false
class (IsPrim a, RealFrac (PrimOf a), Val a) => SigOrD a where