shiftjis.hs

module Main where

import System.Environment (getArgs)

import Data.ByteString (ByteString)
import qualified Data.ByteString as B

import Data.Text.ICU.Convert
import Data.Text.Encoding as T

main = do
  [filename] <- getArgs
  kiss <- B.readFile filename
  c <- open "SHIFT_JIS" Nothing
  B.putStrLn . T.encodeUtf8 . toUnicode c $ kiss