Cleanup. Probable leak when inventory is large enough for scrolling

src/Dodge/Render/HUD.hs

@@ -158,7 +158,7 @@ drawDragSelecting cfig w = do
 
 drawSubInventory :: SubInventory -> Configuration -> World -> Picture
 drawSubInventory subinv cfig w = case subinv of
-    LockedInventory -> mempty -- topInvCursor col cursPos cfig w
+--    LockedInventory -> mempty -- topInvCursor col cursPos cfig w
     NoSubInventory{} -> drawRBOptions cfig w
     ExamineInventory -> drawExamineInventory cfig w
     DisplayTerminal tid -> drawTerminalDisplay tid cfig (w ^. cWorld . lWorld)

src/Dodge/Render/HUD/Carte.hs

@@ -1,6 +1,6 @@
-module Dodge.Render.HUD.Carte 
-    ( drawCarte
-    ) where
+module Dodge.Render.HUD.Carte (
+    drawCarte,
+) where
 
 import Control.Lens
 import Dodge.Base