diff --git a/Graphics/Gloss/Internals/Data/Picture.hs b/Graphics/Gloss/Internals/Data/Picture.hs
--- a/Graphics/Gloss/Internals/Data/Picture.hs
+++ b/Graphics/Gloss/Internals/Data/Picture.hs
@@ -182,7 +182,7 @@
         BSU.unsafeUseAsCString bs
          $ \cstr -> copyBytes ptr (castPtr cstr) len
 
-        let bdata = BitmapData len (BitmapFormat BottomToTop PxRGBA) fptr
+        let bdata = BitmapData len (BitmapFormat BottomToTop PxABGR) fptr
 
         return $ Bitmap width height bdata True
 {-# NOINLINE bitmapOfBMP #-}
diff --git a/Graphics/Gloss/Internals/Rendering/Color.hs b/Graphics/Gloss/Internals/Rendering/Color.hs
--- a/Graphics/Gloss/Internals/Rendering/Color.hs
+++ b/Graphics/Gloss/Internals/Rendering/Color.hs
@@ -7,7 +7,7 @@
 
 
 -- | Convert one of our Colors to OpenGL's representation.
-glColor4OfColor :: Fractional a => Color -> GL.Color4 a
+glColor4OfColor :: Color -> GL.Color4 a
 glColor4OfColor color
  = case color of
         RGBA r g b a
diff --git a/gloss-rendering.cabal b/gloss-rendering.cabal
--- a/gloss-rendering.cabal
+++ b/gloss-rendering.cabal
@@ -1,5 +1,5 @@
 name:           gloss-rendering
-version:        1.10.2.1
+version:        1.10.3.1
 license:        MIT
 license-file:   LICENSE
 author:         Elise Huard