chore: code cleanup

examples/basic-audio/src/Main.hs

@@ -1,5 +1,3 @@
-{-# OPTIONS -Wall #-}
-
 module Main where
 
 import Control.Monad (unless, void)

examples/basic-automation-events/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/basic-callbacks/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Main where
 

examples/basic-images/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 module Main where
 

examples/basic-models/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/basic-rlgl/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/basic-shaders/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/basic-window/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Main where
 

examples/bunnymark/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE TemplateHaskell #-}
 

examples/camera-ray-collision/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/custom-font-text/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/first-person-camera/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/postprocessing-effects/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 module Main where

examples/raygui-suite/src/Main.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Main where

h-raylib.cabal

@@ -109,6 +109,8 @@ common example-options
     other-extensions:
       BangPatterns
       TemplateHaskell
+
+    ghc-options: -Wall
 
     if flag(platform-web)
       ghc-options:
@@ -246,9 +248,12 @@ library
     DeriveAnyClass
     FlexibleInstances
     ForeignFunctionInterface
+    PatternSynonyms
     ScopedTypeVariables
     TemplateHaskell
     TemplateHaskellQuotes
+
+  ghc-options: -Wall
 
   if (flag(platform-windows) || (flag(detect-platform) && os(windows)))
     if flag(mingw-cross)
@@ -312,7 +317,7 @@ library
     c-sources:   lib/web.c
 
   else
-    cc-options: -DPLATFORM_DESKTOP
+    cc-options: -DPLATFORM_DESKTOP -Wno-int-to-void-pointer-cast
     c-sources:
       lib/rgui_bindings.c
       lib/rl_bindings.c
@@ -325,8 +330,8 @@ library
         raylib/src/external/glfw/include raygui/src raygui/styles/amber
         raygui/styles/ashes raygui/styles/bluish raygui/styles/candy
         raygui/styles/cherry raygui/styles/cyber raygui/styles/dark
-        raygui/styles/default raygui/styles/enefete raygui/styles/jungle
-        raygui/styles/lavanda raygui/styles/sunny raygui/styles/terminal
+        raygui/styles/enefete raygui/styles/jungle raygui/styles/lavanda
+        raygui/styles/sunny raygui/styles/terminal
 
       c-sources:
         raylib/src/raudio.c

src/Raylib/Core.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE TemplateHaskell #-}
 

src/Raylib/Core/Audio.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE TemplateHaskell #-}
 

src/Raylib/Core/Camera.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Bindings to @rcamera@ (raylib.h)

src/Raylib/Core/Models.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Bindings to @rmodels@

src/Raylib/Core/Shapes.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE PatternSynonyms #-}
 

src/Raylib/Core/Text.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Bindings to @rtext@

src/Raylib/Core/Textures.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Bindings to @rtextures@

src/Raylib/Internal.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE TemplateHaskell #-}
 

src/Raylib/Internal/Foreign.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleInstances #-}
 

src/Raylib/Internal/Web/Processable.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE ConstrainedClassMethods #-}
 
 -- | Internal code to convert Haskell types to raw bytes

src/Raylib/Types.hs

@@ -1,5 +1,3 @@
-{-# OPTIONS -Wall #-}
-
 -- |
 --
 -- Each @Types@ module has up to 4 sections: one for enumerations, one for

src/Raylib/Types/Core.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE PatternSynonyms #-}
 

src/Raylib/Types/Core/Audio.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE DeriveAnyClass #-}
 
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for types used in @raudio@
 module Raylib.Types.Core.Audio
   ( -- * Enumerations

src/Raylib/Types/Core/Camera.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE DeriveAnyClass #-}
 
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for camera-related types
 module Raylib.Types.Core.Camera
   ( -- * Enumerations

src/Raylib/Types/Core/Models.hs

@@ -1,8 +1,6 @@
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE PatternSynonyms #-}
 
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for types used mainly in @rmodels@
 module Raylib.Types.Core.Models
   ( -- * Enumerations

src/Raylib/Types/Core/Text.hs

@@ -1,5 +1,3 @@
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for types used in @rtext@
 module Raylib.Types.Core.Text
   ( -- * Enumerations

src/Raylib/Types/Core/Textures.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE DeriveAnyClass #-}
 
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for types used mainly in @rtextures@
 module Raylib.Types.Core.Textures
   ( -- * Enumerations

src/Raylib/Types/Util/GUI.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE DeriveAnyClass #-}
 
 -- | Bindings for types used in @raygui@

src/Raylib/Types/Util/RLGL.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE DeriveAnyClass #-}
 
-{-# OPTIONS -Wall #-}
-
 -- | Bindings for types used in @rlgl@
 module Raylib.Types.Util.RLGL
   ( -- * Enumerations

src/Raylib/Util.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE TemplateHaskellQuotes #-}
 

src/Raylib/Util/Camera.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 
 -- | Bindings to @rcamera@ (rcamera.h)
@@ -22,7 +21,7 @@ module Raylib.Util.Camera
   )
 where
 
-import Raylib.Types (Camera, Camera3D (..), CameraProjection (CameraOrthographic, CameraPerspective), Matrix, Vector3, vector3'y, pattern Vector3)
+import Raylib.Types (Camera, Camera3D (..), CameraProjection (CameraOrthographic, CameraPerspective), Matrix, Vector3, vector3'y)
 import Raylib.Util.Math (Vector (..), clamp, deg2Rad, matrixLookAt, matrixOrtho, matrixPerspective, vector3Angle, vector3CrossProduct, vector3RotateByAxisAngle)
 
 -- | The camera's forward vector (normalized)

src/Raylib/Util/Colors.hs

@@ -1,5 +1,3 @@
-{-# OPTIONS -Wall #-}
-
 -- | Simple color palette defined in raylib.h
 module Raylib.Util.Colors
   ( lightGray,

src/Raylib/Util/GUI.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE PatternSynonyms #-}
 

src/Raylib/Util/GUI/Styles.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Predefined styles that come with raygui. Calling one of these functions

src/Raylib/Util/Lenses.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE PatternSynonyms #-}
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Lenses for raylib types

src/Raylib/Util/Math.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE FlexibleInstances #-}

src/Raylib/Util/RLGL.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -Wall #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 -- | Bindings to @rlgl@