Skip to content

Commit 67187b5

Browse files
committed
restore the missing conditional getRecCons
that deleted by mistake
1 parent 9478b2c commit 67187b5

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

Diff for: plugins/hls-explicit-record-fields-plugin/src/Ide/Plugin/ExplicitFields.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -556,11 +556,11 @@ getRecCons :: LHsExpr GhcTc -> ([RecordInfo], Bool)
556556
-- because there is a possibility that there were be more than one result per
557557
-- branch
558558

559-
560-
561-
559+
#if __GLASGOW_HASKELL__ >= 910
560+
getRecCons (unLoc -> XExpr (ExpandedThingTc a _)) = (collectRecords a, False)
561+
#else
562562
getRecCons (unLoc -> XExpr (ExpansionExpr (HsExpanded _ a))) = (collectRecords a, True)
563-
563+
#endif
564564
getRecCons e@(unLoc -> RecordCon _ _ flds)
565565
| isJust (rec_dotdot flds) = (mkRecInfo e, False)
566566
where

0 commit comments

Comments
 (0)