Implement generalised storing of position for mouse presses

src/Dodge/Render/ShapePicture.hs

@@ -167,7 +167,7 @@ extraPics cfig u =
 debugDraw :: Configuration -> World -> Picture
 {-# INLINE debugDraw #-}
 debugDraw cfig w
-    | Show_debug `Set.member` _debug_booleans cfig =
+    | Enable_debug `Set.member` _debug_booleans cfig =
         pic
             <> setLayer FixedCoordLayer (listPicturesAt (0.5 * halfWidth cfig) 0 cfig $ map text ts)
     | otherwise = mempty
@@ -178,7 +178,7 @@ debugDraw cfig w
 debugDraw' :: Configuration -> World -> DebugBool -> Picture
 {-# INLINE debugDraw' #-}
 debugDraw' cfig w bl = case bl of
-    Show_debug -> mempty
+    Enable_debug -> mempty
     Noclip -> mempty
     Remove_LOS -> mempty
     Cull_more_lights -> mempty