Work on mapper item, simpler generation of items from console

src/Dodge/Data/Item/Combine.hs

@@ -24,6 +24,7 @@ data ItemType
     | ITEMSCAN
     | MAPPER
     | INTROSCAN {_ibtIntroScanType :: IntroScanType}
+    | DETECTOR {_ibtDetector :: Detector}
     deriving (Eq, Ord, Show, Read)
 
 data IntroScanType
@@ -161,7 +162,6 @@ data HeldItemType
     | TORCH
     | FLATSHIELD
     | KEYCARD Int
-    | DETECTOR Detector
     | BLINKER
     | BLINKERUNSAFE
     deriving (Eq, Ord, Show, Read) --Generic, Flat)