Skip to content

Commit 2746b1f

Browse files
committed
fix appendConstraint
1 parent 31ff952 commit 2746b1f

File tree

1 file changed

+1
-1
lines changed
  • plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction

1 file changed

+1
-1
lines changed

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction/ExactPrint.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -207,7 +207,7 @@ appendConstraint constraintT = go . traceAst "appendConstraint"
207207
#endif
208208
annCtxt = AnnContext (Just (NormalSyntax, epl 1)) [epl 0 | needsParens] [epl 0 | needsParens]
209209
needsParens = hsTypeNeedsParens sigPrec $ unLoc constraint
210-
ast <- pure $ setEntryDP ast (SameLine 1)
210+
ast <- pure $ setEntryDP (makeDeltaAst ast) (SameLine 1)
211211

212212
return $ reLocA $ L lTop $ HsQualTy noExtField context ast
213213

0 commit comments

Comments
 (0)