Removed redundant constraints. Bumped version to 2.7.0.7.

haskell-opengl · Apr 11, 2016 · 58d0627 · 58d0627
1 parent cce6519
commit 58d0627
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,7 @@
+2.7.0.7
+-------
+* Removed redundant constraints.
+
 2.7.0.6
 --------
 * Relaxed upper version bound for `OpenGLRaw`.

diff --git a/GLUT.cabal b/GLUT.cabal
@@ -1,5 +1,5 @@
 name: GLUT
-version: 2.7.0.6
+version: 2.7.0.7
 synopsis: A binding for the OpenGL Utility Toolkit
 description:
   A Haskell binding for the OpenGL Utility Toolkit, a window system independent

diff --git a/src/Graphics/UI/GLUT/Fonts.hs b/src/Graphics/UI/GLUT/Fonts.hs
@@ -79,7 +79,7 @@ bitmapString f s = do
    i <- marshalBitmapFont f
    mapM_ (\c -> withChar c (glutBitmapCharacter i)) s
 
-withChar :: MonadIO m => Char -> (CInt -> m a) -> m a
+withChar :: Char -> (CInt -> m a) -> m a
 withChar c f = f . fromIntegral . ord $ c
 
 --------------------------------------------------------------------------------