From bd859e0ec591b0de1a68af5d63e4ddd044ebcf40 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 7 Nov 2006 12:11:41 +0000 Subject: [PATCH] enable canonicalizePath for non-GHC platforms --- System/Directory.hs | 6 ------ 1 file changed, 6 deletions(-) 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 -- 1.7.10.4