Skip to content

Commit 4d0904e

Browse files
VenInffendor
authored andcommitted
fixed imports
1 parent 423ac9b commit 4d0904e

File tree

1 file changed

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

1 file changed

+2
-3
lines changed

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

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
module Ide.Plugin.Cabal.Completion.Completer.Paths where
22

33
import qualified Data.List as List
4+
import Data.List.Extra (dropPrefix)
45
import qualified Data.Text as T
56
import Distribution.PackageDescription (Benchmark (..),
67
BuildInfo (..),
@@ -15,8 +16,6 @@ import Distribution.Utils.Path (getSymbolicPath)
1516
import Ide.Plugin.Cabal.Completion.Types
1617
import qualified System.FilePath as FP
1718
import 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
-}
6463
splitFileNameNoTrailingSlash :: 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')

0 commit comments

Comments
 (0)