Cleanup

src/Color.hs

@@ -1,18 +1,15 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 
 module Color where
 
 import Flat
 import Data.Aeson
-import Data.Store
-import GHC.Generics
 import Geometry
-import LinearHelp
+import LinearHelp ()
-import TH.Derive
 
 data PaletteColor
     = RED

src/Dodge/CullBox.hs

@@ -12,7 +12,7 @@ import Geometry
 findBoundDists :: Configuration -> World -> (Float, Float, Float, Float)
 findBoundDists cfig w
     | debugOn Bound_box_screen cfig = (hh, - hh, hw, - hw)
-    | otherwise = fromMaybe (0, 0, 0, 0) $ farWallDistDirection ((w ^. cWorld . cwCam . cwcCenter)) w
+    | otherwise = fromMaybe (0, 0, 0, 0) $ farWallDistDirection (w ^. cWorld . cwCam . cwcCenter) w
   where
     hw = halfWidth cfig
     hh = halfHeight cfig

src/Dodge/Data/ActionPlan.hs

@@ -13,8 +13,6 @@ import Dodge.Data.Creature.Stance
 import Dodge.Data.CreatureEffect
 import Geometry.Data
 import Sound.Data
-import TH.Derive
-import Data.Store
 
 data ActionPlan
     = Inanimate

src/Dodge/Data/ArcStep.hs

@@ -11,9 +11,7 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CrWlID
 import Geometry.Data
