{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# OPTIONS_GHC -fno-warn-missing-fields #-} {-# OPTIONS_GHC -fno-warn-missing-signatures #-} {-# OPTIONS_GHC -fno-warn-name-shadowing #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} ----------------------------------------------------------------- -- Autogenerated by Thrift Compiler (0.10.0) -- -- -- -- DO NOT EDIT UNLESS YOU ARE SURE YOU KNOW WHAT YOU ARE DOING -- ----------------------------------------------------------------- module Data.Concrete.Autogen.AnnotateCommunicationService_Iface where import Prelude (($), (.), (>>=), (==), (++)) import qualified Prelude as P import qualified Control.Exception as X import qualified Control.Monad as M ( liftM, ap, when ) import Data.Functor ( (<$>) ) import qualified Data.ByteString.Lazy as LBS import qualified Data.Hashable as H import qualified Data.Int as I import qualified Data.Maybe as M (catMaybes) import qualified Data.Text.Lazy.Encoding as E ( decodeUtf8, encodeUtf8 ) import qualified Data.Text.Lazy as LT import qualified GHC.Generics as G (Generic) import qualified Data.Typeable as TY ( Typeable ) import qualified Data.HashMap.Strict as Map import qualified Data.HashSet as Set import qualified Data.Vector as Vector import qualified Test.QuickCheck.Arbitrary as QC ( Arbitrary(..) ) import qualified Test.QuickCheck as QC ( elements ) import qualified Thrift as T import qualified Thrift.Types as T import qualified Thrift.Arbitraries as T import Data.Concrete.Autogen.Metadata_Types as Metadata_Types import Data.Concrete.Autogen.Language_Types as Language_Types import Data.Concrete.Autogen.Structure_Types as Structure_Types import Data.Concrete.Autogen.Entities_Types as Entities_Types import Data.Concrete.Autogen.Situations_Types as Situations_Types import Data.Concrete.Autogen.Ex_Types as Ex_Types import Data.Concrete.Autogen.Email_Types as Email_Types import Data.Concrete.Autogen.Twitter_Types as Twitter_Types import Data.Concrete.Autogen.Audio_Types as Audio_Types import Data.Concrete.Autogen.Communication_Types as Communication_Types import Data.Concrete.Autogen.Annotate_Types as Annotate_Types class AnnotateCommunicationService_Iface a where annotate :: a -> Communication_Types.Communication -> P.IO Communication_Types.Communication getMetadata :: a -> P.IO Metadata_Types.AnnotationMetadata getDocumentation :: a -> P.IO LT.Text shutdown :: a -> P.IO ()