Haskellから伺かをしゃべらせてみる

id:omochist:20061121:1164121012に触発されてHaskellでもやってみました。とりあえず「ほげ」としゃべらせてみます。
GHCの日本語サポート具合まだまだでRubyに比べるといろいろと大変です。今回はとりあえずEUC-JPの文字列をプログラムに埋め込んでみました。

module Main (main) where

import Network (PortID (PortNumber), sendTo)

sstpSend :: String -> IO ()
sstpSend = sendTo "localhost" (PortNumber 9801)

sstpReqSend :: String -> String
sstpReqSend script = reqB ++ "Script: " ++ script ++ "\r\n" ++ reqE
  where
    reqB = "SEND SSTP/1.1\r\nSender: Haskell SSTP\r\n"
    reqE = "Charset: EUC-JP\r\n\r\n"

main :: IO ()
main = sstpSend $ sstpReqSend "\\h\\s0ほげ\\e"

参照: http://www.sbcr.jp/vwalker/feature/special_old/sp_20010625/index04.html