Skip to content

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

[graphql] add description to UserInfo

parent 381d49db
Pipeline #3513 failed with stage
    in 50 minutes and 41 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 4 deletions
    src/Gargantext/API/GraphQL/TreeFirstLevel.hs
    View file @ b157a335
    ...@@ -83,8 +83,8 @@ resolveParent Nothing = pure Nothing ...@@ -83,8 +83,8 @@ resolveParent Nothing = pure Nothing
    nodeToTreeNode :: NN.Node json -> Maybe TreeNode nodeToTreeNode :: NN.Node json -> Maybe TreeNode
    nodeToTreeNode N.Node {..} = if (fromNodeTypeId _node_typename /= NN.NodeFolderShared) && (fromNodeTypeId _node_typename /= NN.NodeTeam) nodeToTreeNode N.Node {..} = if (fromNodeTypeId _node_typename /= NN.NodeFolderShared) && (fromNodeTypeId _node_typename /= NN.NodeTeam)
    then then
    Just TreeNode { id = NN.unNodeId _node_id Just TreeNode { id = NN.unNodeId _node_id
    , name = _node_name , name = _node_name
    , node_type = fromNodeTypeId _node_typename , node_type = fromNodeTypeId _node_typename
    ......
    src/Gargantext/API/GraphQL/UserInfo.hs
    View file @ b157a335
    ...@@ -10,6 +10,7 @@ import Data.Morpheus.Types ...@@ -10,6 +10,7 @@ import Data.Morpheus.Types
    , Resolver , Resolver
    , ResolverM , ResolverM
    , QUERY , QUERY
    , description
    , lift , lift
    ) )
    import Data.Text (Text) import Data.Text (Text)
    ...@@ -67,7 +68,9 @@ data UserInfo = UserInfo ...@@ -67,7 +68,9 @@ data UserInfo = UserInfo
    , ui_cwTouchMail :: Maybe Text -- TODO: Remove. userLight_email should be used instead , ui_cwTouchMail :: Maybe Text -- TODO: Remove. userLight_email should be used instead
    , ui_cwDescription :: Maybe Text , ui_cwDescription :: Maybe Text
    } }
    deriving (Generic, GQLType, Show) deriving (Generic, Show)
    instance GQLType UserInfo where
    description = const $ Just "provides user info"
    -- | Arguments to the "user info" query. -- | Arguments to the "user info" query.
    data UserInfoArgs data UserInfoArgs
    ......
    stack.yaml
    View file @ b157a335
    ...@@ -170,7 +170,6 @@ extra-deps: ...@@ -170,7 +170,6 @@ extra-deps:
    - servant-ekg-0.3.1@sha256:19bd9dc3943983da8e79d6f607614c68faea4054fb889d508c8a2b67b6bdd448,2203 - servant-ekg-0.3.1@sha256:19bd9dc3943983da8e79d6f607614c68faea4054fb889d508c8a2b67b6bdd448,2203
    # For the graph clustering # For the graph clustering
    ghc-options: ghc-options:
    hmatrix: -O2 -fsimpl-tick-factor=10000 -fdicts-cheap -fdicts-strict -flate-dmd-anal -fno-state-hack hmatrix: -O2 -fsimpl-tick-factor=10000 -fdicts-cheap -fdicts-strict -flate-dmd-anal -fno-state-hack
    ......
    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