Separate out input datatype

2022-10-29 11:36:57 +01:00
parent 82e2a5a234
commit af6cdff063
19 changed files with 160 additions and 112 deletions
@@ -46,6 +46,6 @@ drawConcurrentMessage u = case u ^. uvConcEffects of
 customMouseCursor :: Configuration -> World -> Picture
 customMouseCursor cfig w =
    winScale cfig
-        . uncurryV translate (_mousePos w)
+        . uncurryV translate (_mousePos (_input w))
        . color white
        $ pictures [line [V2 (-5) 0, V2 5 0], line [V2 0 (-5), V2 0 5]]