Skip to content

P
purescript-gargantext
Commit b2e461e7 authored by Karen Konou's avatar Karen Konou
Browse files
Options

[GQL] fix client url

parent f61f59f8
Pipeline #2450 failed with stage
    in 0 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/Components/GraphQL.purs
    View file @ b2e461e7
    ...@@ -12,6 +12,7 @@ import Effect.Class (liftEffect) ...@@ -12,6 +12,7 @@ import Effect.Class (liftEffect)
    import Foreign (unsafeToForeign, ForeignError) import Foreign (unsafeToForeign, ForeignError)
    import Gargantext.Components.GraphQL.Node (Node) import Gargantext.Components.GraphQL.Node (Node)
    import Gargantext.Components.GraphQL.User (User, UserInfo, UserInfoM) import Gargantext.Components.GraphQL.User (User, UserInfo, UserInfoM)
    import Gargantext.Ends (Backend(..))
    import Gargantext.Sessions (Session(..)) import Gargantext.Sessions (Session(..))
    import Gargantext.Utils.Reactix as R2 import Gargantext.Utils.Reactix as R2
    import GraphQL.Client.Args (type (==>)) import GraphQL.Client.Args (type (==>))
    ...@@ -45,7 +46,7 @@ toJsonError :: NonEmptyList ForeignError -> JsonDecodeError ...@@ -45,7 +46,7 @@ toJsonError :: NonEmptyList ForeignError -> JsonDecodeError
    toJsonError = unsafeCoerce -- map ForeignErrors to JsonDecodeError as you wish toJsonError = unsafeCoerce -- map ForeignErrors to JsonDecodeError as you wish
    getClient :: Session -> Effect (Client UrqlClient Schema Mutation Void) getClient :: Session -> Effect (Client UrqlClient Schema Mutation Void)
    getClient (Session { token }) = createClient { headers, url: "http://localhost:8008/gql" } getClient (Session { token, backend: Backend b }) = createClient { headers, url: b.baseUrl <> "/gql" }
    where where
    headers = [ ARH.RequestHeader "Authorization" $ "Bearer " <> token ] headers = [ ARH.RequestHeader "Authorization" $ "Bearer " <> token ]
    ......
    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