let the 'se utf8' command change the terminal codepage to 65001 on Windows

This commit is contained in:
krasimir
2009-08-25 18:35:33 +00:00
parent c0e55c4bc9
commit b72fe16445

View File

@@ -160,6 +160,7 @@ loop opts gfenv0 = do
'c':'p':c -> case reads c of
[(cp,"")] -> setConsoleCP cp >> setConsoleOutputCP cp
_ -> return ()
"utf8" -> setConsoleCP 65001 >> setConsoleOutputCP 65001
_ -> return ()
#endif
loopNewCPU $ gfenv {coding = cod}