Cleanup

package.yaml

@@ -53,7 +53,7 @@ dependencies:
 - aeson-pretty
   #- store
   #- binary
-- flat
+  #- flat
 - th-utilities
 - directory
 - extra

src/Color.hs

@@ -9,7 +9,6 @@ module Color where
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import LinearHelp ()
 
 data PaletteColor
     = RED

src/Dodge/Data/ArcStep.hs

@@ -10,7 +10,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CrWlID
 import Geometry.Data
-import LinearHelp ()
 
 data ArcStep = ArcStep
     { _asPos :: Point2

src/Dodge/Data/Block.hs

@@ -9,7 +9,6 @@ module Dodge.Data.Block (
     module Dodge.Data.PathGraph,
 ) where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/Bullet.hs

@@ -8,7 +8,6 @@ module Dodge.Data.Bullet
     , module Dodge.Data.Damage
     )where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Button.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Button where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/CWorld.hs

@@ -48,7 +48,6 @@ module Dodge.Data.CWorld (
     module Dodge.Data.WorldEffect,
 ) where
 
---import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Corpse.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Corpse where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/CrGroupParams.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.CrGroupParams where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Creature.hs

@@ -17,7 +17,6 @@ module Dodge.Data.Creature (
     module Dodge.Data.Hammer,
 ) where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Creature/Memory.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Creature.Memory where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Creature/Stance.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Creature.Stance where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Damage.hs

@@ -12,7 +12,6 @@ module Dodge.Data.Damage (
     module Dodge.Data.Damage.Type,
 ) where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Distortion.hs

@@ -6,7 +6,6 @@
 module Dodge.Data.Distortion where
 
 import Geometry
-import LinearHelp ()
 import Data.Aeson
 import Data.Aeson.TH
 

src/Dodge/Data/Door.hs

@@ -10,7 +10,6 @@ module Dodge.Data.Door (
     module Dodge.Data.WorldEffect,
 ) where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Flare.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Flare where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/FloorItem.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.FloorItem where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/ForegroundShape.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.ForegroundShape where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Gust.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Gust where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/HUD.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.HUD where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Item/Misc.hs

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

src/Dodge/Data/Item/Scope.hs

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

src/Dodge/Data/Item/Targeting.hs

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

src/Dodge/Data/LightSource.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.LightSource where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/LinearShockwave.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.LinearShockwave where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Machine.hs

@@ -13,7 +13,6 @@ module Dodge.Data.Machine (
     module Dodge.Data.GenParams,
 ) where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/Machine/Sensor.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Machine.Sensor where
 
-import LinearHelp ()
 import Dodge.Data.GenParams
 import Color
 import Control.Lens

src/Dodge/Data/Magnet.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Magnet where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Modification.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Modification where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/PathGraph.hs

@@ -14,7 +14,6 @@ The warnings have been disabled.
 -}
 module Dodge.Data.PathGraph where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/PosEvent.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.PosEvent where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/PressPlate.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.PressPlate where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/RadarBlip.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.RadarBlip where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/RadarSweep.hs

@@ -8,7 +8,6 @@ module Dodge.Data.RadarSweep (
     module Dodge.Data.ObjectType,
 ) where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Spark.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Spark where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/Terminal.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Terminal where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/TeslaArc.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.TeslaArc where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/Data/TractorBeam.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.TractorBeam where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Dodge/Data/Wall.hs

@@ -8,7 +8,6 @@ module Dodge.Data.Wall (
     module Dodge.Data.Material,
 ) where
 
-import LinearHelp ()
 import Color
 import Control.Lens
 import Data.Aeson

src/Dodge/GameRoom.hs

@@ -11,7 +11,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
-import LinearHelp ()
 
 data GameRoom = GameRoom
     { _grViewpoints :: [Point2]

src/Geometry/ConvexPoly.hs

@@ -22,7 +22,6 @@ import Geometry.Intersect
 import Geometry.LHS
 import Geometry.Polygon
 import Geometry.Vector
-import LinearHelp ()
 
 --import qualified Control.Foldl as L
 data ConvexPoly = ConvexPoly

src/LinearHelp.hs

@@ -1,15 +0,0 @@
-----{-# LANGUAGE DeriveGeneric #-}
-----{-# LANGUAGE TemplateHaskell #-}
---{-# LANGUAGE ScopedTypeVariables #-}
---{-# LANGUAGE DeriveAnyClass #-}
---{-# LANGUAGE StandaloneDeriving #-}
---{-# OPTIONS_GHC -fno-warn-orphans #-}
-module LinearHelp where
-
---import Linear.V2
---import Linear.V3
---import Linear.V4
-
---deriving instance (Flat a => Flat (V2 a))
---deriving instance (Flat a => Flat (V3 a))
---deriving instance (Flat a => Flat (V4 a))

src/Picture/Data.hs

@@ -5,7 +5,6 @@
 
 module Picture.Data where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH

src/Quaternion.hs

@@ -20,7 +20,6 @@ import Geometry.Data
 import Geometry.Vector3D
 import Linear.Quaternion
 import qualified Linear.Quaternion as Q
-import LinearHelp ()
 
 instance ToJSON a => ToJSON (Q.Quaternion a) where
     toEncoding = genericToEncoding defaultOptions

src/Shape/Data.hs

@@ -12,7 +12,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import LinearHelp ()
 import Streaming
 
 

src/Sound/Data.hs

@@ -5,7 +5,6 @@
 
 module Sound.Data where
 
-import LinearHelp ()
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH