cabal new-build
...
[12 of 13] Compiling Wires.Game       ( Wires/Game.hs, /Users/csaba/Haskell/hs-quake-3/dist-newstyle/build/quake3-bsp-viewer-0.1.0.0/build/quake3-bsp-viewer/quake3-bsp-viewer-tmp/Wires/Game.o )

Wires/Game.hs:131:11: error:
    • Couldn't match type ‘f’ with ‘(->) Double’
      ‘f’ is a rigid type variable bound by
        the type signature for:
          game :: forall (f :: * -> *) a t.
                  (Monoid (f (GLIO a)), Functor f) =>
                  BSPFile
                  -> [GLuint]
                  -> Map.Map Parser.Texture (Maybe GLObjects.Texture -> f a)
                  -> UniformLocation
                  -> Wire IO t (Event (Double, Viewport (f (GLIO a))), Event ())
        at Wires/Game.hs:62:6
      Expected type: IntMap.IntMap (Double -> GLIO a)
        Actual type: IntMap.IntMap (f (GLIO a))
    • In the third argument of ‘IntMap.foldlWithKey'’, namely
        ‘clusters’
      In the expression:
        IntMap.foldlWithKey'
          (\ s clusterNumber clusterScene
             -> if clusterVisible
                     (bspVisData bspFile)
                     (fromIntegral currentCluster)
                     (fromIntegral clusterNumber) then
                    clusterScene tGame <> s
                else
                    s)
          mempty
          clusters
      In an equation for ‘scene’:
          scene
            = IntMap.foldlWithKey'
                (\ s clusterNumber clusterScene
                   -> if clusterVisible
                           (bspVisData bspFile)
                           (fromIntegral currentCluster)
                           (fromIntegral clusterNumber) then
                          clusterScene tGame <> s
                      else
                          s)
                mempty
                clusters
    • Relevant bindings include
        clusters :: IntMap.IntMap (f (GLIO a))
          (bound at Wires/Game.hs:145:3)
        compiledShaders :: Map.Map
                             Parser.Texture (Maybe GLObjects.Texture -> f a)
          (bound at Wires/Game.hs:68:24)
        game :: BSPFile
                -> [GLuint]
                -> Map.Map Parser.Texture (Maybe GLObjects.Texture -> f a)
                -> UniformLocation
                -> Wire IO t (Event (Double, Viewport (f (GLIO a))), Event ())
          (bound at Wires/Game.hs:68:1)

Wires/Game.hs:137:16: error:
    • Couldn't match type ‘a’ with ‘GLIO a’
      ‘a’ is a rigid type variable bound by
        the type signature for:
          game :: forall (f :: * -> *) a t.
                  (Monoid (f (GLIO a)), Functor f) =>
                  BSPFile
                  -> [GLuint]
                  -> Map.Map Parser.Texture (Maybe GLObjects.Texture -> f a)
                  -> UniformLocation
                  -> Wire IO t (Event (Double, Viewport (f (GLIO a))), Event ())
        at Wires/Game.hs:62:6
      Expected type: Event (Double, Viewport (f (GLIO a)))
        Actual type: Event (Double, Viewport (GLIO a))
    • In the expression:
        (tGame, viewport (0, 0, windowWidth, windowHeight) scene)
        <$ rendered
      In the expression:
        ((tGame, viewport (0, 0, windowWidth, windowHeight) scene)
         <$ rendered,
         Control.Monad.void
         $ filterJust $ fmap (preview (payload . _KeyboardEvent)) sdlEvent)
      In the command: returnA -< ((tGame,
                                   viewport (0, 0, windowWidth, windowHeight) scene)
                                  <$ rendered,
                                  Control.Monad.void
                                  $ filterJust $ fmap (preview (payload . _KeyboardEvent)) sdlEvent)
    • Relevant bindings include
        scene :: GLIO a (bound at Wires/Game.hs:122:7)
        clusters :: IntMap.IntMap (f (GLIO a))
          (bound at Wires/Game.hs:145:3)
        compiledShaders :: Map.Map
                             Parser.Texture (Maybe GLObjects.Texture -> f a)
          (bound at Wires/Game.hs:68:24)
        game :: BSPFile
                -> [GLuint]
                -> Map.Map Parser.Texture (Maybe GLObjects.Texture -> f a)
                -> UniformLocation
                -> Wire IO t (Event (Double, Viewport (f (GLIO a))), Event ())
          (bound at Wires/Game.hs:68:1)