GLUT 2.2.2.0 → 2.2.2.1
raw patch · 2 files changed
+11/−6 lines, 2 filesnew-uploaderPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Graphics.UI.GLUT.Callbacks.Window: KeyUnknown :: Int -> SpecialKey
Files
- GLUT.cabal +9/−5
- Graphics/UI/GLUT/Callbacks/Window.hs +2/−1
GLUT.cabal view
@@ -1,10 +1,10 @@ name: GLUT-version: 2.2.2.0+version: 2.2.2.1 license: BSD3 license-file: LICENSE-maintainer: Sven Panne <sven.panne@aedion.de>-bug-reports: mailto:hopengl@haskell.org-homepage: http://www.haskell.org/HOpenGL/+maintainer: Jason Dagit <dagitj@gmail.com>, Sven Panne <sven.panne@aedion.de>+bug-reports: https://github.com/haskell-opengl/GLUT/issues+homepage: http://www.haskell.org/haskellwiki/Opengl category: Graphics synopsis: A binding for the OpenGL Utility Toolkit description:@@ -13,7 +13,7 @@ on which this binding is based, please see: <http://www.opengl.org/resources/libraries/glut/>. build-type: Simple-cabal-version: >=1.2+cabal-version: >=1.6 extra-source-files: README examples/BOGLGP/Chapter01/OnYourOwn1.hs@@ -166,3 +166,7 @@ frameworks: GLUT else extra-libraries: glut++source-repository head+ type: git+ location: https://github.com/haskell-opengl/GLUT
Graphics/UI/GLUT/Callbacks/Window.hs view
@@ -322,6 +322,7 @@ | KeyNumLock | KeyBegin | KeyDelete+ | KeyUnknown Int deriving ( Eq, Ord, Show ) unmarshalSpecialKey :: CInt -> SpecialKey@@ -350,7 +351,7 @@ | x == glut_KEY_NUM_LOCK = KeyNumLock | x == glut_KEY_BEGIN = KeyBegin | x == glut_KEY_DELETE = KeyDelete- | otherwise = error ("unmarshalSpecialKey: illegal value " ++ show x)+ | otherwise = KeyUnknown (fromIntegral x) --------------------------------------------------------------------------------