-import TH.Derive
+import LinearHelp ()
-import Data.Store
-import LinearHelp
 
 data ArcStep = ArcStep
     { _asPos :: Point2

src/Dodge/Data/Beam.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 {- | Linear beams. Last only one frame.
  - Can interact with one another in a limited manner

src/Dodge/Data/Block.hs

@@ -10,7 +10,7 @@ module Dodge.Data.Block (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
@@ -20,8 +20,6 @@ import Dodge.Data.Material
 import Dodge.Data.PathGraph
 import Geometry
 import Shape.Data
-import TH.Derive
-import Data.Store
 
 data Block = Block
     { _blID :: Int

src/Dodge/Data/Bounds.hs

@@ -9,8 +9,6 @@ import Flat
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data Bounds = Bounds
     { _bdMinX :: Float

src/Dodge/Data/Bullet.hs

@@ -9,14 +9,12 @@ module Dodge.Data.Bullet
     )where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Bullet = Bullet
     { _buDelayFraction :: Float

src/Dodge/Data/Button.hs

@@ -6,7 +6,7 @@
 module Dodge.Data.Button where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
@@ -14,8 +14,6 @@ import Data.Aeson.TH
 import Dodge.Data.WorldEffect
 import Geometry.Data
 import Sound.Data
-import TH.Derive
-import Data.Store
 
 data ButtonDraw
     = DefaultDrawButton Color

src/Dodge/Data/CamouflageStatus.hs

@@ -8,8 +8,6 @@ module Dodge.Data.CamouflageStatus where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data CamouflageStatus
     = FullyVisible

src/Dodge/Data/Cloud.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import TH.Derive
-import Data.Store
 
 data CloudDraw
     = CloudColor Float Float Color -- radius-multiply fade-time color

src/Dodge/Data/CrGroupParams.hs

@@ -12,8 +12,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import qualified IntSetHelp as IS
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data CrGroupParams = CrGroupParams
     { _crGroupParamID :: Int

src/Dodge/Data/Creature.hs

@@ -18,9 +18,7 @@ module Dodge.Data.Creature (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
-import TH.Derive
-import Data.Store
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

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]

src/Dodge/Data/Damage.hs

@@ -13,10 +13,8 @@ module Dodge.Data.Damage (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
-import TH.Derive
-import Data.Store
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage.Type

src/Dodge/Data/Damage/Type.hs

@@ -8,8 +8,6 @@ module Dodge.Data.Damage.Type where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data DamageType
     = PIERCING

src/Dodge/Data/Distortion.hs

@@ -7,11 +7,9 @@ module Dodge.Data.Distortion where
 
 import Data.Aeson
 import Data.Aeson.TH
-import Data.Store
 import Flat
 import Geometry
-import LinearHelp
+import LinearHelp ()
-import TH.Derive
 
 data Distortion
     = RadialDistortion Point2 Point2 Point2 Float

src/Dodge/Data/Door.hs

@@ -11,7 +11,7 @@ module Dodge.Data.Door (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -20,8 +20,6 @@ import Dodge.Data.MountedObject
 import Dodge.Data.PathGraph
 import Dodge.Data.WorldEffect
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/EnergyBall.hs

@@ -12,8 +12,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage.Type
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data EnergyBall = EnergyBall
     { _ebVel :: Point2

src/Dodge/Data/Equipment/Misc.hs

@@ -8,8 +8,6 @@ module Dodge.Data.Equipment.Misc where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data EquipSite
     = GoesOnHead

src/Dodge/Data/Flame.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Flame = Flame
     { _flVel :: Point2

src/Dodge/Data/Flare.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.Flare where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import TH.Derive
-import Data.Store
 
 data Flare
     = MuzFlare

src/Dodge/Data/FloatFunction.hs

@@ -6,8 +6,6 @@
 module Dodge.Data.FloatFunction where
 
 import Flat
-import TH.Derive
-import Data.Store
 import Data.Aeson
 import Data.Aeson.TH
 

src/Dodge/Data/FloorItem.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.FloorItem where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Item
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data FloorItem = FlIt {_flIt :: Item, _flItPos :: Point2, _flItRot :: Float, _flItID :: Int}
     deriving (Eq, Show, Read, Generic, Flat)

src/Dodge/Data/ForegroundShape.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.ForegroundShape where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
 import ShapePicture
-import TH.Derive
-import Data.Store
 
 data ForegroundShape = ForegroundShape
     { _fsID :: Int

src/Dodge/Data/GenParams.hs

@@ -12,8 +12,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
 import Dodge.Data.Damage.Type
-import TH.Derive
-import Data.Store
 
 newtype GenParams = GenParams
     { _sensorCoding :: M.Map DamageType (PaletteColor, DecorationShape)

src/Dodge/Data/Gust.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.Gust 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 Gust = Gust
     { _guID :: Int

src/Dodge/Data/HUD.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.HUD 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 HUDElement
     = DisplayInventory {_subInventory :: SubInventory}

src/Dodge/Data/Hammer.hs

@@ -9,8 +9,6 @@ import Flat
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data HammerType
     = NoHammer

src/Dodge/Data/Item.hs

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

src/Dodge/Data/Item/Combine.hs

@@ -7,8 +7,6 @@ module Dodge.Data.Item.Combine where
 
 import Flat
 import Control.Lens
-import TH.Derive
-import Data.Store
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M

src/Dodge/Data/Item/CurseStatus.hs

@@ -8,8 +8,6 @@ module Dodge.Data.Item.CurseStatus where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data CurseStatus
     = Uncursed

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

src/Dodge/Data/Item/HeldDelay.hs

@@ -9,8 +9,6 @@ import Flat
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data UseDelay -- should just be Delay
     = NoDelay

src/Dodge/Data/Item/HeldScroll.hs

@@ -10,8 +10,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Sequence as Seq
-import TH.Derive
-import Data.Store
 
 data HeldScroll
     = HeldScrollDoNothing

src/Dodge/Data/Item/HeldUse.hs

@@ -10,8 +10,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item.Combine
-import TH.Derive
-import Data.Store
 
 data HeldUse
     = HeldDoNothing

src/Dodge/Data/Item/Location.hs

@@ -8,8 +8,6 @@ import Flat
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data ItemLocation
     = InInv {_ipCrID :: Int, _ipInvID :: Int}

src/Dodge/Data/Item/Misc.hs

@@ -10,9 +10,7 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
+import LinearHelp ()
-import Data.Store
-import LinearHelp
 
 data ItemDimension = ItemDimension
     { _dimRad :: Float

src/Dodge/Data/Item/Params.hs

@@ -13,8 +13,6 @@ import Data.Aeson.TH
 import Dodge.Data.ArcStep
 import Dodge.Data.Beam
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data ItemParams
     = NoParams

src/Dodge/Data/Item/Scope.hs

@@ -10,9 +10,7 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
+import LinearHelp ()
-import Data.Store
-import LinearHelp
 
 data Scope
     = NoScope

src/Dodge/Data/Item/Targeting.hs

@@ -10,9 +10,7 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
+import LinearHelp ()
-import Data.Store
-import LinearHelp
 
 data Targeting
     = NoTargeting

src/Dodge/Data/Item/Tweak.hs

@@ -10,8 +10,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified IntMapHelp as IM
-import TH.Derive
-import Data.Store
 
 data ItemTweaks
     = NoTweaks

src/Dodge/Data/Item/Use.hs

@@ -23,8 +23,6 @@ import Dodge.Data.Item.HeldUse
 import Dodge.Data.Item.Use.Consumption
 import Dodge.Data.Item.Use.Equipment
 import Dodge.Data.Item.HeldDelay
-import TH.Derive
-import Data.Store
 
 data ItemUse
     = HeldUse

src/Dodge/Data/Item/Use/Consumption.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -11,8 +12,6 @@ module Dodge.Data.Item.Use.Consumption (
 ) where
 
 import Flat
-import TH.Derive
-import Data.Store
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -45,7 +44,10 @@ data LeftConsumption
     deriving (Eq, Show, Read, Generic, Flat)
 
 newtype ItAmount = ItAmount {_getItAmount :: Int}
-    deriving (Eq, Ord, Read, Show, Num, Real, Enum, Integral, Generic, Flat)
+--    deriving (Eq, Ord, Read, Show, Num, Real, Generic, Flat)
+    deriving newtype (Eq, Ord, Read, Show, Num, Real, Enum, Integral)
+    deriving stock (Generic)
+    deriving anyclass (Flat)
 
 makeLenses ''HeldConsumption
 makeLenses ''LeftConsumption

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -10,8 +10,6 @@ module Dodge.Data.Item.Use.Consumption.Ammo (
 ) where
 
 import Flat
-import TH.Derive
-import Data.Store
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -11,8 +11,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Hammer
 import Sound.Data
-import TH.Derive
-import Data.Store
 
 data LoadAction
     = LoadEject {_actionTime :: Int, _actionSound :: SoundID}

src/Dodge/Data/Item/Use/Equipment.hs

@@ -14,8 +14,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Equipment.Misc
 import Dodge.Data.Item.HeldUse
-import TH.Derive
-import Data.Store
 
 data EquipEffect = EquipEffect
     { _eeUse :: Euse --Item -> Creature -> World -> World

src/Dodge/Data/Laser.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data LaserType
     = DamageLaser {_laserTypeDamage :: Int}

src/Dodge/Data/LightSource.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.LightSource where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import TH.Derive
-import Data.Store
 
 data LightSourceDraw = DefaultLightSourceDraw
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/LinearShockwave.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.LinearShockwave 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 LinearShockwave = LinearShockwave
     { _lwPos :: Point2

src/Dodge/Data/Machine.hs

@@ -14,7 +14,7 @@ module Dodge.Data.Machine (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
@@ -29,8 +29,6 @@ import Dodge.Data.Material
 import Dodge.Data.ObjectType
 import Geometry.Data
 import Sound.Data
-import TH.Derive
-import Data.Store
 
 data Machine = Machine
     { _mcID :: Int

src/Dodge/Data/Machine/Sensor.hs

@@ -6,7 +6,7 @@
 module Dodge.Data.Machine.Sensor where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Dodge.Data.GenParams
 import Color
 import Control.Lens
@@ -14,8 +14,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Item.Combine
 import Dodge.Data.Damage.Type
-import TH.Derive
-import Data.Store
 
 data Sensor
     = DamageSensor

src/Dodge/Data/Magnet.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.Magnet 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
 
 newtype MagnetUpdate = MagnetUpdateTimer Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/Material.hs

@@ -8,8 +8,6 @@ module Dodge.Data.Material where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data Material = Wood | Dirt | Stone | Glass | Metal | Crystal | Flesh | Electronics
     deriving (Eq, Ord, Show, Bounded, Enum, Read, Generic, Flat)

src/Dodge/Data/Modification.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.Modification where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.WorldEffect
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Modification
     = ModIDTimerPoint3Bool

src/Dodge/Data/MountedObject.hs

@@ -8,8 +8,6 @@ module Dodge.Data.MountedObject where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data MountedObject
     = MountedLS Int

src/Dodge/Data/PathGraph.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE ScopedTypeVariables #-}
@@ -15,17 +15,13 @@ The warnings have been disabled.
 module Dodge.Data.PathGraph where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Graph.Inductive
 import Data.Map.Strict (Map)
 import qualified Data.Set as Set
-import Data.Store
-import Data.Store.TH
-import GHC.Generics
 import Geometry.Data
-import TH.Derive
 
 data PathGraph = PathGraph
     { _pgGraph :: Gr Point2 PathEdge

src/Dodge/Data/Payload.hs

@@ -8,8 +8,6 @@ module Dodge.Data.Payload where
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data Payload = ExplosionPayload | DudPayload
     deriving (Show, Read, Eq, Ord, Enum, Bounded, Generic, Flat)

src/Dodge/Data/PosEvent.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data PosEventType = SparkSpawner
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/PressPlate.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.PressPlate where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
 import Picture
-import TH.Derive
-import Data.Store
 
 data PressPlateEvent
     = PressPlateId

src/Dodge/Data/Projectile.hs

@@ -12,8 +12,6 @@ import Data.Aeson.TH
 import Dodge.Data.Item.Use.Consumption.Ammo
 import Geometry.Data
 
-import TH.Derive
-import Data.Store
 data Proj
     = Shell
         { _prjPos :: Point2

src/Dodge/Data/Prop.hs

@@ -15,8 +15,6 @@ import Geometry.Data
 import qualified Quaternion as Q
 import Shape.Data
 import ShapePicture.Data
-import TH.Derive
-import Data.Store
 
 data Prop
     = PropZ

src/Dodge/Data/RadarBlip.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.RadarBlip where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import TH.Derive
-import Data.Store
 
 data RadarBlip = RadarBlip
     { _rbColor :: Color

src/Dodge/Data/RadarSweep.hs

@@ -9,14 +9,12 @@ module Dodge.Data.RadarSweep (
 ) where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ObjectType
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data RadarSweep = RadarSweep
     { _rsPos :: Point2

src/Dodge/Data/Shockwave.hs

@@ -11,8 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data ShockwaveDirection = OutwardShockwave | InwardShockwave
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/SoundOrigin.hs

@@ -9,8 +9,6 @@ import Flat
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Material
-import TH.Derive
-import Data.Store
 
 data SoundOrigin
     = InventorySound

src/Dodge/Data/Spark.hs

@@ -6,15 +6,13 @@
 module Dodge.Data.Spark where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage.Type
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data Spark = Spark
     { _skVel :: Point2

src/Dodge/Data/Terminal.hs

@@ -6,7 +6,7 @@
 module Dodge.Data.Terminal where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
@@ -14,8 +14,6 @@ import Data.Aeson.TH
 import qualified Data.Map.Strict as M
 import qualified Data.Text as T
 import Dodge.Data.WorldEffect
-import TH.Derive
-import Data.Store
 
 data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Dodge/Data/TeslaArc.hs

@@ -6,15 +6,13 @@
 module Dodge.Data.TeslaArc where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ArcStep
 import Geometry.Data
-import TH.Derive
-import Data.Store
 
 data TeslaArc = TeslaArc
     { _taPoints :: [Point2]

src/Dodge/Data/TractorBeam.hs

@@ -6,13 +6,11 @@
 module Dodge.Data.TractorBeam 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 TractorBeam = TractorBeam
     { _tbPos :: Point2

src/Dodge/Data/WorldEffect.hs

@@ -13,8 +13,6 @@ import Dodge.Data.Item
 import Dodge.Data.SoundOrigin
 import Geometry.Data
 import Sound.Data
-import TH.Derive
-import Data.Store
 
 data ItCrWdWd
     = ItCrWdId

src/Dodge/GameRoom.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
@@ -10,11 +10,8 @@ module Dodge.GameRoom where
 import Flat
 import Control.Lens
 import Data.Aeson
-import Data.Store
-import GHC.Generics
 import Geometry
-import LinearHelp
+import LinearHelp ()
-import TH.Derive
 
 data GameRoom = GameRoom
     { _grViewpoints :: [Point2]

src/Dodge/Update/Camera.hs

@@ -245,7 +245,7 @@ farWallDistDirection p w =
     boundPoints $
         S.map f vps
   where
-    f q = (rotateV (negate $ (w ^. cWorld . cwCam . cwcRot)) . (-.- p)) (foldl' findPoint q (wls q))
+    f q = (rotateV (negate (w ^. cWorld . cwCam . cwcRot)) . (-.- p)) (foldl' findPoint q (wls q))
     wls q = filter wlIsOpaque $ wlsNearSeg p q w
     findPoint q = fromMaybe q . uncurry (intersectSegSeg p q) . _wlLine
     vps = streamViewpoints p w

src/IntSetHelp.hs

@@ -1,9 +1,10 @@
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StandaloneDeriving #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module IntSetHelp (
-    module IntSetHelp,
+    --module IntSetHelp,
     module Data.IntSet,
 ) where
 

src/LinearHelp.hs

@@ -1,6 +1,7 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StandaloneDeriving #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 module LinearHelp where
 
 import Flat

src/MaybeHelp.hs

@@ -8,10 +8,7 @@ module MaybeHelp where
 
 import Control.Lens
 import Data.Aeson
-import Data.Store
 import Flat
-import GHC.Generics
-import TH.Derive
 
 data Maybe' a = Just' {__Just' :: a} | Nothing'
     deriving (Eq, Ord, Show, Read, Generic, Flat)

src/Picture/Data.hs

@@ -6,14 +6,12 @@
 module Picture.Data where
 
 import Flat
-import LinearHelp
+import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
 import Streaming
-import TH.Derive
-import Data.Store
 
 data Verx = Verx
     { _vxPos :: !Point3

src/Quaternion.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 {- |
@@ -20,7 +20,7 @@ import Geometry.Data
 import Geometry.Vector3D
 import Linear.Quaternion
 import qualified Linear.Quaternion as Q
-import LinearHelp
+import LinearHelp ()
 
 instance ToJSON a => ToJSON (Q.Quaternion a) where
     toEncoding = genericToEncoding defaultOptions

src/Shape/Data.hs

@@ -10,13 +10,10 @@ module Shape.Data where
 
 import Control.Lens
 import Data.Aeson
-import Data.Store
 import Flat
-import GHC.Generics
 import Geometry.Data
-import LinearHelp
+import LinearHelp ()
 import Streaming
-import TH.Derive
 
 type Shape' = Stream (Of ShapeObj) IO ()
 
@@ -40,7 +37,9 @@ instance ToJSON ShapeObj where
 instance FromJSON ShapeObj
 
 newtype ShapeType = TopPrism Int
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving newtype (Eq, Ord, Show, Read)
+    deriving stock Generic
+    deriving anyclass Flat
 
 instance ToJSON ShapeType where
     toEncoding = genericToEncoding defaultOptions

src/Sound/Data.hs

@@ -6,9 +6,7 @@
 module Sound.Data where
 
 import Flat
-import TH.Derive
+import LinearHelp ()
-import Data.Store
-import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH