Typo
[packages/base.git] / tests / T4006.hs
1 import System.Process
2
3 testUnicode :: String -> IO String
4 testUnicode str = readProcess "printf" ["%s", str] ""
5
6 main = do
7 testUnicode "It works here" >>= putStrLn
8 testUnicode "А здесь сломалось" >>= putStrLn