free-game 0.9.4.2 → 0.9.4.3

raw patch · 3 files changed

+7/−7 lines, 3 filesdep ~JuicyPixels-repadep ~OpenGLdep ~OpenGLRaw

Dependency ranges changed: JuicyPixels-repa, OpenGL, OpenGLRaw, free

Files

• Graphics/UI/FreeGame/Data/Bitmap.hs +1/−1
• Graphics/UI/FreeGame/GUI/GLFW.hs +1/−1
• free-game.cabal +5/−5

@@ -80,7 +80,7 @@ 
 -- | Create a 'Bitmap' from the given file.
 loadBitmapFromFile :: MonadIO m => FilePath -> m Bitmap
-loadBitmapFromFile path = liftIO $ readImageRGBA path >>= either fail return >>= makeStableBitmap . imgData
+loadBitmapFromFile path = liftIO $ readImageRGBA path >>= either fail return >>= makeStableBitmap . imgData . reverseColorChannel
 
 -- | Convert the 'Bitmap' uniformalized by the 'Hashable' value by the given function.
 onBitmapWithHashable :: Hashable h => h -> (R.Array RF.F DIM3 Word8 -> R.Array RF.F DIM3 Word8) -> Bitmap -> Bitmap

@@ -113,7 +113,7 @@     let (width, height) = bitmapSize bmp
     let siz = GL.TextureSize2D (gsizei width) (gsizei height)
     liftIO $ withForeignPtr (RF.toForeignPtr ar)
-        $ GL.texImage2D Nothing GL.NoProxy 0 GL.RGBA8 siz 0
+        $ GL.texImage2D GL.Texture2D GL.NoProxy 0 GL.RGBA8 siz 0
         . GL.PixelData GL.RGBA GL.UnsignedInt8888
     finalizer $ GL.deleteObjectNames [tex]
     return (tex, width, height)

@@ -1,5 +1,5 @@ name:                free-game
-version:             0.9.4.2
+version:             0.9.4.3
 synopsis:            Cross-platform GUI library based on free monads
 description:         free-game is a library that abstracts graphical applications with simple interfaces. Twitter: #hs_free_game
 homepage:            https://github.com/fumieval/free-game/tree/maintainance0.9
@@ -41,21 +41,21 @@     containers >= 0.4,
     directory >= 1.0,
     filepath >= 1.3,
-    free == 3.*,
+    free >= 3.2 && <5,
     repa,
     freetype2 >= 0.1,
     GLFW-b == 0.1.*,
     hashable >= 1.2,
     mtl >= 2.1,
-    OpenGL == 2.8.*,
-    OpenGLRaw == 1.3.*,
+    OpenGL == 2.9.*,
+    OpenGLRaw == 1.4.*,
     random == 1.*,
     transformers >= 0.3,
     void >= 0.5,
     template-haskell,
     linear >= 1.1 && < 1.4,
     vector == 0.10.*,
-    JuicyPixels-repa >= 0.5.1,
+    JuicyPixels-repa >= 0.7 && < 1,
     data-default,
     reflection == 1.*,
     colors == 0.1.*,