IMT.purs 597 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
module Gargantext.Components.GraphQL.IMT where

import Gargantext.Prelude

import Affjax.RequestBody (RequestBody(..))
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(..))


type School
  = { school_id        :: String
    , school_longName  :: String
    , school_shortName :: String
    }

schoolsQuery = { imt_schools:
                  { school_id: unit
                  , school_longName: unit
                  , school_shortName: unit}
                }