projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e0243d8
)
enable canonicalizePath for non-GHC platforms
author
Simon Marlow
<simonmar@microsoft.com>
Tue, 7 Nov 2006 12:11:41 +0000
(12:11 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Tue, 7 Nov 2006 12:11:41 +0000
(12:11 +0000)
System/Directory.hs
patch
|
blob
|
history
diff --git
a/System/Directory.hs
b/System/Directory.hs
index
e5e988f
..
17fc358
100644
(file)
--- a/
System/Directory.hs
+++ b/
System/Directory.hs
@@
-564,7
+564,6
@@
copyFile fromFPath toFPath =
copyContents hFrom hTo buffer
#endif
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
-- | 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
-> 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
-- | Given an executable file name, searches for such file
-- in the directories listed in system PATH. The returned value