From 665fb94df83aa70e7306980cb01868903b6e0a85 Mon Sep 17 00:00:00 2001 From: Ian-Woo Kim Date: Thu, 6 Sep 2018 23:00:27 +0000 Subject: [PATCH] add FromJSON instance for GeneratedCabalInfo --- fficxx/lib/FFICXX/Generate/Type/Cabal.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/fficxx/lib/FFICXX/Generate/Type/Cabal.hs b/fficxx/lib/FFICXX/Generate/Type/Cabal.hs index 28425c32..23f36909 100644 --- 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}