We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 67187b5 commit 056a622Copy full SHA for 056a622
plugins/hls-explicit-record-fields-plugin/src/Ide/Plugin/ExplicitFields.hs
@@ -595,3 +595,8 @@ getRecPatterns conPat@(conPatDetails . unLoc -> Just (RecCon flds))
595
mkRecInfo pat =
596
[ RecordInfoPat realSpan' (unLoc pat) | RealSrcSpan realSpan' _ <- [ getLoc pat ]]
597
getRecPatterns _ = ([], False)
598
+
599
+#if __GLASGOW_HASKELL__ < 906
600
+instance NFData FieldLabel where
601
+ rnf (FieldLabel a b c) = rnf a `seq` rnf b `seq` rnf c
602
+#endif
0 commit comments