Permalink
Browse files

fixed warnings

  • Loading branch information...
1 parent 854d9d0 commit 2ee4b6c3eff9d7d2458ae63180a116f85dbdc4aa Nik Nyby committed Mar 25, 2010
Showing with 6 additions and 5 deletions.
  1. +3 −1 Bindings.hs
  2. +0 −1 Main.hs
  3. +3 −3 Sprite.hs
View
4 Bindings.hs
@@ -9,7 +9,9 @@ import Graphics.UI.GLUT
import State
import Sprite
-keyboardMouse _ env key state modifiers pos = do
+keyboardMouse :: Window -> IORef Env -> Key -> KeyState -> Modifiers -> Position
+ -> IO ()
+keyboardMouse _ env key state _ _ = do
e <- get env
let
View
1 Main.hs
@@ -19,7 +19,6 @@ main = do
wnd <- createWindow "Marlon Moonglow's Animator"
-- textures need to be in the IO monad, so they aren't part of the Env
- -- textures <- initTextures
textures <- loadAllTextures
-- set up callbacks
View
6 Sprite.hs
@@ -48,9 +48,9 @@ selectPoints :: Sprite -> [Vertex2 GLdouble]
selectPoints s = vertexRect $ r
{ rectWidth = rectWidth r + 8.0,
rectHeight = rectHeight r + 8.0
- }
- where
- r = rectangle s
+ }
+ where
+ r = rectangle s
-- start dragging a sprite
initDragSprite :: Position -> Sprite -> Sprite

0 comments on commit 2ee4b6c

Please sign in to comment.