Haskell Unicode normalization

unicodeNorm.hs

import Data.Text.Normalize
import qualified Data.Text as T
import GHC.IO.Encoding
import System.Win32.Console

procString :: (T.Text -> T.Text) -> String -> String
procString f = T.unpack . f . T.pack

testStr = "😀éé"

main :: IO ()
main = do
    setLocaleEncoding utf8
    setConsoleOutputCP 65001 -- Windows specific
    print $ length $ procString (normalize NFD) $ testStr
    print $ length $ procString (normalize NFKD) $ testStr
    print $ length $ procString (normalize NFC) $ testStr
    print $ length $ procString (normalize NFKC) $ testStr
    putStrLn $ procString (T.reverse . (normalize NFC)) $ testStr

-- Output:
-- 5
-- 5
-- 3
-- 3
-- éé😀