@@ -51,14 +51,20 @@ data PathCompletionInfo = PathCompletionInfo
51
51
if wasn't present in the original path.
52
52
53
53
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")
62
68
-}
63
69
splitFileNameNoTrailingSlash :: FilePath -> (String , String )
64
70
splitFileNameNoTrailingSlash prefix = rmTrailingSlash (" ./" `List.isPrefixOf` prefix) (Posix. splitFileName prefix)
@@ -85,7 +91,7 @@ pathCompletionInfoFromCabalPrefixInfo srcDir prefInfo =
85
91
}
86
92
where
87
93
prefix = T. unpack $ completionPrefix prefInfo
88
- (queryDirectory', pathSegment') = splitFileNameNoTrailingSlash prefix
94
+ (queryDirectory', pathSegment') = splitFileNameNoTrailingSlash prefix
89
95
90
96
-- | Extracts the source directories of the library stanza.
91
97
sourceDirsExtractionLibrary :: Maybe StanzaName -> GenericPackageDescription -> [FilePath ]
0 commit comments