>>681
下記のコードで全く問題なく Shift_JIS をロードして Shift_JIS で保存された

writeFile "test2.txt" =<< return . unlines . id . lines =<< readFile "test.txt"

[環境]
Windows7
GHC 7.4.1