Splice Plugin: expands TH splices and QuasiQuotes

exe/Plugins.hs

@@ -1,14 +1,14 @@
-{-# LANGUAGE CPP               #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
-module Plugins where
 
-import           Ide.Types                 (IdePlugins)
-import           Ide.Plugin                (pluginDescToIdePlugins)
+module Plugins where
 
+import Ide.Plugin (pluginDescToIdePlugins)
 -- fixed plugins
-import           Ide.Plugin.Example        as Example
-import           Ide.Plugin.Example2       as Example2
-import           Ide.Plugin.GhcIde         as GhcIde
+import Ide.Plugin.Example as Example
+import Ide.Plugin.Example2 as Example2
+import Ide.Plugin.GhcIde as GhcIde
+import Ide.Types (IdePlugins)
 
 -- haskell-language-server optional plugins
 
@@ -44,6 +44,11 @@ import           Ide.Plugin.ModuleName     as ModuleName
 import           Ide.Plugin.Pragmas        as Pragmas
 #endif
 
+#if defined(splice)
+import           Ide.Plugin.Splice         as Splice
+#endif
+
+
 -- formatters
 
 #if floskell
@@ -68,14 +73,14 @@ import           Ide.Plugin.Brittany       as Brittany
 
 -- ---------------------------------------------------------------------
 
--- | The plugins configured for use in this instance of the language
--- server.
--- These can be freely added or removed to tailor the available
--- features of the server.
-
+{- | The plugins configured for use in this instance of the language
+ server.
+ These can be freely added or removed to tailor the available
+ features of the server.
+-}
 idePlugins :: Bool -> IdePlugins
 idePlugins includeExamples = pluginDescToIdePlugins allPlugins
-  where
+    where
     allPlugins = if includeExamples
                    then basePlugins ++ examplePlugins
                    else basePlugins
@@ -119,6 +124,9 @@ idePlugins includeExamples = pluginDescToIdePlugins allPlugins
 #endif
 #if hlint
       , Hlint.descriptor "hlint"
+#endif
+#if defined(splice)
+      , Splice.descriptor "splice"
 #endif
       ]
     examplePlugins =

haskell-language-server.cabal

@@ -127,6 +127,11 @@ flag pragmas
   default:     False
   manual:      True
 
+flag splice
+  description: Enable splice plugin
+  default:     False
+  manual:      True
+
 -- formatters
 
 flag floskell
@@ -212,6 +217,11 @@ common pragmas
     other-modules: Ide.Plugin.Pragmas
     cpp-options: -Dpragmas
 
+common splice
+  if flag(splice) || flag(all-plugins)
+    build-depends: hls-splice-plugin
+    cpp-options: -Dsplice
+
 -- formatters
 
 common floskell
@@ -262,6 +272,7 @@ executable haskell-language-server
                     , hlint
                     , moduleName
                     , pragmas
+                    , splice
                     , floskell
                     , fourmolu
                     , ormolu

hie-cabal.yaml

@@ -103,6 +103,9 @@ cradle:
     - path: "./hls-plugin-api/src"
       component: "lib:hls-plugin-api"
 
+    - path: "./hls-exactprint-utils/src"
+      component: "lib:hls-exactprint-utils"
+
     - path: "./plugins/hls-class-plugin/src"
       component: "lib:hls-class-plugin"
 
@@ -115,6 +118,9 @@ cradle:
     - path: "./plugins/hls-retrie-plugin/src"
       component: "lib:hls-retrie-plugin"
 
+    - path: "./plugins/hls-splice-plugin/src"
+      component: "hls-splice-plugin:lib"
+
     - path: "./plugins/tactics/src"
       component: "lib:hls-tactics-plugin"
 

hie-stack.yaml

@@ -40,6 +40,9 @@ cradle:
             - path: "./hls-plugin-api/src"
               component: "hls-plugin-api:lib"
 
+            - path: "./hls-exactprint-utils/src"
+              component: "hls-exactprint-utils:lib"
+
 # Plugins:
 
             - path: "./plugins/hls-class-plugin/src"
@@ -54,6 +57,9 @@ cradle:
             - path: "./plugins/hls-retrie-plugin/src"
               component: "hls-retrie-plugin:lib"
 
+            - path: "./plugins/hls-splice-plugin/src"
+              component: "hls-splice-plugin:lib"
+
             - path: "./plugins/tactics/src"
               component: "hls-tactics-plugin:lib"
 

hls-exactprint-utils/hls-exactprint-utils.cabal

@@ -0,0 +1,47 @@
+cabal-version: 2.2
+name:          hls-exactprint-utils
+version:       0.5.0.1
+synopsis:      Common residence package of ExactPrint related tree-transformation utilities for HLS plugins (ported from tactics plugin).
+description:
+  Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>
+homepage:      https://github.com/haskell/haskell-language-server/hls-exactprint-utils
+bug-reports:   https://github.com/haskell/haskell-language-server/issues
+author:        Sandy Maguire, Reed Mullanix
+maintainer:    [email protected]
+copyright:     Sandy Maguire, Reed Mullanix
+category:      Web
+build-type:    Simple
+
+flag pedantic
+  description: Enable -Werror
+  default:     False
+  manual:      True
+
+source-repository head
+  type:     git
+  location: https://github.com/haskell/haskell-language-server
+
+library
+  exposed-modules:
+    Ide.TreeTransform
+
+  hs-source-dirs:   src
+  build-depends:
+      base                  >=4.12    && <5
+    , ghc
+    , ghc-exactprint
+    , ghcide
+    , haskell-lsp-types
+    , hls-plugin-api
+    , retrie
+    , syb
+    , text
+    , transformers
+
+
+  ghc-options:      -Wall -Wredundant-constraints -Wincomplete-uni-patterns
+
+  if flag(pedantic)
+    ghc-options: -Werror
+
+  default-language: Haskell2010