Skip to content

haskell-gargantext
haskell-gargantext
Switch branch/tag
Find file
BlameHistoryPermalink
Utils.hs 475 Bytes
1 2 3 4 5 6 7 8 9 10 11 
module Gargantext.API.GraphQL.Utils where

import Data.Morpheus.Types (GQLTypeOptions(..))
import qualified Data.Text as T
import Gargantext.Core.Utils.Prefix (unCapitalize, dropPrefix)
import Gargantext.Prelude

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