Simplify updating selection sections

src/Dodge/Update/Input.hs

@@ -6,6 +6,7 @@ module Dodge.Update.Input (
     doRegexInput,
 ) where
 
+import Dodge.Default.World
 import Data.Char
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
@@ -256,7 +257,7 @@ spaceAction w = case w ^?! hud . hudElement of
 toggleMap :: Universe -> Universe
 toggleMap u = case u ^?! uvWorld . hud . hudElement of
     DisplayCarte -> u & uvWorld . hud . hudElement 
-        .~ DisplayInventory{_subInventory = NoSubInventory, _diSections = defaultDisplaySections}
+        .~ DisplayInventory{_subInventory = NoSubInventory, _diSections = defaultInvSections}
     _ -> u & uvWorld . hud . hudElement .~ DisplayCarte
 
 toggleTweakInv :: World -> World