projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
402f15d
)
[project @ 2005-01-11 12:12:36 by ross]
author
ross
<unknown>
Tue, 11 Jan 2005 12:12:36 +0000
(12:12 +0000)
committer
ross
<unknown>
Tue, 11 Jan 2005 12:12:36 +0000
(12:12 +0000)
haddock fix
System/FilePath.hs
patch
|
blob
|
history
diff --git
a/System/FilePath.hs
b/System/FilePath.hs
index
e82ad25
..
4ae4a88
100644
(file)
--- a/
System/FilePath.hs
+++ b/
System/FilePath.hs
@@
-229,9
+229,10
@@
isAbsolutePath (c:_) | isPathSeparator c = True
#endif
isAbsolutePath _ = False
#endif
isAbsolutePath _ = False
--- | If the function is applied to an absolute path then it returns a local path droping
--- the absolute prefix in the path. Under Windows the prefix is \"\\\", \"c:\" or \"c:\\\". Under
--- Unix the prefix is always \"/\".
+-- | If the function is applied to an absolute path then it returns a
+-- local path obtained by dropping the absolute prefix from the path.
+-- Under Windows the prefix is @\"\\\"@, @\"c:\"@ or @\"c:\\\"@.
+-- Under Unix the prefix is always @\"\/\"@.
dropAbsolutePrefix :: FilePath -> FilePath
dropAbsolutePrefix (c:cs) | isPathSeparator c = cs
#ifdef mingw32_TARGET_OS
dropAbsolutePrefix :: FilePath -> FilePath
dropAbsolutePrefix (c:cs) | isPathSeparator c = cs
#ifdef mingw32_TARGET_OS