`concat . splitDirectories` is not the `id` function?

[gittywithexcitement]

(on my linux box)

import qualified Filesystem.Path as F
import Filesystem.Path.CurrentOS (toText)
import Data.Either.Combinators (fromRight')

ghci> fromRight' . toText . F.concat . F.splitDirectories $ fromString "/opt/ghc"
"//opt/ghc"

or more simply:

*Main> fromString $ "/opt/ghc" :: FilePath
FilePath "/opt/ghc"
*Main> F.concat . F.splitDirectories . fromString $ "/opt/ghc"
FilePath "//opt/ghc"

[gittywithexcitement]

In fact, concat . splitDirectories also does not behave as I would expect, as evidenced by playing around with stripPrefix:

without concat . splitDirectories:

*Main> (F.stripPrefix (fromString "/opt")) . fromString $ "/opt/ghc"
Nothing
*Main> (F.stripPrefix (fromString "/opt/")) . fromString $ "/opt/ghc"
Just (FilePath "ghc")
*Main> (F.stripPrefix (fromString "/")) . fromString $ "/opt/ghc"
Just (FilePath "opt/ghc")

Looks good to me.

concat . splitDirectories:

*Main> (F.stripPrefix (fromString "/opt")) . F.concat . F.splitDirectories  . fromString $ "/opt/ghc"
Nothing
*Main> (F.stripPrefix (fromString "/opt/")) . F.concat . F.splitDirectories  . fromString $ "/opt/ghc"
Nothing
*Main> (F.stripPrefix (fromString "/")) . F.concat . F.splitDirectories  . fromString $ "/opt/ghc"
Nothing

what?

[d12frosted]

@snoyberg I think that it should be closed by #4

[snoyberg]

Good call, thanks.

[d12frosted]

You're welcome :D

[gittywithexcitement]

Awesome. Thanks for fixing, everybody!