*** setup configure setup/setup configure --ghc --user --prefix=/usr/local/tmp/archive/install --haddock-option=--use-contents=/package/GLFW-0.2 --verbose Warning: defaultUserHooks in Setup script is deprecated. Configuring GLFW-0.2... Warning: No 'build-type' specified. If you do not need a custom Setup.hs or ./configure script then use 'build-type: Simple'. Dependency OpenGL >=2.1: using OpenGL-2.4.0.1 Dependency base -any: using base-4.2.0.0 Using Cabal-1.8.0.2 compiled by ghc-6.12 Using compiler: ghc-6.12.1 Using install prefix: /usr/local/tmp/archive/install Binaries installed in: /usr/local/tmp/archive/install/bin Libraries installed in: /usr/local/tmp/archive/install/lib/GLFW-0.2/ghc-6.12.1 Private binaries installed in: /usr/local/tmp/archive/install/libexec Data files installed in: /usr/local/tmp/archive/install/share/GLFW-0.2 Documentation installed in: /usr/local/tmp/archive/install/share/doc/GLFW-0.2 Using alex version 2.3.1 found on system at: /usr/bin/alex Using ar found on system at: /usr/bin/ar Using c2hs version 0.16.0 found on system at: /usr/local/bin/c2hs Using cpphs version 1.11 found on system at: /usr/local/bin/cpphs Using ffihugs found on system at: /usr/local/bin/ffihugs Using gcc version 4.4.3 found on system at: /usr/bin/gcc Using ghc version 6.12.1 found on system at: /usr/local/bin/ghc Using ghc-pkg version 6.12.1 found on system at: /usr/local/bin/ghc-pkg Using greencard found on system at: /usr/local/tmp/archive/install/bin/greencard Using haddock version 2.7.2 found on system at: /usr/local/bin/haddock Using happy version 1.17 found on system at: /usr/local/bin/happy No hmake found Using hsc2hs version 0.67 found on system at: /usr/local/bin/hsc2hs Using hscolour version 1.16 found on system at: /usr/local/bin/HsColour Using hugs found on system at: /usr/local/bin/hugs No jhc found Using ld found on system at: /usr/bin/ld No lhc found No lhc-pkg found No nhc98 found Using pkg-config version 0.22 found on system at: /usr/bin/pkg-config Using ranlib found on system at: /usr/bin/ranlib Using strip found on system at: /usr/bin/strip Using tar found on system at: /bin/tar *** setup haddock setup/setup haddock --verbose --html-location=/packages/archive/$pkg/$version/doc/html --hyperlink-source Running Haddock for GLFW-0.2... /usr/local/bin/haddock --use-contents=/package/GLFW-0.2 --ghc-version Creating dist/build (and its parents) Creating dist/build/autogen (and its parents) Preprocessing library GLFW-0.2... Running hscolour for GLFW-0.2... Creating dist/doc/html/GLFW (and its parents) Creating dist/doc/html/GLFW/src (and its parents) /usr/local/bin/HsColour -print-css -odist/doc/html/GLFW/src/hscolour.css /usr/local/bin/HsColour -css -anchor -odist/doc/html/GLFW/src/Graphics-UI-GLFW.html Graphics/UI/GLFW.hs Warning: The documentation for the following packages are not installed. No links will be generated to these packages: ffi-1.0, rts-1.0 /usr/local/bin/ghc --print-libdir /usr/local/bin/ghc -E -cpp -x hs -optP-include -optPdist/build/autogen/cabal_macros.h -o dist/build/tmp5597/Graphics/UI/GLFW.hs Graphics/UI/GLFW.hs -Dlinux_BUILD_OS -Dlinux_HOST_OS -Di386_BUILD_ARCH -Di386_HOST_ARCH -D__GLASGOW_HASKELL__=612 -Iglfw/include -Iglfw/lib -Iglfw/lib/x11 Creating dist/doc/html/GLFW/ (and its parents) /usr/local/bin/haddock --use-contents=/package/GLFW-0.2 --prologue=dist/doc/html/GLFW/haddock-prolog5597.txt --dump-interface=dist/doc/html/GLFW/GLFW.haddock --optghc=-package-name --optghc=GLFW-0.2 --source-module=src/%{MODULE/./-}.html --source-entity=src/%{MODULE/./-}.html#%{NAME} --verbosity=1 --html --read-interface=/packages/archive/GLURaw/1.1.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/GLURaw-1.1.0.0/html/GLURaw.haddock --read-interface=/packages/archive/ObjectName/1.0.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/ObjectName-1.0.0.0/html/ObjectName.haddock --read-interface=/packages/archive/OpenGL/2.4.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/OpenGL-2.4.0.1/html/OpenGL.haddock --read-interface=/packages/archive/OpenGLRaw/1.1.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/OpenGLRaw-1.1.0.1/html/OpenGLRaw.haddock --read-interface=/packages/archive/StateVar/1.0.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/StateVar-1.0.0.0/html/StateVar.haddock --read-interface=/packages/archive/Tensor/1.0.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/Tensor-1.0.0.1/html/Tensor.haddock --read-interface=/packages/archive/base/4.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/base-4.2.0.0/base.haddock --read-interface=/packages/archive/ghc-prim/0.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/ghc-prim-0.2.0.0/ghc-prim.haddock --read-interface=/packages/archive/integer-gmp/0.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/integer-gmp-0.2.0.0/integer-gmp.haddock --odir=dist/doc/html/GLFW/ --title=GLFW-0.2: A binding for GLFW, An OpenGL Framework --optghc=-hide-all-packages --optghc=-fbuilding-cabal-package --optghc=-i --optghc=-idist/build --optghc=-i. --optghc=-idist/build/autogen --optghc=-Idist/build/autogen --optghc=-Idist/build --optghc=-Iglfw/include --optghc=-Iglfw/lib --optghc=-Iglfw/lib/x11 --optghc=-optP-include --optghc=-optPdist/build/autogen/cabal_macros.h --optghc=-odir --optghc=dist/build --optghc=-hidir --optghc=dist/build --optghc=-stubdir --optghc=dist/build --optghc=-package-id --optghc=OpenGL-2.4.0.1-287d3690a722567cbfbe052edaf296d0 --optghc=-package-id --optghc=base-4.2.0.0-c9182baf5cf44f2e72b2298fa160086c --optghc=-O --optghc=-XCPP --optghc=-XForeignFunctionInterface -B/usr/local/lib/ghc-6.12.1 dist/build/tmp5597/Graphics/UI/GLFW.hs Graphics/UI/GLFW.hs:520:22: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwOpenWindow', namely `w' In a stmt of a 'do' expression: e <- glfwOpenWindow w h r g b a d s (fromEnum mode) In the expression: do { let (r, g, b) = maybe ... id $ filterBits (\ x -> ...) bits a = maybe 0 id $ filterBits (\ x -> ...) bits ....; e <- glfwOpenWindow w h r g b a d s (fromEnum mode); writeIORef fontTextures []; return $ toEnum e } Graphics/UI/GLFW.hs:549:23: Couldn't match expected type `GL.GLsizei' against inferred type `Int32' In the first argument of `GL.Size', namely `w'' In the second argument of `($)', namely `GL.Size w' h'' In the expression: return $ GL.Size w' h' Graphics/UI/GLFW.hs:550:45: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwSetWindowSize', namely `w' In the expression: glfwSetWindowSize w h In the definition of `setter': setter (GL.Size w h) = glfwSetWindowSize w h Graphics/UI/GLFW.hs:568:25: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwWrapFun2'', namely `g' In a stmt of a 'do' expression: ptr <- glfwWrapFun2' g In the expression: do { let g w h = f (GL.Size w h); ptr <- glfwWrapFun2' g; glfwSetCallbackIORef glfwWindowsizefun ptr; glfwSetWindowSizeCallback ptr } Graphics/UI/GLFW.hs:639:27: Couldn't match expected type `GL.GLint' against inferred type `Int32' In the first argument of `GL.Position', namely `mx' In the second argument of `($)', namely `GL.Position mx my' In the expression: return $ GL.Position mx my Graphics/UI/GLFW.hs:640:47: Couldn't match expected type `Int32' against inferred type `GL.GLint' In the first argument of `glfwSetMousePos', namely `x' In the expression: glfwSetMousePos x y In the definition of `setter': setter (GL.Position x y) = glfwSetMousePos x y Graphics/UI/GLFW.hs:688:27: Couldn't match expected type `Int32' against inferred type `GL.GLint' In the first argument of `glfwWrapFun2'', namely `g' In a stmt of a 'do' expression: ptr <- glfwWrapFun2' g In the expression: do { let g x y = f $ GL.Position x y; ptr <- glfwWrapFun2' g; glfwSetCallbackIORef glfwMouseposfun ptr; glfwSetMousePosCallback ptr } Graphics/UI/GLFW.hs:822:4: No instance for (GL.TexCoordComponent Float) arising from a use of `GL.texCoord' at Graphics/UI/GLFW.hs:822:4-30 Possible fix: add an instance declaration for (GL.TexCoordComponent Float) In a stmt of a 'do' expression: GL.texCoord (texCoord2 x y) In the second argument of `GL.renderPrimitive', namely `(do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' In the second argument of `($)', namely `GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' Graphics/UI/GLFW.hs:823:4: No instance for (GL.VertexComponent Float) arising from a use of `GL.vertex' at Graphics/UI/GLFW.hs:823:4-28 Possible fix: add an instance declaration for (GL.VertexComponent Float) In a stmt of a 'do' expression: GL.vertex (vertex3 0 h 0) In the second argument of `GL.renderPrimitive', namely `(do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' In the second argument of `($)', namely `GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' Graphics/UI/GLFW.hs:830:2: No instance for (GL.MatrixComponent Float) arising from a use of `GL.translate' at Graphics/UI/GLFW.hs:830:2-29 Possible fix: add an instance declaration for (GL.MatrixComponent Float) In the expression: GL.translate (vector3 w 0 0) In the expression: do { let y = fromIntegral ((fromEnum c) `rem` 16 * 16) / 256 x = fromIntegral ((fromEnum c) `quot` 16 * 8) / 128 ....; GL.preservingMatrix $ GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); .... }); GL.translate (vector3 w 0 0) } In the definition of `renderChar': renderChar font c = do { let y = ... ....; GL.preservingMatrix $ GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); .... }); GL.translate (vector3 w 0 0) } *** Trying again with preferred-versions *** setup configure setup/setup configure --ghc --user --prefix=/usr/local/tmp/archive/install --haddock-option=--use-contents=/package/GLFW-0.2 --constraint=base<4 --constraint=parsec<3 --constraint=QuickCheck<2 --constraint=cabal-install<0.8 --verbose Warning: defaultUserHooks in Setup script is deprecated. Configuring GLFW-0.2... Warning: No 'build-type' specified. If you do not need a custom Setup.hs or ./configure script then use 'build-type: Simple'. Dependency OpenGL >=2.1: using OpenGL-2.4.0.1 Dependency base <4: using base-3.0.3.2 Using Cabal-1.8.0.2 compiled by ghc-6.12 Using compiler: ghc-6.12.1 Using install prefix: /usr/local/tmp/archive/install Binaries installed in: /usr/local/tmp/archive/install/bin Libraries installed in: /usr/local/tmp/archive/install/lib/GLFW-0.2/ghc-6.12.1 Private binaries installed in: /usr/local/tmp/archive/install/libexec Data files installed in: /usr/local/tmp/archive/install/share/GLFW-0.2 Documentation installed in: /usr/local/tmp/archive/install/share/doc/GLFW-0.2 Using alex version 2.3.1 found on system at: /usr/bin/alex Using ar found on system at: /usr/bin/ar Using c2hs version 0.16.0 found on system at: /usr/local/bin/c2hs Using cpphs version 1.11 found on system at: /usr/local/bin/cpphs Using ffihugs found on system at: /usr/local/bin/ffihugs Using gcc version 4.4.3 found on system at: /usr/bin/gcc Using ghc version 6.12.1 found on system at: /usr/local/bin/ghc Using ghc-pkg version 6.12.1 found on system at: /usr/local/bin/ghc-pkg Using greencard found on system at: /usr/local/tmp/archive/install/bin/greencard Using haddock version 2.7.2 found on system at: /usr/local/bin/haddock Using happy version 1.17 found on system at: /usr/local/bin/happy No hmake found Using hsc2hs version 0.67 found on system at: /usr/local/bin/hsc2hs Using hscolour version 1.16 found on system at: /usr/local/bin/HsColour Using hugs found on system at: /usr/local/bin/hugs No jhc found Using ld found on system at: /usr/bin/ld No lhc found No lhc-pkg found No nhc98 found Using pkg-config version 0.22 found on system at: /usr/bin/pkg-config Using ranlib found on system at: /usr/bin/ranlib Using strip found on system at: /usr/bin/strip Using tar found on system at: /bin/tar *** setup haddock setup/setup haddock --verbose --html-location=/packages/archive/$pkg/$version/doc/html --hyperlink-source Running Haddock for GLFW-0.2... /usr/local/bin/haddock --use-contents=/package/GLFW-0.2 --ghc-version Creating dist/build (and its parents) Creating dist/build/autogen (and its parents) Preprocessing library GLFW-0.2... Running hscolour for GLFW-0.2... Creating dist/doc/html/GLFW (and its parents) Creating dist/doc/html/GLFW/src (and its parents) /usr/local/bin/HsColour -print-css -odist/doc/html/GLFW/src/hscolour.css /usr/local/bin/HsColour -css -anchor -odist/doc/html/GLFW/src/Graphics-UI-GLFW.html Graphics/UI/GLFW.hs Warning: The documentation for the following packages are not installed. No links will be generated to these packages: base-3.0.3.2, ffi-1.0, rts-1.0 /usr/local/bin/ghc --print-libdir /usr/local/bin/ghc -E -cpp -x hs -optP-include -optPdist/build/autogen/cabal_macros.h -o dist/build/tmp5651/Graphics/UI/GLFW.hs Graphics/UI/GLFW.hs -Dlinux_BUILD_OS -Dlinux_HOST_OS -Di386_BUILD_ARCH -Di386_HOST_ARCH -D__GLASGOW_HASKELL__=612 -Iglfw/include -Iglfw/lib -Iglfw/lib/x11 Creating dist/doc/html/GLFW/ (and its parents) /usr/local/bin/haddock --use-contents=/package/GLFW-0.2 --prologue=dist/doc/html/GLFW/haddock-prolog5651.txt --dump-interface=dist/doc/html/GLFW/GLFW.haddock --optghc=-package-name --optghc=GLFW-0.2 --source-module=src/%{MODULE/./-}.html --source-entity=src/%{MODULE/./-}.html#%{NAME} --verbosity=1 --html --read-interface=/packages/archive/GLURaw/1.1.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/GLURaw-1.1.0.0/html/GLURaw.haddock --read-interface=/packages/archive/ObjectName/1.0.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/ObjectName-1.0.0.0/html/ObjectName.haddock --read-interface=/packages/archive/OpenGL/2.4.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/OpenGL-2.4.0.1/html/OpenGL.haddock --read-interface=/packages/archive/OpenGLRaw/1.1.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/OpenGLRaw-1.1.0.1/html/OpenGLRaw.haddock --read-interface=/packages/archive/StateVar/1.0.0.0/doc/html,/usr/local/tmp/archive/install/share/doc/StateVar-1.0.0.0/html/StateVar.haddock --read-interface=/packages/archive/Tensor/1.0.0.1/doc/html,/usr/local/tmp/archive/install/share/doc/Tensor-1.0.0.1/html/Tensor.haddock --read-interface=/packages/archive/base/4.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/base-4.2.0.0/base.haddock --read-interface=/packages/archive/ghc-prim/0.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/ghc-prim-0.2.0.0/ghc-prim.haddock --read-interface=/packages/archive/integer-gmp/0.2.0.0/doc/html,/usr/local/share/doc/ghc/html/libraries/integer-gmp-0.2.0.0/integer-gmp.haddock --read-interface=/packages/archive/syb/0.1.0.2/doc/html,/usr/local/share/doc/ghc/html/libraries/syb-0.1.0.2/syb.haddock --odir=dist/doc/html/GLFW/ --title=GLFW-0.2: A binding for GLFW, An OpenGL Framework --optghc=-hide-all-packages --optghc=-fbuilding-cabal-package --optghc=-i --optghc=-idist/build --optghc=-i. --optghc=-idist/build/autogen --optghc=-Idist/build/autogen --optghc=-Idist/build --optghc=-Iglfw/include --optghc=-Iglfw/lib --optghc=-Iglfw/lib/x11 --optghc=-optP-include --optghc=-optPdist/build/autogen/cabal_macros.h --optghc=-odir --optghc=dist/build --optghc=-hidir --optghc=dist/build --optghc=-stubdir --optghc=dist/build --optghc=-package-id --optghc=OpenGL-2.4.0.1-287d3690a722567cbfbe052edaf296d0 --optghc=-package-id --optghc=base-3.0.3.2-52acef427378232ec569bca0486ee48f --optghc=-O --optghc=-XCPP --optghc=-XForeignFunctionInterface -B/usr/local/lib/ghc-6.12.1 dist/build/tmp5651/Graphics/UI/GLFW.hs Graphics/UI/GLFW.hs:520:22: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwOpenWindow', namely `w' In a stmt of a 'do' expression: e <- glfwOpenWindow w h r g b a d s (fromEnum mode) In the expression: do { let (r, g, b) = maybe ... id $ filterBits (\ x -> ...) bits a = maybe 0 id $ filterBits (\ x -> ...) bits ....; e <- glfwOpenWindow w h r g b a d s (fromEnum mode); writeIORef fontTextures []; return $ toEnum e } Graphics/UI/GLFW.hs:549:23: Couldn't match expected type `GL.GLsizei' against inferred type `Int32' In the first argument of `GL.Size', namely `w'' In the second argument of `($)', namely `GL.Size w' h'' In the expression: return $ GL.Size w' h' Graphics/UI/GLFW.hs:550:45: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwSetWindowSize', namely `w' In the expression: glfwSetWindowSize w h In the definition of `setter': setter (GL.Size w h) = glfwSetWindowSize w h Graphics/UI/GLFW.hs:568:25: Couldn't match expected type `Int32' against inferred type `GL.GLsizei' In the first argument of `glfwWrapFun2'', namely `g' In a stmt of a 'do' expression: ptr <- glfwWrapFun2' g In the expression: do { let g w h = f (GL.Size w h); ptr <- glfwWrapFun2' g; glfwSetCallbackIORef glfwWindowsizefun ptr; glfwSetWindowSizeCallback ptr } Graphics/UI/GLFW.hs:639:27: Couldn't match expected type `GL.GLint' against inferred type `Int32' In the first argument of `GL.Position', namely `mx' In the second argument of `($)', namely `GL.Position mx my' In the expression: return $ GL.Position mx my Graphics/UI/GLFW.hs:640:47: Couldn't match expected type `Int32' against inferred type `GL.GLint' In the first argument of `glfwSetMousePos', namely `x' In the expression: glfwSetMousePos x y In the definition of `setter': setter (GL.Position x y) = glfwSetMousePos x y Graphics/UI/GLFW.hs:688:27: Couldn't match expected type `Int32' against inferred type `GL.GLint' In the first argument of `glfwWrapFun2'', namely `g' In a stmt of a 'do' expression: ptr <- glfwWrapFun2' g In the expression: do { let g x y = f $ GL.Position x y; ptr <- glfwWrapFun2' g; glfwSetCallbackIORef glfwMouseposfun ptr; glfwSetMousePosCallback ptr } Graphics/UI/GLFW.hs:822:4: No instance for (GL.TexCoordComponent Float) arising from a use of `GL.texCoord' at Graphics/UI/GLFW.hs:822:4-30 Possible fix: add an instance declaration for (GL.TexCoordComponent Float) In a stmt of a 'do' expression: GL.texCoord (texCoord2 x y) In the second argument of `GL.renderPrimitive', namely `(do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' In the second argument of `($)', namely `GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' Graphics/UI/GLFW.hs:823:4: No instance for (GL.VertexComponent Float) arising from a use of `GL.vertex' at Graphics/UI/GLFW.hs:823:4-28 Possible fix: add an instance declaration for (GL.VertexComponent Float) In a stmt of a 'do' expression: GL.vertex (vertex3 0 h 0) In the second argument of `GL.renderPrimitive', namely `(do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' In the second argument of `($)', namely `GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); GL.vertex (vertex3 w h 0); GL.texCoord (texCoord2 (x + dx) (y + dy)); .... })' Graphics/UI/GLFW.hs:830:2: No instance for (GL.MatrixComponent Float) arising from a use of `GL.translate' at Graphics/UI/GLFW.hs:830:2-29 Possible fix: add an instance declaration for (GL.MatrixComponent Float) In the expression: GL.translate (vector3 w 0 0) In the expression: do { let y = fromIntegral ((fromEnum c) `rem` 16 * 16) / 256 x = fromIntegral ((fromEnum c) `quot` 16 * 8) / 128 ....; GL.preservingMatrix $ GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); GL.texCoord (texCoord2 (x + dx) y); .... }); GL.translate (vector3 w 0 0) } In the definition of `renderChar': renderChar font c = do { let y = ... ....; GL.preservingMatrix $ GL.renderPrimitive GL.Quads (do { GL.texCoord (texCoord2 x y); GL.vertex (vertex3 0 h 0); .... }); GL.translate (vector3 w 0 0) }