mirror of
https://github.com/valitydev/thrift.git
synced 2024-11-07 02:45:22 +00:00
0c90f6f8af
Summary: - Expanded tabs to spaces where spaces were the norm. - Deleted almost all trailing whitespace. - Added newlines to the ends of a few files. - Ran dos2unix on one file or two. Reviewed By: mcslee Test Plan: git diff -b Revert Plan: ok git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665467 13f79535-47bb-0310-9956-ffa450edef68
30 lines
937 B
Haskell
30 lines
937 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
|
|
|