diff --git a/reactive-glut.cabal b/reactive-glut.cabal
--- a/reactive-glut.cabal
+++ b/reactive-glut.cabal
@@ -1,5 +1,5 @@
 Name:                reactive-glut
-Version:             0.1.4
+Version:             0.1.5
 Cabal-Version:       >= 1.2
 Synopsis:            Connects Reactive and GLUT
 Category:            FRP, graphics
@@ -26,7 +26,7 @@
 Library
   hs-Source-Dirs:      src
   Extensions:
-  Build-Depends:       base, old-time, OpenGL, GLUT, vector-space, reactive >= 0.10.2
+  Build-Depends:       base, old-time, OpenGL, GLUT, vector-space, reactive >= 0.10.4
   Exposed-Modules:     
                        FRP.Reactive.GLUT.Adapter
   Other-Modules:
diff --git a/src/FRP/Reactive/GLUT/Adapter.hs b/src/FRP/Reactive/GLUT/Adapter.hs
--- a/src/FRP/Reactive/GLUT/Adapter.hs
+++ b/src/FRP/Reactive/GLUT/Adapter.hs
@@ -40,11 +40,11 @@
 adapt f =
   do clock <- makeClock
      let mkE = makeEvent clock
-     (mousePosE , mousePosSink ) <- mkE
-     (leftDown  , leftDownSink ) <- mkE
-     (rightDown , rightDownSink) <- mkE
-     (keyActions, keyActionSink) <- mkE
-     (tick      , tickSink     ) <- mkE
+     (mousePosSink , mousePosE ) <- mkE
+     (leftDownSink , leftDown  ) <- mkE
+     (rightDownSink, rightDown ) <- mkE
+     (keyActionSink, keyActions) <- mkE
+     (tickSink     , tick      ) <- mkE
      -- TODO: let the initial mouse position be its actual position
      let windowPoint' p = do -- putStrLn $ "window point " ++ show p
                              windowPoint p