Log Ormolu version

Author: July541

plugins/hls-ormolu-plugin/src/Ide/Plugin/Ormolu.hs

@@ -35,21 +35,23 @@ import           System.FilePath                 (takeFileName)
 
 -- ---------------------------------------------------------------------
 
-descriptor :: PluginId -> PluginDescriptor IdeState
-descriptor plId = (defaultPluginDescriptor plId)
-  { pluginHandlers = mkFormattingHandlers provider
+descriptor :: Recorder (WithPriority T.Text) -> PluginId -> PluginDescriptor IdeState
+descriptor recorder plId = (defaultPluginDescriptor plId)
+  { pluginHandlers = mkFormattingHandlers $ provider recorder
   }
 
 -- ---------------------------------------------------------------------
 
-provider :: FormattingHandler IdeState
-provider ideState typ contents fp _ = ExceptT $ withIndefiniteProgress title Cancellable $ runExceptT $ do
+provider :: Recorder (WithPriority T.Text) -> FormattingHandler IdeState
+provider recorder ideState typ contents fp _ = ExceptT $ withIndefiniteProgress title Cancellable $ runExceptT $ do
   ghc <- liftIO $ runAction "Ormolu" ideState $ use GhcSession fp
   let df = hsc_dflags . hscEnv <$> ghc
   fileOpts <- case df of
     Nothing -> pure []
     Just df -> pure $ fromDyn df
 
+  logWith recorder Debug $ "Using ormolu-" <> VERSION_ormolu
+
   let
     fullRegion = RegionIndices Nothing Nothing
     rangeRegion s e = RegionIndices (Just $ s + 1) (Just $ e + 1)

src/HlsPlugins.hs

@@ -169,7 +169,7 @@ idePlugins recorder = pluginDescToIdePlugins allPlugins
       let pId = "tactics" in Tactic.descriptor (pluginRecorder pId) pId:
 #endif
 #if hls_ormolu
-      Ormolu.descriptor   "ormolu" :
+      let pId = "ormolu" in Ormolu.descriptor (pluginRecorder pId) pId :
 #endif
 #if hls_stylishHaskell
       StylishHaskell.descriptor "stylish-haskell" :