Cleanup

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