mirror of
https://github.com/valitydev/thrift.git
synced 2024-11-08 19:23:51 +00:00
0781f2b549
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@763031 13f79535-47bb-0310-9956-ffa450edef68
58 lines
2.1 KiB
Haskell
58 lines
2.1 KiB
Haskell
--
|
|
-- Licensed to the Apache Software Foundation (ASF) under one
|
|
-- or more contributor license agreements. See the NOTICE file
|
|
-- distributed with this work for additional information
|
|
-- regarding copyright ownership. The ASF licenses this file
|
|
-- to you under the Apache License, Version 2.0 (the
|
|
-- "License"); you may not use this file except in compliance
|
|
-- with the License. You may obtain a copy of the License at
|
|
--
|
|
-- http://www.apache.org/licenses/LICENSE-2.0
|
|
--
|
|
-- Unless required by applicable law or agreed to in writing,
|
|
-- software distributed under the License is distributed on an
|
|
-- "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
-- KIND, either express or implied. See the License for the
|
|
-- specific language governing permissions and limitations
|
|
-- under the License.
|
|
--
|
|
|
|
module Server where
|
|
|
|
import ThriftTest
|
|
import ThriftTest_Iface
|
|
import Data.Map as Map
|
|
import Control.Exception
|
|
import ThriftTest_Types
|
|
|
|
import Thrift
|
|
import Thrift.Server
|
|
|
|
|
|
data TestHandler = TestHandler
|
|
instance ThriftTest_Iface TestHandler where
|
|
testVoid a = return ()
|
|
testString a (Just s) = do print s; return s
|
|
testByte a (Just x) = do print x; return x
|
|
testI32 a (Just x) = do print x; return x
|
|
testI64 a (Just x) = do print x; return x
|
|
testDouble a (Just x) = do print x; return x
|
|
testStruct a (Just x) = do print x; return x
|
|
testNest a (Just x) = do print x; return x
|
|
testMap a (Just x) = do print x; return x
|
|
testSet a (Just x) = do print x; return x
|
|
testList a (Just x) = do print x; return x
|
|
testEnum a (Just x) = do print x; return x
|
|
testTypedef a (Just x) = do print x; return x
|
|
testMapMap a (Just x) = return (Map.fromList [(1,Map.fromList [(2,2)])])
|
|
testInsanity a (Just x) = return (Map.fromList [(1,Map.fromList [(ONE,x)])])
|
|
testMulti a a1 a2 a3 a4 a5 a6 = return (Xtruct Nothing Nothing Nothing Nothing)
|
|
testException a c = throw (Xception (Just 1) (Just "bya"))
|
|
testMultiException a c1 c2 = throw (Xception (Just 1) (Just "xyz"))
|
|
testOneway a (Just i) = do print i
|
|
|
|
|
|
main = do (runBasicServer TestHandler process 9090)
|
|
`Control.Exception.catch`
|
|
(\(TransportExn s t) -> print s)
|