Hpong errors in Arch installation

HPong.hs:108:4:
    No instance for (ColorComponent Double)
      arising from a use of `color' at HPong.hs:108:4-8
    Possible fix:
      add an instance declaration for (ColorComponent Double)
    In the first argument of `($)', namely `color'
    In a stmt of a 'do' expression: color $ color3 1 0 0
    In the expression:
        do { (Game ps cs py cy bx by _ _) <- get game;
             clear [ColorBuffer, DepthBuffer];
               color $ color3 1 0 0;
             rectangle paddleX py paddleW paddleH;
             .... }

HPong.hs:115:8:
    No instance for (MatrixComponent Float)
      arising from a use of `translate' at HPong.hs:115:8-16
    Possible fix:
      add an instance declaration for (MatrixComponent Float)
    In the first argument of `($)', namely `translate'
    In a stmt of a 'do' expression:
          translate $ Vector3 50 350 (0 :: Float)
    In the second argument of `($)', namely
        `do { translate $ Vector3 50 350 (0 :: Float);
                renderString Fixed8x16 . ("You: " ++) $ show ps;
              translate $ Vector3 450 0 (0 :: Float);
                renderString Fixed8x16 . ("CPU: " ++) $ show cs }'

HPong.hs:128:51:
    No instance for (VertexComponent Double)
      arising from a use of `vertex' at HPong.hs:128:51-56
    Possible fix:
      add an instance declaration for (VertexComponent Double)
    In the first argument of `(.)', namely `vertex'
    In the first argument of `mapM_', namely `(vertex . vert2D)'
    In the second argument of `($)', namely
        `mapM_
           (vertex . vert2D)
           [(x - w / 2, y - h / 2), (x + w / 2, y - h / 2),
            (x + w / 2, y + h / 2), (x - w / 2, y + h / 2)]'