Haskell で漢字コード変換

どう書く?orgの例を実行してみた。

 $ cat sjis2euc.hs
 import Data.ByteString.Lazy as B
 import Codec.Text.IConv
 
 -- "UTF-8" or "LATIN1"
 sjis2eucjp :: ByteString -> ByteString
 sjis2eucjp = convert "SHIFT-JIS" "EUC-JP"  
 
 main :: IO ()
 main = B.interact sjis2eucjp
 
$ ghc --make sjis2euc.hs
[1 of 1] Compiling Main             ( sjis2euc.hs, sjis2euc.o )
Linking sjis2euc ...
 
$ echo "こんにちは"|nkf -g
UTF-8
$ echo "こんにちは"|nkf -s|nkf -g
Shift_JIS
$ echo "こんにちは"|nkf -s|./sjis2euc|nkf -g
EUC-JP