[commit: packages/filepath] master: #49, add @rwbarton's intuition/example, translated to Haskell (65202e4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/filepath

On branch  : master
Link       : http://git.haskell.org/packages/filepath.git/commitdiff/65202e4aabc00477d8fc73a412c523ccec0fa6bf

>---------------------------------------------------------------

commit 65202e4aabc00477d8fc73a412c523ccec0fa6bf
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Tue Dec 22 08:27:10 2015 +0000

    #49, add @rwbarton's intuition/example, translated to Haskell


>---------------------------------------------------------------

65202e4aabc00477d8fc73a412c523ccec0fa6bf
 System/FilePath/Internal.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/System/FilePath/Internal.hs b/System/FilePath/Internal.hs
index abb4e97..e659921 100644
--- a/System/FilePath/Internal.hs
+++ b/System/FilePath/Internal.hs
@@ -620,6 +620,8 @@ combineAlways a b | null a = b
 
 -- | Combine two paths with a path separator.
 --   If the second path starts with a path separator or a drive letter, then it returns the second.
+--   The intention is that @setCurrentDirectory dir; readFile file@ will access the same file as
+--   @readFile (dir '</>' file)@.
 --
 -- > Posix:   "/directory" </> "file.ext" == "/directory/file.ext"
 -- > Windows: "/directory" </> "file.ext" == "/directory\\file.ext"