Commit before messing with main inventory display

src/Dodge/Render/HUD.hs

@@ -38,7 +38,7 @@ import SDL (MouseButton (..))
 drawHUD :: Configuration -> World -> Picture
 drawHUD cfig w = case w ^. hud . hudElement of
     DisplayCarte -> drawCarte cfig w
-    DisplayInventory subinv ->
+    DisplayInventory {_diSections = sections, _subInventory = subinv} ->
         drawInGameHUD sl cfig w
             <> drawSubInventory subinv cfig w
   where
@@ -241,7 +241,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
     toselitm (str, col) = SelectionItem [str] 1 True (length str) col 0 ()
     thesellist tm = defaultSelectionList 
         { _slItems = thelist tm
-        , _slLength = length (thelist tm)
+--        , _slLength = length (thelist tm)
         }
     thelist tm =
         map toselitm . displayTermInput tm