Move from store to flat

src/Dodge/Data/Distortion.hs

@@ -1,17 +1,20 @@
-{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
 module Dodge.Data.Distortion where
 
-import LinearHelp
 import Data.Aeson
 import Data.Aeson.TH
-import Geometry
-import TH.Derive
 import Data.Store
+import Flat
+import Geometry
+import LinearHelp
+import TH.Derive
 
-data Distortion 
+data Distortion
     = RadialDistortion Point2 Point2 Point2 Float
-  deriving (Eq,Ord,Show,Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 deriveJSON defaultOptions ''Distortion
-$($(derive [d| instance Deriving (Store Distortion) |]))