Ping Pong với Haskell và Thrift bị kẹt

Question

Tôi đang cố gắng làm một Ping Pong đơn giản bằng cách sử dụng Haskell và Tiết kiệm. Tuy nhiên, nó chỉ có một sự lặp lại và sau đó nó bị mắc kẹt. Tôi giả định rằng vấn đề là trong việc sử dụng chính xác (trong) tiết kiệm hơn là trong Haskell. Có lẽ một cái gì đó không phải là đỏ bừng một cách chính xác. Có ai có kinh nghiệm với Tiết kiệm, ai có thể giúp tôi đoán được cách sửa lỗi này?

Server:

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" 

Chủ đầu tư:

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

Vấn đề của bạn là bạn đang trở về False từ serverFunc. Haskell sẽ lặp cho đến khi bạn trả về false (bằng mã của bạn, chỉ một lần)

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