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
    import Gargantext.Database.Query.Tree (findNodesWithType)
    import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..))
    import Gargantext.Prelude
    import qualified Gargantext.Utils.Aeson as GUA
    import Servant
    import Test.QuickCheck (elements)
    import Test.QuickCheck.Arbitrary
    ......@@ -42,9 +43,9 @@ data ShareNodeParams = ShareTeamParams { username :: Text }
    ------------------------------------------------------------------------
    -- TODO unPrefix "pn_" FromJSON, ToJSON, ToSchema, adapt frontend.
    instance FromJSON ShareNodeParams where
    parseJSON = genericParseJSON (defaultOptions { sumEncoding = ObjectWithSingleField })
    parseJSON = genericParseJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject })
    instance ToJSON ShareNodeParams where
    toJSON = genericToJSON (defaultOptions { sumEncoding = ObjectWithSingleField })
    toJSON = genericToJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject })
    instance ToSchema ShareNodeParams
    instance Arbitrary ShareNodeParams where
    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