Fix rb scrolling

src/Dodge/Data/Item/Combine.hs

@@ -46,6 +46,8 @@ data CraftType
     | PLATE
     | TRANSMITTER
     | MICROCHIP
+    | HARDDRIVE
+    | RAM
     | AIUNIT
     | CAMERA
     | MINIDISPLAY -- visual display unit
@@ -102,7 +104,9 @@ data EquipItemType
     | POWERLEGS
     | SPEEDLEGS
     | JUMPLEGS
+
     | JETPACK
+
     | AUTODETECTOR Detector
     deriving (Eq,Ord,Show,Read)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)

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