[graphql] add description to UserInfo

src/Gargantext/API/GraphQL/TreeFirstLevel.hs

@@ -83,8 +83,8 @@ resolveParent Nothing = pure Nothing
 
 
 nodeToTreeNode :: NN.Node json -> Maybe TreeNode
-nodeToTreeNode N.Node {..} = if (fromNodeTypeId _node_typename /= NN.NodeFolderShared) && (fromNodeTypeId _node_typename /= NN.NodeTeam) 
-                             then 
+nodeToTreeNode N.Node {..} = if (fromNodeTypeId _node_typename /= NN.NodeFolderShared) && (fromNodeTypeId _node_typename /= NN.NodeTeam)
+                             then
                              Just TreeNode { id        = NN.unNodeId _node_id
                                            , name      = _node_name
                                            , node_type = fromNodeTypeId _node_typename

src/Gargantext/API/GraphQL/UserInfo.hs

@@ -10,6 +10,7 @@ import Data.Morpheus.Types
   , Resolver
   , ResolverM
   , QUERY
+  , description
   , lift
   )
 import Data.Text (Text)
@@ -67,7 +68,9 @@ data UserInfo = UserInfo
   , ui_cwTouchMail    :: Maybe Text  -- TODO: Remove. userLight_email should be used instead
   , 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.
 data UserInfoArgs

stack.yaml

@@ -170,7 +170,6 @@ extra-deps:
 
 - servant-ekg-0.3.1@sha256:19bd9dc3943983da8e79d6f607614c68faea4054fb889d508c8a2b67b6bdd448,2203
 
-
 # For the graph clustering
 ghc-options:
   hmatrix: -O2 -fsimpl-tick-factor=10000 -fdicts-cheap -fdicts-strict -flate-dmd-anal  -fno-state-hack