Skip to content

haskell-gargantext
haskell-gargantext
Commit 7e9419b0 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[share] fix JSON deserialization of ShareNodeParams

parent 2a4febfe
Pipeline #1779 passed with stage
    in 32 minutes and 40 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 2 deletions
    src/Gargantext/API/Node/Share.hs
    View file @ 7e9419b0
    ...@@ -30,6 +30,7 @@ import Gargantext.Database.Prelude ...@@ -30,6 +30,7 @@ import Gargantext.Database.Prelude
    import Gargantext.Database.Query.Tree (findNodesWithType) import Gargantext.Database.Query.Tree (findNodesWithType)
    import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..)) import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..))
    import Gargantext.Prelude import Gargantext.Prelude
    import qualified Gargantext.Utils.Aeson as GUA
    import Servant import Servant
    import Test.QuickCheck (elements) import Test.QuickCheck (elements)
    import Test.QuickCheck.Arbitrary import Test.QuickCheck.Arbitrary
    ...@@ -42,9 +43,9 @@ data ShareNodeParams = ShareTeamParams { username :: Text } ...@@ -42,9 +43,9 @@ data ShareNodeParams = ShareTeamParams { username :: Text }
    ------------------------------------------------------------------------ ------------------------------------------------------------------------
    -- TODO unPrefix "pn_" FromJSON, ToJSON, ToSchema, adapt frontend. -- TODO unPrefix "pn_" FromJSON, ToJSON, ToSchema, adapt frontend.
    instance FromJSON ShareNodeParams where instance FromJSON ShareNodeParams where
    parseJSON = genericParseJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) parseJSON = genericParseJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject })
    instance ToJSON ShareNodeParams where instance ToJSON ShareNodeParams where
    toJSON = genericToJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) toJSON = genericToJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject })
    instance ToSchema ShareNodeParams instance ToSchema ShareNodeParams
    instance Arbitrary ShareNodeParams where instance Arbitrary ShareNodeParams where
    arbitrary = elements [ ShareTeamParams "user1" arbitrary = elements [ ShareTeamParams "user1"
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment