Refactor world events

src/Dodge/Render/HUD.hs

@@ -2,6 +2,7 @@
 module Dodge.Render.HUD
     ( hudDrawings
     ) where
+import Dodge.WorldPos
 import Dodge.Data
 import Dodge.Tweak.Show
 import Dodge.Item.Display
@@ -310,7 +311,7 @@ drawCarte cfig w = pictures $
   where
     iPos = _selLocation w
     locs = map (\(_,s) -> (s,white)) . IM.elems . _seenLocations $ w
-    locPoss = map (cartePosToScreen cfig w . ($ w) . fst) . IM.elems . _seenLocations $ w
+    locPoss = map (cartePosToScreen cfig w . ($ w) . doWorldPos . fst) . IM.elems . _seenLocations $ w
     locTexts = map fst locs
 
 displayListEndCoords :: Configuration -> [String] -> [Point2]