From 904da4f182ddd80b3cc331fe4c67707d92f9157c Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 18 Apr 2021 14:52:45 +0100 Subject: [PATCH] Fix reduction depth Fixes #1743 --- ghcide/src/Development/IDE/GHC/ExactPrint.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghcide/src/Development/IDE/GHC/ExactPrint.hs b/ghcide/src/Development/IDE/GHC/ExactPrint.hs index 703b3e3ec0..77e07371a6 100644 --- a/ghcide/src/Development/IDE/GHC/ExactPrint.hs +++ b/ghcide/src/Development/IDE/GHC/ExactPrint.hs @@ -292,8 +292,8 @@ graftExprWithM dst trans = Graft $ \dflags a -> do case mval of Just val' -> do (anns, val'') <- - hoistTransform (either Fail.fail pure) $ - annotate dflags needs_space $ mk_parens val' + hoistTransform (either Fail.fail pure) + (annotate @(HsExpr GhcPs) dflags needs_space (mk_parens val')) modifyAnnsT $ mappend anns pure val'' Nothing -> pure val