[graphql] update ps packages, add graphql template for userinfo query

packages.dhall

 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.14.4-20211030/packages.dhall sha256:eee0765aa98e0da8fc414768870ad588e7cada060f9f7c23c37385c169f74d9f
+      https://github.com/purescript/package-sets/releases/download/psc-0.14.4-20211030/packages.dhall sha256:5cd7c5696feea3d3f84505d311348b9e90a76c4ce3684930a0ff29606d2d816c
 
 let overrides =
       { globals =

src/Gargantext/Components/GraphQL/User.purs

@@ -6,7 +6,7 @@ import Data.Array as A
 import Data.Lens (Lens', lens)
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import GraphQL.Client.Args (NotNull(..), (=>>))
-import GraphQL.Client.Variable (Var)
+import GraphQL.Client.Variable (Var(..))
 import GraphQL.Client.Variables (withVars)
 import Type.Proxy (Proxy(..))
 
@@ -43,25 +43,8 @@ type UserInfoM
     , ui_cwRole         :: String
     , ui_cwTouchPhone   :: String
     , ui_cwTouchMail    :: String }
---defaultUserInfoM :: UserInfoM
---defaultUserInfoM =
---  { ui_id: NotNull 0
---  , ui_username: Nothing
---  , ui_email: Nothing
---  , ui_title: Nothing
---  , ui_source: Nothing
---  , ui_cwFirstName: Nothing
---  , ui_cwLastName: Nothing
---  , ui_cwOrganization: Nothing
---  , ui_cwLabTeamDepts: Nothing
---  , ui_cwOffice: Nothing
---  , ui_cwCity: Nothing
---  , ui_cwCountry: Nothing
---  , ui_cwRole: Nothing
---  , ui_cwTouchPhone: Nothing
---  , ui_cwTouchMail: Nothing }
 
-userInfoQuery = { user_infos: { user_id: Var _ "id" Int } =>>
+userInfoQuery = { user_infos: { user_id: Var :: _ "id" Int } =>>
                   { ui_id: unit
                   , ui_username: unit
                   , ui_email: unit

src/Gargantext/Components/Nodes/Annuaire/User/Contact.purs

@@ -23,7 +23,7 @@ import Gargantext.Components.App.Data (Boxes)
 import Gargantext.Components.GraphQL (getClient, queryGql)
 import Gargantext.Components.InputWithEnter (inputWithEnter)
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
-import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (Contact'(..), ContactData', ContactTouch(..), ContactWhere(..), ContactWho(..), HyperdataContact(..), HyperdataUser(..), _city, _country, _firstName, _labTeamDeptsJoinComma, _lastName, _mail, _office, _organizationJoinComma, _ouFirst, _phone, _role, _shared, _touch, _who, defaultContactTouch, defaultContactWhere, defaultContactWho, defaultHyperdataContact, defaultHyperdataUser)
+import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (ContactData', HyperdataContact(..))
 import Gargantext.Components.Nodes.Lists.Types as LT
 import Gargantext.Config.REST (RESTError(..), logRESTError)
 import Gargantext.Ends (Frontends)
@@ -90,27 +90,6 @@ contactInfoItems =
   ]
 
 type UserInfoLens = L.ALens' UserInfo String
---   
--- contactInfos' :: HyperdataContact -> (HyperdataContact -> Effect Unit) -> Array R.Element
--- contactInfos' h onUpdateHyperdata = item <$> contactInfoItems where
---   item { label, lens, defaultVal: placeholder } =
---     contactInfoItem { label, lens, onUpdateHyperdata, placeholder, hyperdata: h }
--- 
--- contactInfoItems' :: Array {label:: String, defaultVal:: String, lens:: HyperdataContactLens}
--- contactInfoItems' =
---   [ {label: "Last Name"    , defaultVal: "Empty Last Name"    , lens: _who     <<< _lastName             }
---   , {label: "First Name"   , defaultVal: "Empty First Name"   , lens: _who     <<< _firstName            }
---   , {label: "Organisation" , defaultVal: "Empty Organisation" , lens: _ouFirst <<< _organizationJoinComma}
---   , {label: "Lab/Team/Dept", defaultVal: "Empty Lab/Team/Dept", lens: _ouFirst <<< _labTeamDeptsJoinComma}
---   , {label: "Office"       , defaultVal: "Empty Office"       , lens: _ouFirst <<< _office               }
---   , {label: "City"         , defaultVal: "Empty City"         , lens: _ouFirst <<< _city                 }
---   , {label: "Country"      , defaultVal: "Empty Country"      , lens: _ouFirst <<< _country              }
---   , {label: "Role"         , defaultVal: "Empty Role"         , lens: _ouFirst <<< _role                 }
---   , {label: "Phone"        , defaultVal: "Empty Phone"        , lens: _ouFirst <<< _touch <<< _phone     }
---   , {label: "Mail"         , defaultVal: "Empty Mail"         , lens: _ouFirst <<< _touch <<< _mail      }
---   ]
--- 
--- type HyperdataContactLens = L.ALens' HyperdataContact String
 
 type ContactInfoItemProps =
   ( defaultVal       :: String
@@ -321,122 +300,9 @@ getUserInfoWithReload {nodeId, session} = getUserInfo session nodeId -- getConta
 
 getUserInfo :: Session -> Int -> Aff (Either RESTError UserInfo)
 getUserInfo session id = do
---  { user_infos } <- queryGql session "get user infos"
---                    { user_infos: { user_id: id } =>>
---                      { ui_id: unit
---                      , ui_username: unit
---                      , ui_email: unit
---                      , ui_title: unit
---                      , ui_source: unit
---                      , ui_cwFirstName: unit
---                      , ui_cwLastName: unit
---                      , ui_cwCity: unit
---                      , ui_cwCountry: unit
---                      , ui_cwLabTeamDepts: unit
---                      , ui_cwOrganization: unit
---                      , ui_cwOffice: unit
---                      , ui_cwRole: unit
---                      , ui_cwTouchMail: unit
---                      , ui_cwTouchPhone: unit }
---                    }
   { user_infos } <- queryGql session "get user infos" $ userInfoQuery `withVars` { id }
   liftEffect $ here.log2 "[getUserInfo] user infos" user_infos
   pure $ case A.head user_infos of
     Nothing -> Left (CustomError $ "user with id " <> show id <> " not found")
     -- NOTE Contact is at G.C.N.A.U.C.Types
     Just ui -> Right ui
---     Just ui -> Right $ { contactNode: Contact
---                            { id: ui.ui_id
---                            , date: Nothing
---                            , hyperdata: HyperdataUser
---                              { shared: Just $ HyperdataContact
---                                { bdd: Nothing
---                                , who: Just $ ContactWho
---                                   { idWho: Nothing
---                                   , firstName: ui.ui_cwFirstName
---                                   , lastName: ui.ui_cwLastName
---                                   , keywords: []
---                                   , freetags: []
---                                   }
---                                , ou:
---                                  [ ContactWhere
---                                    { organization: ui.ui_cwOrganization
---                                    , labTeamDepts: ui.ui_cwLabTeamDepts
---                                    , role: ui.ui_cwRole
---                                    , office: ui.ui_cwOffice
---                                    , country: ui.ui_cwCountry
---                                    , city: ui.ui_cwCity
---                                    , touch: Nothing  -- TODO
---                                    , entry: Nothing
---                                    , exit: Nothing }
---                                  ]
---                                , source: ui.ui_source
---                                , title: ui.ui_title
---                                , lastValidation: Nothing
---                                , uniqId: Nothing
---                                , uniqIdBdd: Nothing
---                                }
---                              }
---                            , name: Just ui.ui_username
---                            , parentId: Nothing
---                            , typename: Nothing
---                            , userId: Just ui.ui_id }
---                        , defaultListId: 424242 }
---
---getUser' :: Session -> Int -> Aff (Either RESTError ContactData)
---getUser' session id = do
---  { users } <- queryGql session "get user"
---               { users: { user_id: id } =>>
---                 { u_id
---                 , u_hyperdata:
---                   { shared:
---                     { title
---                     , source
---                     , who:
---                       { firstName
---                       , lastName }
---                     , "where":
---                       { organization }
---                     }
---                   }
---                 , u_username
---                 , u_email } }
---  liftEffect $ here.log2 "[getUser] users" users
---  pure $ case A.head users of
---    Nothing -> Left (CustomError $ "user with id " <> show id <> " not found")
---    -- NOTE Contact is at G.C.N.A.U.C.Types
---    Just u  -> Right $ { contactNode: Contact
---                           { id: u.u_id
---                           , date: Nothing
---                           , hyperdata: HyperdataUser
---                             { shared: (\shared -> HyperdataContact
---                               { bdd: Nothing
---                               , who: (\who -> ContactWho
---                                  { idWho: Nothing
---                                  , firstName: who.firstName
---                                  , lastName: who.lastName
---                                  , keywords: []
---                                  , freetags: []
---                                  }) <$> shared.who
---                               , ou: (\ou -> ContactWhere
---                                   { organization: ou.organization
---                                   , labTeamDepts: []
---                                   , role: Nothing
---                                   , office: Nothing
---                                   , country: Nothing
---                                   , city: Nothing
---                                   , touch: Nothing
---                                   , entry: Nothing
---                                   , exit: Nothing }) <$> shared.where
---                               , source: shared.source
---                               , title: shared.title
---                               , lastValidation: Nothing
---                               , uniqId: Nothing
---                               , uniqIdBdd: Nothing
---                               }) <$> u.u_hyperdata.shared
---                             }
---                           , name: Just u.u_username
---                           , parentId: Nothing
---                           , typename: Nothing
---                           , userId: Just u.u_id }
---                       , defaultListId: 424242 }