File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed
plugins/hls-explicit-record-fields-plugin/src/Ide/Plugin Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -154,8 +154,8 @@ instance Hashable CollectRecords
154
154
instance NFData CollectRecords
155
155
156
156
data CollectRecordsResult = CRR
157
- { recordInfos :: ! [RenderedRecordInfo ]
158
- , enabledExtensions :: ! [GhcExtension ]
157
+ { recordInfos :: [RenderedRecordInfo ]
158
+ , enabledExtensions :: [GhcExtension ]
159
159
}
160
160
deriving (Generic )
161
161
@@ -172,12 +172,12 @@ instance NFData GhcExtension where
172
172
rnf x = x `seq` ()
173
173
174
174
data RecordInfo
175
- = RecordInfoPat ! SrcSpan ! (Pat (GhcPass 'Renamed))
176
- | RecordInfoCon ! SrcSpan ! (HsExpr (GhcPass 'Renamed))
175
+ = RecordInfoPat SrcSpan (Pat (GhcPass 'Renamed))
176
+ | RecordInfoCon SrcSpan (HsExpr (GhcPass 'Renamed))
177
177
178
178
data RenderedRecordInfo = RenderedRecordInfo
179
- { renderedSrcSpan :: ! SrcSpan
180
- , renderedRecord :: ! Text
179
+ { renderedSrcSpan :: SrcSpan
180
+ , renderedRecord :: Text
181
181
}
182
182
deriving (Generic )
183
183
You can’t perform that action at this time.
0 commit comments