Add Binary instances

src/MaybeHelp.hs

@@ -8,10 +8,12 @@ module MaybeHelp where
 
 import Control.Lens
 import Data.Aeson
+import Data.Binary
 import Flat
 
 data Maybe' a = Just' {__Just' :: a} | Nothing'
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance (Binary a => Binary (Maybe' a))
 
 instance ToJSON a => ToJSON (Maybe' a) where
     toEncoding = genericToEncoding defaultOptions