Add Read instances

src/Dodge/Data/Item.hs

@@ -3,9 +3,13 @@
 module Dodge.Data.Item 
     ( module Dodge.Data.Item
     , module Dodge.Data.Item.Misc
+    , module Dodge.Data.Item.Tweak
+    , module Dodge.Data.Item.Params
+    , module Dodge.Data.Item.Use
     ) where
 import Control.Lens
 import Dodge.Data.Item.Misc
+import Dodge.Data.Item.Tweak
 import Dodge.Data.Item.Consumption
 import Dodge.Data.Item.Use
 import Dodge.Data.Item.Params
@@ -36,19 +40,13 @@ data Item = Item
     , _itValue      :: ItemValue
     , _itParams     :: ItemParams
     }
+   deriving (Show,Read)
 data ItemTweaks
     = NoTweaks
     | Tweakable
         { _tweakParams :: IM.IntMap TweakParam
         , _tweakSel    :: Int
         }
-data TweakParam = TweakParam
-        { _doTweak :: Int -> Item -> Item
-        , _curTweak  :: Int
-        , _maxTweak  :: Int
-        , _showTweak :: Int -> String
-        , _nameTweak :: String
-        }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Item
 makeLenses ''ItemTweaks
-makeLenses ''TweakParam