Go back to JSON encoding

2022-08-21 21:23:59 +01:00
parent dd62e30026
commit f1ef75f511
95 changed files with 9 additions and 586 deletions
@@ -15,10 +15,7 @@ module Quaternion (
    module Linear.Quaternion,
 ) where

-import TH.Derive
-import Data.Store
 import Data.Aeson
-import Data.Binary
 import Flat
 import Geometry.Data
 import Geometry.Vector3D
@@ -48,4 +45,3 @@ vToQuat a b
    cprod = crossProd a b

 deriving instance (Flat a => Flat (Quaternion a))
-$($(derive [d| instance Store a => Deriving (Store (Quaternion a)) |]))