Fix rb scrolling

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

@@ -18,7 +18,9 @@ data LoadAction
     | LoadPrime {_actionTime :: Int, _actionSound :: SoundID}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data InvSel = InvSel {_iselPos :: Int, _iselAction :: InvSelAction}
+data InvSel 
+    = InvSel {_iselPos :: Int, _iselAction :: InvSelAction}
+    | Brute
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data InvSelAction