Skip to content

Commit b93422a

Browse files
committed
Remove strictness annotations
1 parent 2979131 commit b93422a

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

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

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -154,8 +154,8 @@ instance Hashable CollectRecords
154154
instance NFData CollectRecords
155155

156156
data CollectRecordsResult = CRR
157-
{ recordInfos :: ![RenderedRecordInfo]
158-
, enabledExtensions :: ![GhcExtension]
157+
{ recordInfos :: [RenderedRecordInfo]
158+
, enabledExtensions :: [GhcExtension]
159159
}
160160
deriving (Generic)
161161

@@ -172,12 +172,12 @@ instance NFData GhcExtension where
172172
rnf x = x `seq` ()
173173

174174
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))
177177

178178
data RenderedRecordInfo = RenderedRecordInfo
179-
{ renderedSrcSpan :: !SrcSpan
180-
, renderedRecord :: !Text
179+
{ renderedSrcSpan :: SrcSpan
180+
, renderedRecord :: Text
181181
}
182182
deriving (Generic)
183183

0 commit comments

Comments
 (0)