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}