Fail intentionally (for telemetry)

Author: berberman

.github/workflows/test.yml

@@ -9,7 +9,7 @@ jobs:
   test:
     runs-on: ${{ matrix.os }}
     strategy:
-      fail-fast: true
+      fail-fast: false # TODO
       matrix:
         ghc: ["8.10.4", "8.10.3", "8.10.2", "8.8.4", "8.8.3", "8.8.2", "8.6.5", "8.6.4"]
         os: [ubuntu-latest, macOS-latest]

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

@@ -2,6 +2,7 @@
 {-# LANGUAGE NamedFieldPuns        #-}
 {-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE ViewPatterns          #-}
+{-# LANGUAGE CPP          #-}
 
 -- | Provides code actions to add missing pragmas (whenever GHC suggests to)
 module Ide.Plugin.Pragmas (descriptor) where
@@ -23,7 +24,12 @@ import qualified Language.LSP.Types         as J
 import qualified Language.LSP.Types.Lens    as J
 import qualified Language.LSP.VFS           as VFS
 import qualified Text.Fuzzy                 as Fuzzy
-
+#if __GLASGOW_HASKELL__ < 810
+import HsDumpAst
+#else
+import GHC.Hs.Dump
+#endif
+import Data.Bifunctor (second)
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor IdeState
@@ -48,7 +54,8 @@ codeActionProvider state _plId (CodeActionParams _ _ docId _ (J.CodeActionContex
   let dflags = ms_hspp_opts . pm_mod_summary <$> pm
       insertRange = maybe (Range (Position 0 0) (Position 0 0)) endOfModuleHeader pm
       pedits = nubOrdOn snd . concat $ suggest dflags <$> diags
-  return $ Right $ List $ pragmaEditToAction uri insertRange <$> pedits
+      printed = maybe "No parse!" (unsafePrintSDoc . showAstData NoBlankSrcSpan . pm_parsed_source) pm
+  return $ Right $ List $ pragmaEditToAction uri insertRange <$> (second (const $ LangExt $ T.pack printed)  <$> pedits) -- TODO
 
 -- | Add a Pragma to the given URI at the top of the file.
 -- It is assumed that the pragma name is a valid pragma,