【Haskell】Networkモジュール

Networkモジュールを使ってみた。

import Network
import System.IO

main = withSocketsDo (
         do s <- listenOn $ PortNumber 8080
            (h, n, p) <- accept s
            print ( h, n, p )
            getLineAndPrint s h
            sClose s
         )

getLineAndPrint s h = do l <- hGetLine h
                         print l
                         exitTest l
  where exitTest "exit\r" = return ()
        exitTest _        = getLineAndPrint s h

PortNumber 8080 をlistenOnして、acceptする。

hGetLineソケットから読み込み、printする。

もし入力されたものが"exit\r"なら終了。

そうでなければ、引き続き読み込む。