X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=80a20ee957afa0309ba76f66d3bd944b35f6ce26;hb=b66b3290e33b761f0c4bc6efebd980df65fca037;hp=42ed6afe51c88e85171a9ef3763c419ee7815c6a;hpb=e5bc07906c3690afa056029f94e6aae5ef4dbaa6;p=haskell-directory.git

diff --git a/System/Directory.hs b/System/Directory.hs
index 42ed6af..80a20ee 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -584,7 +584,9 @@ canonicalizePath fpath =
 #else
     do c_realpath pInPath pOutPath
 #endif
-       peekCString pOutPath
+       path <- peekCString pOutPath
+       return (normalise path)
+        -- normalise does more stuff, like upper-casing the drive letter
 
 #if defined(mingw32_HOST_OS)
 foreign import stdcall unsafe "GetFullPathNameA"