Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed haddock comment.

Browse source
This commit is contained in:
John MacFarlane 2014-08-13 13:59:18 -07:00
parent 3b7d276ab0
commit 17b2fd567b
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Text/Pandoc/Shared.hs
View file

@ -857,15 +857,13 @@ warn msg = do
-- | Remove intermediate "." and ".." directories from a path.
--
-- @
-- collapseFilePath "./foo" == "foo"
-- collapseFilePath "/bar/../baz" == "/baz"
-- collapseFilePath "/../baz" == "/../baz"
-- collapseFilePath "parent/foo/baz/../bar" == "parent/foo/bar"
-- collapseFilePath "parent/foo/baz/../../bar" == "parent/bar"
-- collapseFilePath "parent/foo/.." == "parent"
-- collapseFilePath "/parent/foo/../../bar" == "/bar"
-- @
-- > collapseFilePath "./foo" == "foo"
-- > collapseFilePath "/bar/../baz" == "/baz"
-- > collapseFilePath "/../baz" == "/../baz"
-- > collapseFilePath "parent/foo/baz/../bar" == "parent/foo/bar"
-- > collapseFilePath "parent/foo/baz/../../bar" == "parent/bar"
-- > collapseFilePath "parent/foo/.." == "parent"
-- > collapseFilePath "/parent/foo/../../bar" == "/bar"
collapseFilePath :: FilePath -> FilePath
collapseFilePath = joinPath . reverse . foldl go [] . splitDirectories
where