Shuffle regexes

src/Dodge/Data/HUD.hs

@@ -17,6 +17,8 @@ data HUDElement
     = DisplayInventory 
         { _subInventory :: SubInventory
         , _diSections :: SelectionSections ()
+        , _invRegex :: Maybe String
+        , _closeRegex :: Maybe String
         }
     | DisplayCarte
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -20,8 +20,6 @@ data LoadAction
 data Manipulation -- should be ManipulatedObject?
     -- = InvSel {_isel :: SelPos}
     = Manipulator {_manObject :: ManipulatedObject
-        , _invRegex :: Maybe String
-        , _closeRegex :: Maybe String
         }
     | Brute
     deriving (Eq, Ord, Show, Read) --Generic, Flat)