Unify debug pictures

src/Dodge/Data/Config.hs

@@ -88,8 +88,8 @@ data DebugBool
     | Show_walls_near_point_you
     | Show_walls_near_segment
     | Show_zone_near_point_cursor
+    | Show_zone_circ
     | Inspect_wall
-    | Show_nodes_near_select
     | Show_path_between
     | Select_creature
     deriving (Eq, Ord, Bounded, Enum, Show)

src/Dodge/Data/Universe.hs

@@ -49,8 +49,8 @@ data Universe = Universe
     }
 
 data DebugItem = DebugItem
-    { _debugPic :: Universe -> Picture
-    , _debugMessage :: Universe -> [String]
+    { _debugPic :: Picture
+    , _debugMessage :: [String]
     , _debugInfo :: DebugInfo
     }