Fix 9.2 warnings (#260)

haskell-game · Mar 18, 2022 · 1578a63 · 1578a63
1 parent 9d4adaa
commit 1578a63
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/examples/twinklebear/Lesson05.hs b/examples/twinklebear/Lesson05.hs
@@ -59,9 +59,12 @@ main = do
   renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer
 
   spriteSheet <- getDataFileName "examples/twinklebear/spritesheet.bmp" >>= loadTexture renderer
-  let [spriteOne, spriteTwo, spriteThree, spriteFour] =
-        [ SDL.Rectangle (P (V2 (x * spriteWidth) (y * spriteHeight))) (V2 spriteWidth spriteHeight)
-          | x <- [0..1], y <- [0..1] ]
+
+  let mkSprite x y = SDL.Rectangle (P (V2 (x * spriteWidth) (y * spriteHeight))) (V2 spriteWidth spriteHeight)
+      spriteOne   = mkSprite 0 0
+      spriteTwo   = mkSprite 0 1
+      spriteThree = mkSprite 1 0
+      spriteFour  = mkSprite 1 1
 
   let loop spriteRect = do
         events <- SDL.pollEvents

diff --git a/src/SDL/Input/Keyboard/Codes.hs b/src/SDL/Input/Keyboard/Codes.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE PatternSynonyms #-}
 
 {-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures #-}
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 
 {-|
 

diff --git a/src/SDL/Raw/Enum.hsc b/src/SDL/Raw/Enum.hsc
@@ -2,6 +2,7 @@
 {-# LANGUAGE PatternSynonyms #-}
 
 {-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures #-}
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 
 module SDL.Raw.Enum (
   -- * Enumerations
-Original file line number
+Diff line change
@@ Expand Up / @@ -4,6 +4,7 @@ @@
     {-# LANGUAGE PatternSynonyms #-}
     {-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures #-}
+    {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
     {-|
@@ Expand Down @@