Add Read instances

src/Dodge/Data/Item/Misc.hs

@@ -9,6 +9,7 @@ data ItemDimension = ItemDimension
     , _dimCenter    :: Point3
     , _dimAttachPos :: Point3
     }
+  deriving (Eq,Ord,Show,Read)
 data ItemPortage 
     = HeldItem
         { _handlePos :: Float
@@ -16,16 +17,20 @@ data ItemPortage
         }
     | WornItem
     | NoPortage
+  deriving (Eq,Ord,Show,Read)
 
 data ItemValue = ItemValue
     { _ivInt :: Int
     , _ivType :: ItemValueType
     }
+  deriving (Eq,Ord,Show,Read)
 data ItemValueType = MundaneItem | ArtefactItem
+  deriving (Eq,Ord,Show,Read)
 data ItemPos 
     = InInv   { _ipCrID :: Int , _ipInvID :: Int }
     | OnFloor { _ipFlID :: Int }
     | VoidItm
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''ItemDimension
 makeLenses ''ItemPortage
 makeLenses ''ItemValue