Haskellで簡単なサーバーを書いて嵌ったこと。 クライアントでデータを送る際、hFlushしないと送り終わる前に接続が切れてしまう。 import Network import System.IO main :: IO () main = withSocketsDo $ do hSetBuffering stdout NoBuffering server `cat…