Cleanup

src/Dodge/Data/Item/Effect.hs

@@ -9,8 +9,6 @@ import Flat
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data ItEffect = ItEffect
     { _ieInv :: ItInvEffect --Item -> Creature -> World -> World
@@ -32,11 +30,9 @@ data ItInvEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data ItFloorEffect = NoFloorEffect
-    | DefaultFloorEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data ItDropEffect = NoDropEffect
-    | DefaultDropEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 makeLenses ''ItEffect