Cleanup

src/Dodge/Render/HUD.hs

@@ -253,9 +253,9 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
         | otherwise = []
 
 lnkMidPosInvSelsCol :: Configuration -> World -> Int -> Color -> [Int] -> Picture
-lnkMidPosInvSelsCol cfig w i col = foldMap f
+lnkMidPosInvSelsCol cfig w i col = fromMaybe mempty . foldMap f
   where
-    f j = fromMaybe mempty $ do
+    f j = do
         sss <- w ^? hud . hudElement . diSections
         combinesss <- w ^? hud . hudElement . subInventory . ciSections
         lp <- selNumPos cfig (invDisplayParams w) sss 0 j
@@ -281,11 +281,6 @@ invHead cfig =
 --    h :: String -> Point2 -> Point2
 --    h s (V2 x y) = V2 (x + 9 * fromIntegral (length s)) y
 
---selectedCloseObjectLink :: Configuration -> World -> Picture
---selectedCloseObjectLink cfig w = mempty
-
--- | Pictures of popup text for items close to your position.
-
 --closeObjectTexts :: Configuration -> World -> Picture
 --closeObjectTexts cfig w = pictures $
 --    renderListAt pushout (negate 20 * fromIntegral invPos) cfig (map colAndText $ _closeObjects w)