Work on mouse selection in menus

src/Dodge/Render/ShapePicture.hs

@@ -40,12 +40,9 @@ import ShapePicture
 import ShortShow
 import Sound.Data
 
-singleSPic :: SPic -> SPic
-singleSPic = id
-
 worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w =
-    singleSPic (mempty, extraPics cfig w)
+    (mempty, extraPics cfig w)
         <> foldup drawProp' (filtOn _prPos _props)
         <> foldup drawProjectile (filtOn _prjPos _projectiles)
         <> foldup (shiftDraw _blPos _blDir (drawBlock . _blDraw)) (filtOn _blPos _blocks)
@@ -55,7 +52,7 @@ worldSPic cfig w =
         <> foldup floorItemSPic (filtOn _flItPos _floorItems)
         <> foldup btSPic (filtOn _btPos _buttons)
         <> foldup mcSPic (filtOn _mcPos _machines)
-        <> singleSPic (anyTargeting cfig w)
+        <> anyTargeting cfig w
   where
     foldup = foldMap'
     filtOn f g = IM.filter (pointIsClose . f) (g (_lWorld (_cWorld w)))