Cleanup

src/Dodge/Render/HUD.hs

@@ -111,7 +111,7 @@ displayInv n cfig w = listTextPicturesAt 0 0 cfig invlist
         Nothing -> mempty
         Just (i,_) -> listCursorAt 50 0 cfig (selNumPos i w) blue 15 (invSelSize i w)
     inv = _crInv cr
-    invlist = (concatMap itemToTextPictures $ IM.elems inv) 
+    invlist = concatMap itemText (IM.elems inv)
         ++ displayFreeSlots ++ concatMap (closeObjectToTextPictures nfreeslots) (_closeObjects w)
     nfreeslots = crNumFreeSlots cr
     displayFreeSlots = case nfreeslots of
@@ -208,10 +208,6 @@ mapWall cfig w wl =
 mainListCursor :: Color -> Int -> Configuration -> Picture
 mainListCursor c = openCursorAt 120 c 5 0
 
-itemToTextPictures :: Item -> [Picture]
-itemToTextPictures it = itemText it
-
-
 itemText :: Item -> [Picture]
 {-# INLINE itemText #-}
 itemText it = case _itCurseStatus it of