Add generic derivations and To/FromJSON instances

src/MaybeHelp.hs

@@ -1,10 +1,16 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
 module MaybeHelp where
 import Control.Lens
+import Data.Aeson
+import GHC.Generics
 
 data Maybe' a = Just' {__Just' :: a} | Nothing'
-    deriving (Eq,Ord,Show,Read)
+    deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON a => ToJSON (Maybe' a) where
+  toEncoding = genericToEncoding defaultOptions
+instance FromJSON a => FromJSON (Maybe' a)
 
 fromJust' :: Maybe' a -> a
 fromJust' mx = case mx of