hasura/graphql-engine
1
0
Fork 0
mirror of https://github.com/hasura/graphql-engine.git synced 2024-12-14 17:02:49 +03:00
Code Issues Projects Releases Wiki Activity

server: fix the FromJSON instance of ExperimentalFeature

Browse Source 
GitOrigin-RevId: 4d3c296021bfc26295632fb4b331c1fe0c902734
This commit is contained in:
Karthikeyan Chinnakonda 2021-03-16 17:18:01 +05:30 committed by hasura-bot
parent e4b669e56b
commit d1a2fabb26
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
server/src-lib/Hasura/Server/Types.hs
View File

@ -3,8 +3,6 @@ module Hasura.Server.Types where
import Hasura.Prelude
import Data.Aeson
import Data.Aeson.Casing
import Data.Aeson.TH
import qualified Data.HashSet as Set
import qualified Database.PG.Query as Q
@ -42,14 +40,17 @@ data ExperimentalFeature
= EFInheritedRoles
deriving (Show, Eq, Generic)
$(deriveFromJSON (defaultOptions { constructorTagModifier = snakeCase . drop 2})
''ExperimentalFeature)
instance Hashable ExperimentalFeature
-- TODO: when there are more than one constuctors in `ExperimentalFeature`, we should
-- derive the `ToJSON` instance like we do it for the `FromJSON` instance. Doing it
-- with a single data constructor messes up the `ToJSON` instance which is why it's
-- manually implemented here
-- auto derive the JSON instances. Doing it with a single data constructor messes
-- up the JSON instances which is why it's manually implemented here
instance FromJSON ExperimentalFeature where
parseJSON = withText "ExperimentalFeature" $ \case
"inherited_roles" -> pure EFInheritedRoles
_ -> fail "ExperimentalFeature can only be one of these value: inherited_roles "
instance ToJSON ExperimentalFeature where
toJSON = \case
EFInheritedRoles -> "inherited_roles"