Initial set up to provide pragma completions.

Author: gdevanla

plugins/default/src/Ide/Plugin/Pragmas.hs

@@ -21,12 +21,16 @@ import qualified Language.Haskell.LSP.Types.Lens as J
 import           Development.IDE as D
 import           Language.Haskell.LSP.Types
 
+import qualified Language.Haskell.LSP.Core as LSP
+import qualified Language.Haskell.LSP.VFS as VFS
+
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
 descriptor plId = (defaultPluginDescriptor plId)
   { pluginCommands = commands
   , pluginCodeActionProvider = Just codeActionProvider
+  , pluginCompletionProvider = Just completion
   }
 
 -- ---------------------------------------------------------------------
@@ -160,3 +164,54 @@ possiblePragmas =
   ]
 
 -- ---------------------------------------------------------------------
+
+completion :: CompletionProvider
+completion lspFuncs _ide complParams = do
+    let (TextDocumentIdentifier uri) = complParams ^. J.textDocument
+        position = complParams ^. J.position
+    putStrLn $ "Uri" ++ show uri
+    putStrLn $ "nor uri" ++ show (toNormalizedUri uri)
+    contents <- LSP.getVirtualFileFunc lspFuncs $ toNormalizedUri uri
+    fmap Right $ case (contents, uriToFilePath' uri) of
+        (Just cnts, Just _path) -> do
+            pfix <- VFS.getCompletionPrefix position cnts
+            putStrLn $ "pfix" ++ show pfix
+            return $ Completions $ List [r]
+            where
+                r =
+                   CompletionItem
+                     label
+                     kind
+                     tags
+                     detail
+                     documentation
+                     deprecated
+                     preselect
+                     sortText
+                     filterText
+                     insertText
+                     insertTextFormat
+                     textEdit
+                     additionalTextEdits
+                     commitCharacters
+                     command
+                     xd
+                label = "Example Pragma completion"
+                kind = Nothing
+                tags = List []
+                detail = Nothing
+                documentation = Nothing
+                deprecated = Nothing
+                preselect = Nothing
+                sortText = Nothing
+                filterText = Nothing
+                insertText = Nothing
+                insertTextFormat = Nothing
+                textEdit = Nothing
+                additionalTextEdits = Nothing
+                commitCharacters = Nothing
+                command = Nothing
+                xd = Nothing
+        _ -> do
+            putStrLn $ "Need to handle this path"'
+            return $ Completions $ List []

stack.yaml

@@ -1,4 +1,4 @@
-resolver: lts-14.27 # Last 8.6.5
+resolver: nightly-2020-11-22
 
 packages:
 - .
@@ -14,70 +14,32 @@ ghc-options:
   "$everything": -haddock
 
 extra-deps:
-- aeson-1.5.2.0
-- apply-refact-0.8.2.1
-- ansi-terminal-0.10.3
-- base-compat-0.10.5
 - github: bubba/brittany
   commit: c59655f10d5ad295c2481537fc8abf0a297d9d1c
-- butcher-1.3.3.1
 - Cabal-3.0.2.0
-- cabal-plan-0.6.2.0
 - clock-0.7.2
-- Diff-0.4.0
-- extra-1.7.3
+- data-tree-print-0.1.0.2
 - floskell-0.10.4
 - fourmolu-0.3.0.0
-- fuzzy-0.1.0.0
-# - ghcide-0.1.0
-- ghc-check-0.5.0.1
-- ghc-exactprint-0.6.3.2
-- ghc-lib-8.10.2.20200916
-- ghc-lib-parser-8.10.2.20200916
-- ghc-lib-parser-ex-8.10.0.16
-- ghc-source-gen-0.4.0.0
-- haddock-api-2.22.0@rev:1
-- haddock-library-1.8.0
-- haskell-lsp-0.22.0.0
-- haskell-lsp-types-0.22.0.0
-- hie-bios-0.7.1
-- hlint-3.2
-- HsYAML-0.2.1.0@rev:1
-- HsYAML-aeson-0.2.0.0@rev:2
 - implicit-hie-cradle-0.3.0.2
 - implicit-hie-0.1.2.5
-- indexed-profunctors-0.1
-- lens-4.18
 - lsp-test-0.11.0.6
 - monad-dijkstra-0.1.1.2
 - opentelemetry-0.4.2
-- optics-core-0.2
-- optparse-applicative-0.15.1.0
-- ormolu-0.1.4.1
-- parser-combinators-1.2.1
-- primitive-0.7.1.0
 - refinery-0.3.0.0
-- regex-base-0.94.0.0
-- regex-pcre-builtin-0.95.1.1.8.43
-- regex-tdfa-1.3.1.0
 - retrie-0.1.1.1
-- semialign-1.1
-# - github: wz1000/shake
-#   commit: fb3859dca2e54d1bbb2c873e68ed225fa179fbef
 - stylish-haskell-0.12.2.0
-- tasty-rerun-1.1.17
+- semigroups-0.18.5
 - temporary-1.2.1.1
-- these-1.1.1.1
-- type-equality-1
-- topograph-1
 
 flags:
   haskell-language-server:
     pedantic: true
   retrie:
     BuildExecutable: false
 
-# allow-newer: true
+# for data-tree-print's bounds on base (>=4.8 && <4.14); using base-4.14.0.0.
+allow-newer: true
 
 nix:
   packages: [ icu libcxx zlib ]