Exception in canonicalizePath if path has national symbols

[Tonal]

Environment: Windows Vista Home Ru + sp1 ghc 6.10.2

Code for reproduced (file tst2.hs):

import System.Directory

main = do
  cwd <- canonicalizePath "."
  putStrLn cwd
  setCurrentDirectory cwd

Console session:

C:\Lang\test\haskell\Тест>ghc --make tst2.hs
[1 of 1] Compiling Main             ( tst2.hs, tst2.o )
Linking tst2.exe ...

C:\Lang\test\haskell\Тест>tst2.exe
C:\Lang\test\haskell\╥хёЄ
tst2.exe: SetCurrentDirectory: does not exist (
5 C405BAO =09B8 C:070==K9 D09;.)

[Tonal]

see also #3086 and #2963

[igloo]

Thanks for the report.

[simonmar]

Fixed. In directory:

Thu May 28 06:57:06 PDT 2009  Simon Marlow <marlowsd@gmail.com>
  * Fix #3189: use System.Win32.getFullPathName

and Win32:

Thu May 28 06:56:35 PDT 2009  Simon Marlow <marlowsd@gmail.com>
  * add getFullPathName