Skip to content

Commit 056a622

Browse files
committed
NFData FieldLabel when GHC < 906
1 parent 67187b5 commit 056a622

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

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

+5
Original file line numberDiff line numberDiff line change
@@ -595,3 +595,8 @@ getRecPatterns conPat@(conPatDetails . unLoc -> Just (RecCon flds))
595595
mkRecInfo pat =
596596
[ RecordInfoPat realSpan' (unLoc pat) | RealSrcSpan realSpan' _ <- [ getLoc pat ]]
597597
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

Comments
 (0)