add FromJSON instance for GeneratedCabalInfo

wavewave · Sep 6, 2018 · 665fb94 · 665fb94
1 parent 01f4c94
commit 665fb94
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/fficxx/lib/FFICXX/Generate/Type/Cabal.hs b/fficxx/lib/FFICXX/Generate/Type/Cabal.hs
@@ -14,10 +14,12 @@
 
 module FFICXX.Generate.Type.Cabal where
 
-import Data.Aeson (ToJSON(..),genericToJSON,defaultOptions)
+import Data.Aeson       (FromJSON(..),ToJSON(..)
+                        ,genericParseJSON,genericToJSON
+                        ,defaultOptions)
 import Data.Aeson.Types (fieldLabelModifier)
-import Data.Text (Text)
-import GHC.Generics (Generic)
+import Data.Text        (Text)
+import GHC.Generics     (Generic)
 
 data AddCInc = AddCInc FilePath String
 
@@ -76,3 +78,6 @@ data GeneratedCabalInfo =
 
 instance ToJSON GeneratedCabalInfo where
   toJSON = genericToJSON defaultOptions {fieldLabelModifier = drop 4}
+
+instance FromJSON GeneratedCabalInfo where
+  parseJSON = genericParseJSON defaultOptions {fieldLabelModifier = drop 4}