----------------------------------------------------------------- -- Autogenerated by Thrift -- -- DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING -- @generated ----------------------------------------------------------------- {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC -fno-warn-unused-imports#-} {-# OPTIONS_GHC -fno-warn-overlapping-patterns#-} {-# OPTIONS_GHC -fno-warn-incomplete-patterns#-} {-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns#-} {-# OPTIONS_GHC -fno-warn-incomplete-record-updates#-} {-# LANGUAGE GADTs #-} module Glean.Glass.GlassService.Service (GlassServiceCommand(..), reqName', reqParser', respWriter', methodsInfo') where import qualified Control.Exception as Exception import qualified Control.Monad.ST.Trans as ST import qualified Control.Monad.Trans.Class as Trans import qualified Data.ByteString.Builder as Builder import qualified Data.Default as Default import qualified Data.HashMap.Strict as HashMap import qualified Data.Int as Int import qualified Data.Map.Strict as Map import qualified Data.Proxy as Proxy import qualified Data.Text as Text import qualified Data.Text.Encoding as Text import qualified Facebook.Thrift.Annotation.Cpp.Cpp.Types as Facebook.Thrift.Annotation.Cpp.Cpp import qualified Facebook.Thrift.Annotation.Thrift.Thrift.Types as Facebook.Thrift.Annotation.Thrift.Thrift import qualified Fb303.FacebookService.Service as FacebookService import qualified Fb303.Types as Fb303 import qualified Glean.Glass.Types as Types import qualified Hack.Types as Hack import qualified Prelude as Prelude import qualified Thrift.Binary.Parser as Parser import qualified Thrift.Codegen as Thrift import qualified Thrift.Processor as Thrift import qualified Thrift.Protocol.ApplicationException.Types as Thrift import Control.Applicative ((<*), (*>)) import Data.Monoid ((<>)) import Prelude ((<$>), (<*>), (++), (.), (==)) data GlassServiceCommand a where DocumentSymbolListX :: Types.DocumentSymbolsRequest -> Types.RequestOptions -> GlassServiceCommand Types.DocumentSymbolListXResult DocumentSymbolIndex :: Types.DocumentSymbolsRequest -> Types.RequestOptions -> GlassServiceCommand Types.DocumentSymbolIndex FindReferenceRanges :: Types.SymbolId -> Types.RequestOptions -> GlassServiceCommand [Types.LocationRange] DescribeSymbol :: Types.SymbolId -> Types.RequestOptions -> GlassServiceCommand Types.SymbolDescription SymbolLocation :: Types.SymbolId -> Types.RequestOptions -> GlassServiceCommand Types.SymbolLocation ResolveSymbols :: Types.ResolveSymbolsRequest -> Types.RequestOptions -> GlassServiceCommand Types.ResolveSymbolsResult SearchSymbol :: Types.SymbolSearchRequest -> Types.RequestOptions -> GlassServiceCommand Types.SymbolSearchResult SearchRelated :: Types.SymbolId -> Types.RequestOptions -> Types.SearchRelatedRequest -> GlassServiceCommand Types.SearchRelatedResult SearchRelatedNeighborhood :: Types.SymbolId -> Types.RequestOptions -> Types.RelatedNeighborhoodRequest -> GlassServiceCommand Types.RelatedNeighborhoodResult FileIncludeLocations :: Types.FileIncludeLocationRequest -> Types.RequestOptions -> GlassServiceCommand Types.FileIncludeLocationResults ClangUSRToDefinition :: Types.USRHash -> Types.RequestOptions -> GlassServiceCommand Types.USRSymbolDefinition UsrToDefinition :: Types.USRToDefinitionRequest -> Types.RequestOptions -> GlassServiceCommand Types.USRSymbolDefinition SuperFacebookService :: FacebookService.FacebookServiceCommand a -> GlassServiceCommand a instance Thrift.Processor GlassServiceCommand where reqName = reqName' reqParser = reqParser' respWriter = respWriter' methodsInfo _ = methodsInfo' reqName' :: GlassServiceCommand a -> Text.Text reqName' (DocumentSymbolListX __field__request __field__options) = "documentSymbolListX" reqName' (DocumentSymbolIndex __field__request __field__options) = "documentSymbolIndex" reqName' (FindReferenceRanges __field__symbol __field__options) = "findReferenceRanges" reqName' (DescribeSymbol __field__symbol __field__options) = "describeSymbol" reqName' (SymbolLocation __field__symbol __field__options) = "symbolLocation" reqName' (ResolveSymbols __field__request __field__options) = "resolveSymbols" reqName' (SearchSymbol __field__request __field__options) = "searchSymbol" reqName' (SearchRelated __field__symbol __field__options __field__request) = "searchRelated" reqName' (SearchRelatedNeighborhood __field__symbol __field__options __field__request) = "searchRelatedNeighborhood" reqName' (FileIncludeLocations __field__request __field__options) = "fileIncludeLocations" reqName' (ClangUSRToDefinition __field__hash __field__options) = "clangUSRToDefinition" reqName' (UsrToDefinition __field__request __field__options) = "usrToDefinition" reqName' (SuperFacebookService x) = FacebookService.reqName' x reqParser' :: Thrift.Protocol p => Proxy.Proxy p -> Text.Text -> Parser.Parser (Thrift.Some GlassServiceCommand) reqParser' _proxy "documentSymbolListX" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (DocumentSymbolListX __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 2)] _parse 0) reqParser' _proxy "documentSymbolIndex" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (DocumentSymbolIndex __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 2)] _parse 0) reqParser' _proxy "findReferenceRanges" = ST.runSTT (do Prelude.return () __field__symbol <- ST.newSTRef (Types.SymbolId "") __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.SymbolId (Thrift.parseText _proxy)) ST.writeSTRef __field__symbol _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__symbol <- ST.readSTRef __field__symbol !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (FindReferenceRanges __val__symbol __val__options)) _idMap = HashMap.fromList [("symbol", 1), ("options", 2)] _parse 0) reqParser' _proxy "describeSymbol" = ST.runSTT (do Prelude.return () __field__symbol <- ST.newSTRef (Types.SymbolId "") __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.SymbolId (Thrift.parseText _proxy)) ST.writeSTRef __field__symbol _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__symbol <- ST.readSTRef __field__symbol !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (DescribeSymbol __val__symbol __val__options)) _idMap = HashMap.fromList [("symbol", 1), ("options", 2)] _parse 0) reqParser' _proxy "symbolLocation" = ST.runSTT (do Prelude.return () __field__symbol <- ST.newSTRef (Types.SymbolId "") __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.SymbolId (Thrift.parseText _proxy)) ST.writeSTRef __field__symbol _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__symbol <- ST.readSTRef __field__symbol !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (SymbolLocation __val__symbol __val__options)) _idMap = HashMap.fromList [("symbol", 1), ("options", 2)] _parse 0) reqParser' _proxy "resolveSymbols" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (ResolveSymbols __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 2)] _parse 0) reqParser' _proxy "searchSymbol" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 3 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (SearchSymbol __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 3)] _parse 0) reqParser' _proxy "searchRelated" = ST.runSTT (do Prelude.return () __field__symbol <- ST.newSTRef (Types.SymbolId "") __field__options <- ST.newSTRef Default.def __field__request <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.SymbolId (Thrift.parseText _proxy)) ST.writeSTRef __field__symbol _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val 3 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__symbol <- ST.readSTRef __field__symbol !__val__options <- ST.readSTRef __field__options !__val__request <- ST.readSTRef __field__request Prelude.pure (Thrift.Some (SearchRelated __val__symbol __val__options __val__request)) _idMap = HashMap.fromList [("symbol", 1), ("options", 2), ("request", 3)] _parse 0) reqParser' _proxy "searchRelatedNeighborhood" = ST.runSTT (do Prelude.return () __field__symbol <- ST.newSTRef (Types.SymbolId "") __field__options <- ST.newSTRef Default.def __field__request <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.SymbolId (Thrift.parseText _proxy)) ST.writeSTRef __field__symbol _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val 3 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__symbol <- ST.readSTRef __field__symbol !__val__options <- ST.readSTRef __field__options !__val__request <- ST.readSTRef __field__request Prelude.pure (Thrift.Some (SearchRelatedNeighborhood __val__symbol __val__options __val__request)) _idMap = HashMap.fromList [("symbol", 1), ("options", 2), ("request", 3)] _parse 0) reqParser' _proxy "fileIncludeLocations" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (FileIncludeLocations __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 2)] _parse 0) reqParser' _proxy "clangUSRToDefinition" = ST.runSTT (do Prelude.return () __field__hash <- ST.newSTRef (Types.USRHash "") __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStringType _proxy -> do !_val <- Trans.lift (Prelude.fmap Types.USRHash (Thrift.parseText _proxy)) ST.writeSTRef __field__hash _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__hash <- ST.readSTRef __field__hash !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (ClangUSRToDefinition __val__hash __val__options)) _idMap = HashMap.fromList [("hash", 1), ("options", 2)] _parse 0) reqParser' _proxy "usrToDefinition" = ST.runSTT (do Prelude.return () __field__request <- ST.newSTRef Default.def __field__options <- ST.newSTRef Default.def let _parse _lastId = do _fieldBegin <- Trans.lift (Thrift.parseFieldBegin _proxy _lastId _idMap) case _fieldBegin of Thrift.FieldBegin _type _id _bool -> do case _id of 1 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__request _val 2 | _type == Thrift.getStructType _proxy -> do !_val <- Trans.lift (Thrift.parseStruct _proxy) ST.writeSTRef __field__options _val _ -> Trans.lift (Thrift.parseSkip _proxy _type (Prelude.Just _bool)) _parse _id Thrift.FieldEnd -> do !__val__request <- ST.readSTRef __field__request !__val__options <- ST.readSTRef __field__options Prelude.pure (Thrift.Some (UsrToDefinition __val__request __val__options)) _idMap = HashMap.fromList [("request", 1), ("options", 2)] _parse 0) reqParser' _proxy funName = do Thrift.Some x <- FacebookService.reqParser' _proxy funName Prelude.return (Thrift.Some (SuperFacebookService x)) respWriter' :: Thrift.Protocol p => Proxy.Proxy p -> Int.Int32 -> GlassServiceCommand a -> Prelude.Either Exception.SomeException a -> (Builder.Builder, Prelude.Maybe (Exception.SomeException, Thrift.Blame)) respWriter' _proxy _seqNum DocumentSymbolListX{} _r = (Thrift.genMsgBegin _proxy "documentSymbolListX" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum DocumentSymbolIndex{} _r = (Thrift.genMsgBegin _proxy "documentSymbolIndex" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum FindReferenceRanges{} _r = (Thrift.genMsgBegin _proxy "findReferenceRanges" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getListType _proxy) 0 0 (Thrift.genList _proxy (Thrift.getStructType _proxy) (Thrift.buildStruct _proxy) _result)], Prelude.Nothing) respWriter' _proxy _seqNum DescribeSymbol{} _r = (Thrift.genMsgBegin _proxy "describeSymbol" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum SymbolLocation{} _r = (Thrift.genMsgBegin _proxy "symbolLocation" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum ResolveSymbols{} _r = (Thrift.genMsgBegin _proxy "resolveSymbols" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum SearchSymbol{} _r = (Thrift.genMsgBegin _proxy "searchSymbol" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum SearchRelated{} _r = (Thrift.genMsgBegin _proxy "searchRelated" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum SearchRelatedNeighborhood{} _r = (Thrift.genMsgBegin _proxy "searchRelatedNeighborhood" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum FileIncludeLocations{} _r = (Thrift.genMsgBegin _proxy "fileIncludeLocations" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum ClangUSRToDefinition{} _r = (Thrift.genMsgBegin _proxy "clangUSRToDefinition" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum UsrToDefinition{} _r = (Thrift.genMsgBegin _proxy "usrToDefinition" _msgType _seqNum <> _msgBody <> Thrift.genMsgEnd _proxy, _msgException) where (_msgType, _msgBody, _msgException) = case _r of Prelude.Left _ex | Prelude.Just _e@Thrift.ApplicationException{} <- Exception.fromException _ex -> (3, Thrift.buildStruct _proxy _e, Prelude.Just (_ex, Thrift.ServerError)) | Prelude.Just _e@Types.ServerException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "e" (Thrift.getStructType _proxy) 1 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.Just _e@Types.GlassException{} <- Exception.fromException _ex -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "g" (Thrift.getStructType _proxy) 2 0 (Thrift.buildStruct _proxy _e)], Prelude.Just (_ex, Thrift.ClientError)) | Prelude.otherwise -> let _e = Thrift.ApplicationException (Text.pack (Prelude.show _ex)) Thrift.ApplicationExceptionType_InternalError in (3, Thrift.buildStruct _proxy _e, Prelude.Just (Exception.toException _e, Thrift.ServerError)) Prelude.Right _result -> (2, Thrift.genStruct _proxy [Thrift.genField _proxy "" (Thrift.getStructType _proxy) 0 0 (Thrift.buildStruct _proxy _result)], Prelude.Nothing) respWriter' _proxy _seqNum (SuperFacebookService _x) _r = FacebookService.respWriter' _proxy _seqNum _x _r methodsInfo' :: Map.Map Text.Text Thrift.MethodInfo methodsInfo' = Map.union (Map.fromList [("documentSymbolListX", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("documentSymbolIndex", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("findReferenceRanges", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("describeSymbol", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("symbolLocation", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("resolveSymbols", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("searchSymbol", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("searchRelated", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("searchRelatedNeighborhood", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("fileIncludeLocations", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("clangUSRToDefinition", Thrift.MethodInfo Thrift.NormalPriority Prelude.False), ("usrToDefinition", Thrift.MethodInfo Thrift.NormalPriority Prelude.False)]) FacebookService.methodsInfo'