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)]'