Remove shrink gun

src/Dodge/Data/Item.hs

@@ -7,7 +7,6 @@ module Dodge.Data.Item (
     module Dodge.Data.Item.Misc,
     module Dodge.Data.Item.Params,
     module Dodge.Data.Item.Use,
-    module Dodge.Data.Item.CurseStatus,
     module Dodge.Data.Item.Scope,
     module Dodge.Data.Item.Combine,
     module Dodge.Data.Item.Location,
@@ -19,7 +18,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Item.Combine
-import Dodge.Data.Item.CurseStatus
 import Dodge.Data.Item.Effect
 import Dodge.Data.Item.Location
 import Dodge.Data.Item.Misc
@@ -40,7 +38,6 @@ data Item = Item
     , _itAmmoSlots :: IM.IntMap AmmoType
     , _itInvSize :: Int
     , _itDimension :: ItemDimension
-    , _itCurseStatus :: CurseStatus
     , _itParams :: ItemParams
     }
 

src/Dodge/Data/Item/Combine.hs

@@ -123,7 +123,6 @@ data LeftItemType
     | SCROLLWATCH
     | BLINKER
     | BLINKERUNSAFE
-    | SHRINKER
     | SPAWNER
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 

src/Dodge/Data/Item/CurseStatus.hs

@@ -1,17 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
-
-module Dodge.Data.Item.CurseStatus where
-
-import Data.Aeson
-import Data.Aeson.TH
-
-data CurseStatus
-    = Uncursed
-    | UndroppableIdentified
-    | UndroppableUnidentified
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-deriveJSON defaultOptions ''CurseStatus

src/Dodge/Data/Item/HeldUse.hs

@@ -12,15 +12,6 @@ import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item.Combine
 import Control.Lens
 
---data Huse
---    = HeldDoNothing
-----    | HeldFireRemoteShell
-----    | HeldExplodeRemoteShell Int Int
---    | HeldDetectorEffect Detector
---    | HeldForceField
-----    | HeldShatter
---    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data Cuse
     = CDoNothing
     | CHeal Int
@@ -49,7 +40,6 @@ data Luse
     | LRewind
     | LTimePause
     | LTimeScroll
-    | LShrink
     | LBlink
     | LUnsafeBlink
     | LBoost