Cleanup close items code

src/Dodge/Render/HUD.hs

@@ -159,7 +159,8 @@ drawSubInventory subinv cfig w = case subinv of
     --    LockedInventory -> mempty -- topInvCursor col cursPos cfig w
     NoSubInventory{} -> drawRBOptions cfig w
     ExamineInventory -> drawExamineInventory cfig w
-    DisplayTerminal tid -> foldMap (drawTerminalDisplay cfig) (w ^? cWorld . lWorld . terminals . ix tid)
+    DisplayTerminal tid -> foldMap (drawTerminalDisplay cfig) 
+        (w ^? cWorld . lWorld . terminals . ix tid)
     CombineInventory{_ciSections = sss} -> drawCombineInventory cfig sss w
     MapperInventory _ _ itid -> drawMapperInventory itid w
 
@@ -354,14 +355,14 @@ combineInventoryExtra sss msel cfig w = fold $ do
                     sss'
                     (Just (0, i))
 
---drawTerminalDisplay :: Int -> Configuration -> LWorld -> Picture
 drawTerminalDisplay :: Configuration -> Terminal -> Picture
-drawTerminalDisplay cfig tm =         invHead cfig ("T-" ++ show tid)
-            <> drawSelectionList secondColumnParams cfig f
-            <> color
-                (withAlpha 0.5 green) -- consider integrating termScreenColor somehow
-                (drawSelectionListBackground secondColumnParams cfig tsize)
-            <> color (dark $ _tmExternalColor tm) (drawTitleBackground cfig)
+drawTerminalDisplay cfig tm =
+    invHead cfig ("T-" ++ show tid)
+        <> drawSelectionList secondColumnParams cfig f
+        <> color
+            (withAlpha 0.5 green) -- consider integrating termScreenColor somehow
+            (drawSelectionListBackground secondColumnParams cfig tsize)
+        <> color (dark $ _tmExternalColor tm) (drawTitleBackground cfig)
   where
     tid = tm ^. tmID
     tsize = getMaxLinesTM + 1