attempt fixing exactprint <9.10

haskell · Jun 12, 2024 · efad46c · efad46c
1 parent 8267cad
commit efad46c
Showing 1 changed file with 1 addition and 11 deletions.
diff --git a/plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction/Args.hs b/plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction/Args.hs
@@ -213,17 +213,7 @@ toCodeAction3 get f = ExceptT . ReaderT $ \caa -> get caa >>= flip runReaderT ca
 
 -- | this instance returns a delta AST, useful for exactprint transforms
 instance ToCodeAction r => ToCodeAction (ParsedSource -> r) where
-#if !MIN_VERSION_ghc(9,3,0)
-  toCodeAction f = ExceptT . ReaderT $ \caa@CodeActionArgs {caaAnnSource = x} ->
-    x >>= \case
-      Just s -> flip runReaderT caa . runExceptT . toCodeAction $ f s
-      _      -> pure $ Right []
-#else
-  toCodeAction f = ExceptT . ReaderT $ \caa@CodeActionArgs {caaParsedModule = x} ->
-    x >>= \case
-      Just s -> flip runReaderT caa . runExceptT . toCodeAction . f . pm_parsed_source $ s
-      _      -> pure $ Right []
-#endif
+  toCodeAction = toCodeAction2 caaAnnSource
 
 instance ToCodeAction r => ToCodeAction (ExportsMap -> r) where
   toCodeAction = toCodeAction3 caaExportsMap