not-gloss-examples 0.4.0 → 0.5.0
raw patch · 6 files changed
+16/−13 lines, 6 filesdep ~basedep ~not-gloss
Dependency ranges changed: base, not-gloss
Files
- changelog.txt +3/−0
- not-gloss-examples.cabal +9/−9
- src/Animate.hs +1/−1
- src/Display.hs +1/−1
- src/Play.hs +1/−1
- src/Simulate.hs +1/−1
changelog.txt view
@@ -1,2 +1,5 @@+0.5.0:+- update for not-gloss 0.7.0.0+ 0.4.0: - use spatial-math 0.2 which uses `linear`
not-gloss-examples.cabal view
@@ -1,5 +1,5 @@ name: not-gloss-examples-version: 0.4.0+version: 0.5.0 stability: Experimental synopsis: examples for not-gloss license: BSD3@@ -15,34 +15,34 @@ executable not-gloss-display main-is: src/Display.hs- build-depends: not-gloss >= 0.6.0,+ build-depends: not-gloss >= 0.7.0, linear >= 1.3.1,- base >= 4.5 && < 4.7+ base >= 4.5 && < 5 ghc-options: -threaded -O2 executable not-gloss-animate main-is: src/Animate.hs- build-depends: not-gloss >= 0.6.0,+ build-depends: not-gloss >= 0.7.0, linear >= 1.3.1,- base >= 4.5 && < 4.7+ base >= 4.5 && < 5 ghc-options: -threaded -O2 executable not-gloss-simulate main-is: src/Simulate.hs- build-depends: not-gloss >= 0.6.0,+ build-depends: not-gloss >= 0.7.0, linear >= 1.3.1,- base >= 4.5 && < 4.7+ base >= 4.5 && < 5 ghc-options: -threaded -O2 executable not-gloss-game main-is: src/Play.hs- build-depends: not-gloss >= 0.6.0,+ build-depends: not-gloss >= 0.7.0, spatial-math >= 0.2.0 && < 0.3, linear >= 1.3.1, GLUT, containers, X11,- base >= 4.5 && < 4.7+ base >= 4.5 && < 5 ghc-options: -threaded -O2
src/Animate.hs view
@@ -25,4 +25,4 @@ main :: IO () main = do- animate Nothing "animate test" drawFun+ animate (defaultOpts {optWindowName = "animate test"}) drawFun
src/Display.hs view
@@ -24,4 +24,4 @@ main :: IO () main = do- display Nothing "display test" drawFun+ display (defaultOpts {optWindowName = "display test"}) drawFun
src/Play.hs view
@@ -94,5 +94,5 @@ setCam (GameState x _ _) = setCamera x drawfun' x = return (drawfun x, Just None) _ <- initThreads- playIO Nothing "play test" ts state0 drawfun' simfun setCam+ playIO (defaultOpts {optWindowName = "play test"}) ts state0 drawfun' simfun setCam (Just keyMouseCallback) (Just (motionCallback True)) (Just (motionCallback False))
src/Simulate.hs view
@@ -44,4 +44,4 @@ main :: IO () main = do let state0 = State (-1.4,0) (Quaternion 1 (V3 0 0 0)) []- simulate Nothing "simulate test" ts state0 drawFun simFun+ simulate (defaultOpts {optWindowName = "simulate test"}) ts state0 drawFun simFun