From 17b2fd567bcd39171b2b01b5c4f19644443447e3 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 13 Aug 2014 13:59:18 -0700 Subject: Fixed haddock comment. --- src/Text/Pandoc/Shared.hs | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index df39f77d8..3adf2a1f6 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -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 -- cgit v1.2.3