Cleanup

src/Dodge/Data/Creature/Memory.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.Creature.Memory where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Memory = Memory
     { _soundsToInvestigate :: [Point2]

src/Dodge/Data/Creature/Misc.hs

@@ -9,8 +9,6 @@ module Dodge.Data.Creature.Misc (
 ) where
 
 import Flat
-import TH.Derive
-import Data.Store
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/Creature/Perception.hs

@@ -29,8 +29,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.FloatFunction
 import qualified IntMapHelp as IM
-import TH.Derive
-import Data.Store
 
 data Perception = Perception
     { _cpVigilance :: Vigilance

src/Dodge/Data/Creature/Stance.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.Creature.Stance where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Stance = Stance
     { _carriage :: Carriage

src/Dodge/Data/Creature/State.hs

@@ -13,8 +13,6 @@ import Data.Aeson.TH
 import qualified IntSetHelp as IS
 import Dodge.Data.Damage
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data CreatureState = CrSt
     { _csDamage :: [Damage]