Remove separate status from selection list

src/Dodge/DisplayInventory.hs

@@ -121,7 +121,7 @@ displaySectionsSizes 3 = 10
 displaySectionsSizes _ = 3
 
 displayIndents :: Int -> Int
-displayIndents (-3) = 2
+--displayIndents (-3) = 2
 displayIndents 0 = 2
 displayIndents 3 = 2
 displayIndents 5 = 2
@@ -138,9 +138,7 @@ updateDisplaySections w cfig =
         displayIndents
         mselpos
         (getAvailableListLines invDP cfig)
-        [ statushead
-        , statusdisplay
-        , invhead
+        [ invhead
         , invx
         , youx
         , nearbyhead
@@ -171,8 +169,6 @@ updateDisplaySections w cfig =
         IM.fromDistinctAscList . zip [0 ..] $
             mapMaybe (closeButtonToSelectionItem w) (w ^. hud . closeButtons)
     makehead str i = (i, IM.singleton 0 $ SelectionInfo [str] 1 15 False white 0)
-    statushead = (-4, IM.singleton 0 $ SelectionInfo ["STATUS"] 1 15 False white 0)
-    statusdisplay = (-3, IM.singleton 0 $ SelectionInfo ["HEALTH: " ++ show (_crHP cr)] 1 15 False white 0)
     invhead = if null sfinv then makehead "INVENTORY" (-1) else filtinv
     youitems = IM.singleton 0 $ SelectionItem [thetext] 1 15 True invDimColor 2 ()
     thetext = displayFreeSlots (crNumFreeSlots cr)