Work on menus

src/Dodge/Render/Picture.hs

@@ -14,10 +14,10 @@ import Picture
 
 fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures u =
-    drawConcurrentMessage u <> customMouseCursor cfig (u ^. uvWorld) <> case u ^. uvScreenLayers of
-        [] -> hudDrawings u
-        (lay : _) -> (setDepth (-1) $ menuScreen' u lay) 
-            <> (setDepth (-1) . winScale cfig $ menuScreen u lay)
+    drawConcurrentMessage u <> customMouseCursor cfig (u ^. uvWorld . input) <> case u ^. uvScreenLayers of
+        [] -> drawHUD u
+        (lay : _) -> setDepth (-1) (menuScreen' cfig lay)
+--            <> (setDepth (-1) . winScale cfig $ menuScreen cfig lay)
   where
     cfig = _uvConfig u
 
@@ -33,9 +33,9 @@ drawConcurrentMessage u =
     f (RunningSideEffect ce) = ce ++ " IN PROGRESS"
     f x = _ceString x ++ " QUEUED"
 
-customMouseCursor :: Configuration -> World -> Picture
-customMouseCursor cfig w =
+customMouseCursor :: Configuration -> Input -> Picture
+customMouseCursor cfig inp =
     winScale cfig
-        . uncurryV translate (_mousePos (_input w))
+        . uncurryV translate (_mousePos inp)
         . color white
         $ pictures [line [V2 (-5) 0, V2 5 0], line [V2 0 (-5), V2 0 5]]