reactive-glut 0.1.4 → 0.1.5

raw patch · 2 files changed

+7/−7 lines, 2 filesdep ~reactive

Dependency ranges changed: reactive

Files

• reactive-glut.cabal +2/−2
• src/FRP/Reactive/GLUT/Adapter.hs +5/−5

@@ -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:

@@ -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