mirror of
https://github.com/valitydev/thrift.git
synced 2024-11-07 10:48:51 +00:00
ff8eb9288d
Summary: It's thrift for haskell. The codegen is complete. The library has binary protocol, io channel transport, and a threaded server. Reviewed by: mcslee Test plan: Yes Revert plan: yes git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665174 13f79535-47bb-0310-9956-ffa450edef68
30 lines
947 B
Haskell
30 lines
947 B
Haskell
module Client where
|
|
import Thrift
|
|
import ThriftTest_Client
|
|
import ThriftTest_Types
|
|
import TSocket
|
|
import TBinaryProtocol
|
|
import qualified Data.Map as Map
|
|
import qualified Data.Set as Set
|
|
import Control.Monad
|
|
t = TSocket "127.0.0.1" 9090 Nothing
|
|
|
|
main = do to <- topen t
|
|
let p = TBinaryProtocol to
|
|
let ps = (p,p)
|
|
print =<< testString ps "bya"
|
|
print =<< testByte ps 8
|
|
print =<< testByte ps (-8)
|
|
print =<< testI32 ps 32
|
|
print =<< testI32 ps (-32)
|
|
print =<< testI64 ps 64
|
|
print =<< testI64 ps (-64)
|
|
print =<< testDouble ps 3.14
|
|
print =<< testDouble ps (-3.14)
|
|
print =<< testMap ps (Map.fromList [(1,1),(2,2),(3,3)])
|
|
print =<< testList ps [1,2,3,4,5]
|
|
print =<< testSet ps (Set.fromList [1,2,3,4,5])
|
|
print =<< testStruct ps (Xtruct (Just "hi") (Just 4) (Just 5) Nothing)
|
|
tclose to
|
|
|