Go back to JSON encoding

src/Shape/Data.hs

@@ -8,12 +8,8 @@
 
 module Shape.Data where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Control.Lens
 import Data.Aeson
-import Data.Binary
 import Flat
 import Geometry.Data
 import LinearHelp ()
@@ -30,7 +26,6 @@ newtype ShapeType = TopPrism Int
     deriving stock Generic
     deriving anyclass Flat
 
-$($(derive [d| instance Deriving (Store ShapeType) |]))
 
 data ShapeObj = ShapeObj
     { _shType :: ShapeType
@@ -71,5 +66,3 @@ type Shape' = Stream (Of ShapeObj) IO ()
 
 type Shape = [ShapeObj]
 
-$($(derive [d| instance Deriving (Store ShapeV ) |]))
-$($(derive [d| instance Deriving (Store ShapeObj ) |]))