Remove generic and flat instances

src/MaybeHelp.hs

@@ -8,15 +8,16 @@ module MaybeHelp where
 
 import Control.Lens
 import Data.Aeson
-import Flat
+import Data.Aeson.TH
 
 data Maybe' a = Just' {__Just' :: a} | Nothing'
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    --deriving (Eq, Ord, Show, Read, Generic) --Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-instance ToJSON a => ToJSON (Maybe' a) where
-    toEncoding = genericToEncoding defaultOptions
-
-instance FromJSON a => FromJSON (Maybe' a)
+--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
@@ -40,3 +41,4 @@ toggleJust Nothing = Just ()
 toggleJust _ = Nothing
 
 makeLenses ''Maybe'
+deriveJSON defaultOptions ''Maybe'