hunk ./src/FRP/Reactive/GLUT/SimpleGL.hs 41 - do getArgsAndInitialize + do _ <- getArgsAndInitialize hunk ./src/FRP/Reactive/GLUT/SimpleGL.hs 45 - createWindow title + _ <- createWindow title hunk ./src/FRP/Reactive/GLUT/SimpleGL.hs 112 - return (f w x, - f h y) + let w' = fromIntegral w + h' = fromIntegral h + return (f w' x, - f h' y) hunk ./src/Test.hs 22 + hunk ./src/Test.hs 30 -t1 = const (pure (drawBox (0::Double,0))) +t1 = const (pure (drawBox zeros)) + where + zeros :: (G.GLdouble,G.GLdouble) + zeros = (0,0) hunk ./src/Test.hs 35 -t2 = const (f <$> time) - where - f t = drawBox (t',t') where t' = t * 1 + +t2 = const (f <$> fmap realToFrac time) + where + f t = drawBox (t',t') + where + t' = t * 1 :: G.GLdouble hunk ./src/Test.hs 47 - do G.translate (G.Vector3 0 0 (-30 :: Double)) + do G.translate (G.Vector3 0 0 (-30 :: G.GLdouble)) hunk ./src/Test.hs 59 - ps :: [(Float,Float)] + ps :: [(G.GLfloat,G.GLfloat)] hunk ./src/Test.hs 61 + hunk ./reactive-glut.cabal 2 -Version: 0.1.9 +Version: 0.1.10 hunk ./reactive-glut.cabal 15 - and Achim Schneider. + Achim Schneider, and Alexander Göransson. hunk ./reactive-glut.cabal 29 - Build-Depends: base, old-time, OpenGL, GLUT, vector-space, reactive >= 0.10.7 + Build-Depends: base<5, old-time, OpenGL, GLUT, vector-space, reactive >= 0.10.7 hunk ./src/FRP/Reactive/GLUT/SimpleGL.hs 118 - -- f _ z = realToFrac z + f :: GLint -> GLint -> Double