Utils.hs 456 Bytes
Newer Older
1 2
module Gargantext.API.GraphQL.Utils where

3
import Data.Morpheus.Types (GQLTypeOptions, fieldLabelModifier)
4 5 6 7 8
import qualified Data.Text as T
import Gargantext.Core.Utils.Prefix (unCapitalize, dropPrefix)
import Gargantext.Prelude

unPrefix :: T.Text -> GQLTypeOptions -> GQLTypeOptions
9
unPrefix prefix options = options { fieldLabelModifier = nflm }
10
  where
11
    nflm label = unCapitalize $ dropPrefix (T.unpack prefix) $ ( fieldLabelModifier options ) label