NLP.purs

module Gargantext.Components.GraphQL.NLP where

import Gargantext.Prelude

import GraphQL.Client.Args (Args, NotNull, (=>>))
import GraphQL.Client.Variable (Var(..))
import Gargantext.Components.Lang (Lang(..), ServerType)
import Gargantext.Utils.GraphQL as GGQL
import Type.Proxy (Proxy(..))

type LanguageProperties
  = { url    :: String
    , server :: ServerType
    }

type Language
  = { key   :: Lang
    , value :: LanguageProperties }

type NLPQuery =
  { languages ::
       { key :: Unit
       , value :: {
           url :: Unit
         , server :: Unit }
       }
  }

nlpQuery :: NLPQuery
nlpQuery = { languages:
             { key   : unit
             , value : {
                 url : unit
               , server: unit }
             }
           }