new example

examples/example00/Main.hs

@@ -13,6 +13,7 @@ import qualified Graphics.GLUtil as GLU
 import Physics.Bullet.Raw
 
 import Control.Monad (when)
+import Control.Monad.IO.Class (liftIO)
 
 import Linear as L
 
@@ -31,8 +32,8 @@ main =
     { initComponents = All
     , windowTitle    = "hw"
     , windowConfig   = SDL.defaultWindow
-      { windowInitialSize = SDL.V2 1600 900
+      { SDL.windowInitialSize = SDL.V2 1600 900
-      , windowOpenGL = Just SDL.defaultOpenGL
+      , SDL.windowOpenGL = Just SDL.defaultOpenGL
         { SDL.glProfile = SDL.Core SDL.Normal 3 2
         }
       }

examples/example01/Main.hs

@@ -13,6 +13,7 @@ import qualified Graphics.GLUtil as GLU
 import Physics.Bullet.Raw
 
 import Control.Monad (when)
+import Control.Monad.IO.Class (liftIO)
 
 import Linear as L
 
@@ -31,8 +32,8 @@ main =
     { initComponents = All
     , windowTitle    = "hw"
     , windowConfig   = SDL.defaultWindow
-      { windowInitialSize = SDL.V2 1600 900
+      { SDL.windowInitialSize = SDL.V2 1600 900
-      , windowOpenGL = Just SDL.defaultOpenGL
+      , SDL.windowOpenGL = Just SDL.defaultOpenGL
         { SDL.glProfile = SDL.Core SDL.Normal 3 2
         }
       }

hw.cabal

@@ -96,3 +96,31 @@ executable example01
   default-language:    Haskell2010
   ghc-options:         -Wall
   extra-libraries:     stdc++
+
+executable example02
+  main-is:             Main.hs
+  other-modules:       Util
+                     , Types
+                     , Init
+  -- other-extensions:    
+  default-extensions:  OverloadedStrings
+  if flag(examples)
+    build-depends:       base >=4.9
+                       , affection
+                       , sdl2
+                       , linear
+                       , spatial-math
+                       , bytestring
+                       , OpenGL
+                       , OpenGLRaw
+                       , GLUtil
+                       , random
+                       , vector
+                       , wavefront
+                       , shoot
+  else
+    buildable:           False
+  hs-source-dirs:      examples/example02
+  default-language:    Haskell2010
+  ghc-options:         -Wall
+  extra-libraries:     stdc++

src/Main.hs

@@ -13,6 +13,7 @@ import qualified Graphics.GLUtil as GLU
 import Physics.Bullet.Raw
 
 import Control.Monad (when)
+import Control.Monad.IO.Class (liftIO)
 
 import Linear as L
 
@@ -31,9 +32,9 @@ main =
     { initComponents = All
     , windowTitle    = "hw"
     , windowConfig   = SDL.defaultWindow
-      { windowInitialSize = SDL.V2 1600 900
+      { SDL.windowInitialSize = SDL.V2 1600 900
-      , windowOpenGL = Just SDL.defaultOpenGL
+      , SDL.windowOpenGL = Just SDL.defaultOpenGL
-        { SDL.glProfile = SDL.Core SDL.Normal 3 2
+        { SDL.glProfile = SDL.Core SDL.Normal 3 3
         }
       }
     , initScreenMode = SDL.Fullscreen