Comment out ItemValue

src/Dodge/Data/Item.hs

@@ -47,7 +47,7 @@ data Item = Item
     , _itCurseStatus :: CurseStatus
     , _itTweaks :: ItemTweaks
     , _itScope :: Scope
-    , _itValue :: ItemValue
+    --, _itValue :: ItemValue
     , _itParams :: ItemParams
     }
     deriving (Eq, Show, Read, Generic, Flat)

src/Dodge/Data/Item/Misc.hs

@@ -28,19 +28,19 @@ data ItemPortage
     | NoPortage
     deriving (Eq, Show, Read, Generic, Flat)
 
-data ItemValue = ItemValue
+--data ItemValue = ItemValue
-    { _ivInt :: Int
+--    { _ivInt :: Int
-    , _ivType :: ItemValueType
+--    , _ivType :: ItemValueType
-    }
+--    }
-    deriving (Eq, Show, Read, Generic, Flat)
+--    deriving (Eq, Show, Read, Generic, Flat)
-
+--
-data ItemValueType = MundaneItem | ArtefactItem
+--data ItemValueType = MundaneItem | ArtefactItem
-    deriving (Eq, Show, Read, Generic, Flat)
+--    deriving (Eq, Show, Read, Generic, Flat)
 
 makeLenses ''ItemDimension
 makeLenses ''ItemPortage
-makeLenses ''ItemValue
+--makeLenses ''ItemValue
 deriveJSON defaultOptions ''ItemDimension
 deriveJSON defaultOptions ''ItemPortage
-deriveJSON defaultOptions ''ItemValue
+--deriveJSON defaultOptions ''ItemValue
-deriveJSON defaultOptions ''ItemValueType
+--deriveJSON defaultOptions ''ItemValueType

src/Dodge/Default/Item.hs

@@ -29,7 +29,7 @@ defaultItem =
         , _itTweaks = NoTweaks
         , _itScope = NoScope
         , _itTargeting = NoTargeting
-        , _itValue = ItemValue 0 MundaneItem
+--        , _itValue = ItemValue 0 MundaneItem
         }
 
 defaultLeftItem :: Item