Remove section-wide indentation

src/Dodge/Default/World.hs

@@ -175,13 +175,12 @@ defaultInvSections :: IM.IntMap (SelectionSection ())
 defaultInvSections = IM.fromDistinctAscList $
                 zip
                     [-2 ..]
-                    [ defaultSS & ssDescriptor .~ "STATUS"
+                    [ defaultSS
                         & ssItems .~ IM.fromAscList [(0,SelectionItem ["STATUS"] 1 False white 0 ())]
                     , defaultFiltSection
                     , defaultInvSection
                     , defaultYouSection
-                    , defaultFiltSection & ssIndent .~ 2
-                        & ssDescriptor .~ "NEARBY"
+                    , defaultFiltSection
                     , defaultCOSection
                     ]
 
@@ -191,29 +190,20 @@ defaultSS =
         { _ssItems = mempty
         , _ssOffset = 0
         , _ssShownItems = []
-        , _ssIndent = 0
-        , _ssDescriptor = ""
         }
 
 defaultCOSection :: SelectionSection ()
 defaultCOSection =
     defaultSS
-        & ssIndent .~ 2
-        & ssDescriptor .~ "CLOSE OBJECTS"
 
 defaultFiltSection :: SelectionSection a
 defaultFiltSection =
     defaultSS
-        & ssIndent .~ 0
-        & ssDescriptor .~ "INV"
 
 defaultInvSection :: SelectionSection ()
 defaultInvSection =
     defaultSS
-        & ssDescriptor .~ "INVENTORY ITEMS"
 
 defaultYouSection :: SelectionSection ()
 defaultYouSection =
     defaultSS
-        & ssIndent .~ 2
-        & ssDescriptor .~ "YOUR STATUS"