Attempt to make CWorld correct instance of Store

src/Dodge/Data/Distortion.hs

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