Add Store instances

2022-08-21 12:21:05 +01:00
parent 1ce7d4a72d
commit dd62e30026
92 changed files with 465 additions and 255 deletions
@@ -1,7 +1,8 @@
 {-# LANGUAGE DeriveAnyClass #-}
 --{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StandaloneDeriving #-}
--{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}

 {- |
@@ -14,6 +15,8 @@ module Quaternion (
    module Linear.Quaternion,
 ) where

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

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