summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorConalElliott <>2010-07-28 16:49:12 (GMT)
committerLuite Stegeman <luite@luite.com>2010-07-28 16:49:12 (GMT)
commit1b032143b301a7fffe25c1b5ab82fb10827fa91c (patch)
tree6c3f553ac4d74efe99a90d144f463217d9f312c7 /src
parentffaf3a4bd62d6ac9aed99f4bdb27f12d4d5e3969 (diff)
version 0.11.50.11.5
Diffstat (limited to 'src')
-rwxr-xr-xsrc/FRP/Reactive/Behavior.hs2
-rwxr-xr-xsrc/FRP/Reactive/Internal/Behavior.hs2
-rwxr-xr-xsrc/FRP/Reactive/Internal/TVal.hs2
-rwxr-xr-xsrc/FRP/Reactive/VectorSpace.hs1
4 files changed, 3 insertions, 4 deletions
diff --git a/src/FRP/Reactive/Behavior.hs b/src/FRP/Reactive/Behavior.hs
index 39a1607..f4ceecd 100755
--- a/src/FRP/Reactive/Behavior.hs
+++ b/src/FRP/Reactive/Behavior.hs
@@ -31,7 +31,7 @@ import Control.Applicative (Applicative,(<$>),pure)
import Control.Comonad
-import Control.Compose ((:.)(..))
+import Control.Compose ((:.)(..),unO)
import Data.VectorSpace
import Data.AffineSpace
diff --git a/src/FRP/Reactive/Internal/Behavior.hs b/src/FRP/Reactive/Internal/Behavior.hs
index 2cbee91..1b2f283 100755
--- a/src/FRP/Reactive/Internal/Behavior.hs
+++ b/src/FRP/Reactive/Internal/Behavior.hs
@@ -21,7 +21,7 @@ import Data.Monoid (Monoid(..))
import Control.Applicative (Applicative(pure),liftA2)
-- TypeCompose
-import Control.Compose ((:.)(..))
+import Control.Compose ((:.)(..),unO)
import Data.Zip (Zip(..),Unzip(..))
import qualified FRP.Reactive.Reactive as R
diff --git a/src/FRP/Reactive/Internal/TVal.hs b/src/FRP/Reactive/Internal/TVal.hs
index 9063029..b3f055e 100755
--- a/src/FRP/Reactive/Internal/TVal.hs
+++ b/src/FRP/Reactive/Internal/TVal.hs
@@ -243,7 +243,7 @@ listSink mk = do -- putStrLn "listSink"
readChan chanB >>= snk
loop
- forkIO loop
+ _ <- forkIO loop
as <- getChanStream chanA
-- debugging. defeats freeing.
diff --git a/src/FRP/Reactive/VectorSpace.hs b/src/FRP/Reactive/VectorSpace.hs
index 5d786fa..5fb9792 100755
--- a/src/FRP/Reactive/VectorSpace.hs
+++ b/src/FRP/Reactive/VectorSpace.hs
@@ -10,7 +10,6 @@ import FRP.Reactive.Behavior
import Control.Applicative
import Data.VectorSpace
-import Data.AdditiveGroup
instance AdditiveGroup v => AdditiveGroup (Behavior v) where
zeroV = pure zeroV