networking - TCP 在 GHCi 中工作，在使用 Leksah 编译的程序中缓冲直到程序退出

Question

我编写了这个简单的原型(prototype)客户端来向我正在开发的服务器发送命令。它在 GHCi 中运行完美，但编译版本会缓冲输入的所有内容，直到我输入“退出”并退出程序。那时所有的输入文本都被发送了。

我做错了什么？为什么编译时会有所不同？

更新:如果使用 ghc Main.hs 编译，它会按预期工作。使用 Leksah 编译时会出现问题通过包 ->构建。有人知道如何获取 Leksah 使用的命令行吗？

系统信息:OSX 10.6、GHC 7.0.3、网络 2.3.0.2

module Main (
    main
) where

import System.IO
import Network

main = do
    hServer <- connectTo "localhost" (PortNumber 7000)
    hSetBuffering hServer NoBuffering
    loop hServer
    hClose hServer
    where loop :: Handle -> IO ()
          loop hServer = do
            s <- getLine
            hPutStrLn hServer s
            case s of "quit" -> return ()
                      otherwise -> loop hServer

Answer 1

Leksah 使用“cabal build”，旧版本使用“runhaskell Setup build”。