Skip to content

Commit 7e20540

Browse files
VenInffendor
authored andcommitted
fixed documentation
1 parent 4d0904e commit 7e20540

File tree

1 file changed

+15
-9
lines changed
  • plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Completer

1 file changed

+15
-9
lines changed

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Completer/Paths.hs

Lines changed: 15 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -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
-}
6369
splitFileNameNoTrailingSlash :: FilePath -> (String, String)
6470
splitFileNameNoTrailingSlash 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.
9197
sourceDirsExtractionLibrary :: Maybe StanzaName -> GenericPackageDescription -> [FilePath]

0 commit comments

Comments
 (0)