From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 7 Nov 2006 12:11:41 +0000 (+0000)
Subject: enable canonicalizePath for non-GHC platforms
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bd859e0ec591b0de1a68af5d63e4ddd044ebcf40;p=ghc-base.git

enable canonicalizePath for non-GHC platforms
---

diff --git a/System/Directory.hs b/System/Directory.hs
index e5e988f..17fc358 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -564,7 +564,6 @@ copyFile fromFPath toFPath =
 				copyContents hFrom hTo buffer
 #endif
 
-#ifdef __GLASGOW_HASKELL__
 -- | Given path referring to a file or directory, returns a
 -- canonicalized path, with the intent that two paths referring
 -- to the same file\/directory will map to the same canonicalized
@@ -597,11 +596,6 @@ foreign import ccall unsafe "realpath"
                               -> CString
                               -> IO CString
 #endif
-#else /* !__GLASGOW_HASKELL__ */
--- dummy implementation
-canonicalizePath :: FilePath -> IO FilePath
-canonicalizePath fpath = return fpath
-#endif /* !__GLASGOW_HASKELL__ */
 
 -- | Given an executable file name, searches for such file
 -- in the directories listed in system PATH. The returned value