@@ -51,14 +51,20 @@ data PathCompletionInfo = PathCompletionInfo
5151 if wasn't present in the original path.
5252
5353 Fix for the issue #3774
54-
55- Examples of path splitting:
56- "" -> ("", "") instead of ("./","")
57- "./" -> ("./", "")
58- "dir" -> ("", "dir") instead of ("./","dir")
59- "./dir" -> ("./", "dir")
60- "dir1/dir2" -> ("dir1/","dir2")
61- "./dir1/dir2" -> ("./dir1/","dir2")
54+ Examples:
55+
56+ >>> splitFileNameNoTrailingSlash ""
57+ ("", "")
58+ >>> splitFileNameNoTrailingSlash "./"
59+ ("./", "")
60+ >>> splitFileNameNoTrailingSlash "dir"
61+ ("", "dir")
62+ >>> splitFileNameNoTrailingSlash "./dir"
63+ ("./", "dir")
64+ >>> splitFileNameNoTrailingSlash "dir1/dir2"
65+ ("dir1/","dir2")
66+ >>> splitFileNameNoTrailingSlash "./dir1/dir2"
67+ ("./dir1/","dir2")
6268-}
6369splitFileNameNoTrailingSlash :: FilePath -> (String , String )
6470splitFileNameNoTrailingSlash prefix = rmTrailingSlash (" ./" `List.isPrefixOf` prefix) (Posix. splitFileName prefix)
@@ -85,7 +91,7 @@ pathCompletionInfoFromCabalPrefixInfo srcDir prefInfo =
8591 }
8692 where
8793 prefix = T. unpack $ completionPrefix prefInfo
88- (queryDirectory', pathSegment') = splitFileNameNoTrailingSlash prefix
94+ (queryDirectory', pathSegment') = splitFileNameNoTrailingSlash prefix
8995
9096-- | Extracts the source directories of the library stanza.
9197sourceDirsExtractionLibrary :: Maybe StanzaName -> GenericPackageDescription -> [FilePath ]
0 commit comments