17b2fd5 · typeable/pandoc

git.iko.soy/typeable/pandoc

Fixed haddock comment.

commit17b2fd567bcd39171b2b01b5c4f19644443447e3 authorJohn MacFarlane <jgm@berkeley.edu> dateWed 13 Aug 2014, 13:59 (12 years ago) parent3b7d276

1 file changed+7−9

unifiedsplit

src/Text/Pandoc/Shared.hs+7−9

@@ -857,15 +857,13 @@ warn msg = do

857857

858858-- | Remove intermediate "." and ".." directories from a path.

859859--

860−-- @

861−-- collapseFilePath "./foo" == "foo"

862−-- collapseFilePath "/bar/../baz" == "/baz"

863−-- collapseFilePath "/../baz" == "/../baz"

864−-- collapseFilePath "parent/foo/baz/../bar" == "parent/foo/bar"

865−-- collapseFilePath "parent/foo/baz/../../bar" == "parent/bar"

866−-- collapseFilePath "parent/foo/.." == "parent"

867−-- collapseFilePath "/parent/foo/../../bar" == "/bar"

868−-- @

860+-- > collapseFilePath "./foo" == "foo"

861+-- > collapseFilePath "/bar/../baz" == "/baz"

862+-- > collapseFilePath "/../baz" == "/../baz"

863+-- > collapseFilePath "parent/foo/baz/../bar" == "parent/foo/bar"

864+-- > collapseFilePath "parent/foo/baz/../../bar" == "parent/bar"

865+-- > collapseFilePath "parent/foo/.." == "parent"

866+-- > collapseFilePath "/parent/foo/../../bar" == "/bar"

869867collapseFilePath :: FilePath -> FilePath

870868collapseFilePath = joinPath . reverse . foldl go [] . splitDirectories

871869 where