Add Store instances

2022-08-21 12:21:05 +01:00
parent 1ce7d4a72d
commit dd62e30026
92 changed files with 465 additions and 255 deletions
@@ -6,6 +6,8 @@

 module MaybeHelp where

+import TH.Derive
+import Data.Store
 import Control.Lens
 import Data.Aeson
 import Data.Binary
@@ -42,3 +44,4 @@ toggleJust Nothing = Just ()
 toggleJust _ = Nothing

 makeLenses ''Maybe'
+$($(derive [d| instance Store a => Deriving (Store (Maybe' a)) |]))