Skip to content

Commit 630efd5

Browse files
committed
fix empty list logic
1 parent 3ea33e4 commit 630efd5

File tree

1 file changed

+1
-5
lines changed
  • ghcide/src/Development/IDE/Plugin/Completions

1 file changed

+1
-5
lines changed

ghcide/src/Development/IDE/Plugin/Completions/Logic.hs

+1-5
Original file line numberDiff line numberDiff line change
@@ -604,14 +604,10 @@ getCompletions plId ideOpts CC {allModNamesAsNS, anyQualCompls, unqualCompls, qu
604604
if
605605
| "import " `T.isPrefixOf` fullLine
606606
-> return filtImportCompls
607-
-- we leave these condition here to avoid duplications and return empty list
607+
-- we leave this condition here to avoid duplications and return empty list
608608
-- since HLS implements these completions (#haskell-language-server/pull/662)
609-
| "{-# options_ghc" `T.isPrefixOf` T.toLower fullLine
610-
-> return []
611609
| "{-# " `T.isPrefixOf` fullLine
612610
-> return []
613-
| "{-# language" `T.isPrefixOf` T.toLower fullLine
614-
-> return []
615611
| otherwise -> do
616612
-- assumes that nubOrdBy is stable
617613
let uniqueFiltCompls = nubOrdBy uniqueCompl filtCompls

0 commit comments

Comments
 (0)