हास्केल और थ्रिफ्ट के साथ पिंग पोंग

Question

अटक गया है मैं हास्केल और थ्रिफ्ट का उपयोग करके एक साधारण पिंग पोंग करने की कोशिश कर रहा हूं। हालांकि, यह केवल एक दोहराव करता है और फिर यह अटक जाता है। मुझे लगता है कि समस्या हास्केल की बजाय बहाव के सही उपयोग (इन) में है। शायद कुछ ठीक से फ्लश नहीं किया जाता है। क्या कोई भी थ्रिफ्ट के साथ अनुभव वाला है जो इसे ठीक करने के तरीके पर शिक्षित अनुमान बनाने में मेरी मदद कर सकता है?

सर्वर:

echorequest :: TXT 
echorequest = TXT { 
    f_TXT_anytxt = Just "Ping" 
    } 

echoreply :: TXT 
echoreply = TXT { 
    f_TXT_anytxt = Just "Pong" 
    } 

serverFunc :: a -> (BinaryProtocol Handle, BinaryProtocol Handle) 
       -> IO Bool 
serverFunc a (h1,h2) = do 
    let t1 = getTransport h1 
    dat <- read_TXT h1 
-- the following two lines are only for debugging 
    putStrLn "Recieved data:" 
    print dat 
    write_TXT h1 echoreply 
    tFlush t1 
-- the following line is for debugging 
    putStrLn "Data written" 

    return False 


main :: IO() 
main = do 
    runBasicServer() serverFunc 4390 
    putStrLn "Server stopped" 

ग्राहक:

main :: IO() 
main = do 
    h <- connectTo "127.0.0.1" $ PortNumber 4390 
    let proto = BinaryProtocol h 
    putStrLn "Client started" 
    let tryOnePing c i = do 
     write_TXT proto echorequest 
     putStrLn "ping sent" 
     tFlush h 
     w <- read_TXT proto 
     putStrLn "pong received" 
     return $ if w == echoreply then c+1 else c 
    c <- foldM tryOnePing 0 [0 .. 1000] 
    tClose h 
    print (c, 10000 - c) 

Answer 1

आपकी समस्या आप serverFunc से झूठी लौट रहे हैं है। हास्केल पाश जब तक आप रिटर्न फाल्स (अपने कोड से, केवल एक बार)

http://hackage.haskell.org/packages/archive/thrift/0.6.0/doc/html/src/Thrift-Server.html#line-65