Add Read instances

src/Dodge/Combine/Data.hs

@@ -12,10 +12,10 @@ data ItemType = ItemType
     ,_iyModules :: M.Map ModuleSlot ItemModuleType
     ,_iyStack   :: Stack
     }
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 
 data Stack = NoStack | Stack IcAmount
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 
 data CraftType
     = PIPE
@@ -200,8 +200,7 @@ data ItemModuleType
     | LAUNCHHOME
     | EXTRABATTERY
     | ATTACHTORCH
-  deriving (Eq,Ord,Show)
-
+  deriving (Eq,Ord,Show,Read)
 data Detector
     = ITEMDETECTOR
     | CREATUREDETECTOR
@@ -220,7 +219,7 @@ data ModuleSlot
     | ModTeleport
     | ModDualBeam
     | ModHeldAttach
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 
 makeLenses ''ItemType
 makeLenses ''ItemBaseType