File tree Expand file tree Collapse file tree 1 file changed +2
-3
lines changed
plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Completer Expand file tree Collapse file tree 1 file changed +2
-3
lines changed Original file line number Diff line number Diff line change 11module Ide.Plugin.Cabal.Completion.Completer.Paths where
22
33import qualified Data.List as List
4+ import Data.List.Extra (dropPrefix )
45import qualified Data.Text as T
56import Distribution.PackageDescription (Benchmark (.. ),
67 BuildInfo (.. ),
@@ -15,8 +16,6 @@ import Distribution.Utils.Path (getSymbolicPath)
1516import Ide.Plugin.Cabal.Completion.Types
1617import qualified System.FilePath as FP
1718import qualified System.FilePath.Posix as Posix
18- import Data.List.Extra (dropPrefix )
19- import Data.List (isPrefixOf )
2019
2120
2221{- | Information used to query and build path completions.
@@ -62,7 +61,7 @@ data PathCompletionInfo = PathCompletionInfo
6261 "./dir1/dir2" -> ("./dir1/","dir2")
6362-}
6463splitFileNameNoTrailingSlash :: FilePath -> (String , String )
65- splitFileNameNoTrailingSlash prefix = rmTrailingSlash (" ./" `isPrefixOf` prefix) (Posix. splitFileName prefix)
64+ splitFileNameNoTrailingSlash prefix = rmTrailingSlash (" ./" `List. isPrefixOf` prefix) (Posix. splitFileName prefix)
6665 where rmTrailingSlash hadTrailingSlash (queryDirectory', pathSegment')
6766 | hadTrailingSlash = (queryDirectory', pathSegment')
6867 | otherwise = (" ./" `dropPrefix` queryDirectory', pathSegment')
You can’t perform that action at this time.
0 commit comments