Fix rb scrolling

src/Dodge/Combine/Combinations.hs

@@ -1,6 +1,9 @@
 {-# LANGUAGE TupleSections #-}
 
-module Dodge.Combine.Combinations where
+module Dodge.Combine.Combinations 
+    ( itemCombinations
+    , bulletWeapons
+    ) where
 
 import Dodge.Data.Item
 import Dodge.Item
@@ -8,7 +11,10 @@ import LensHelp
 
 watchCombinations :: [([(ItAmount, ItemBaseType)], Item)]
 watchCombinations =
-    [ po [LEFT STOPWATCH, LEFT REWINDWATCH] scrollWatch]
+    [ po [LEFT STOPWATCH, LEFT REWINDWATCH] scrollWatch
+    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT HARDDRIVE] scrollWatch
+    , po [CRAFT TIMEMODULE, CRAFT MICROCHIP, CRAFT RAM] scrollWatch
+    ]
   where
     po xs it = (map o xs, it)
     o = (1,)