{-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE NoImplicitPrelude #-} module Data.Morpheus.Server.Types.Visitors ( VisitType (..), VisitField (..), VisitEnum (..), ) where import Relude class VisitType a where visitTypeName :: a -> Text -> Text visitTypeName a _ = forall a. a -> a id visitTypeDescription :: a -> Maybe Text -> Maybe Text visitTypeDescription = forall a b. a -> b -> a const forall a. a -> a id class VisitField a where visitFieldName :: a -> Text -> Text visitFieldName a _ = forall a. a -> a id visitFieldDescription :: a -> Maybe Text -> Maybe Text visitFieldDescription a _ = forall a. a -> a id class VisitEnum a where visitEnumName :: a -> Text -> Text visitEnumName a _ = forall a. a -> a id visitEnumDescription :: a -> Maybe Text -> Maybe Text visitEnumDescription a _ = forall a. a -> a id