Skip to content

Commit 1411cec

Browse files
committed
Fix compilation with GHC >= 9
1 parent be6569a commit 1411cec

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

Data/HashMap/Internal.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -301,8 +301,8 @@ instance (Data k, Data v, Eq k, Hashable k) => Data (HashMap k v) where
301301
1 -> k (z fromList)
302302
_ -> error "gunfold"
303303
dataTypeOf _ = hashMapDataType
304-
dataCast1 = Data.gcast1
305-
dataCast2 = Data.gcast2
304+
dataCast1 f = Data.gcast1 f
305+
dataCast2 f = Data.gcast2 f
306306

307307
fromListConstr :: Constr
308308
fromListConstr = Data.mkConstr hashMapDataType "fromList" [] Data.Prefix

Data/HashSet/Internal.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -233,7 +233,7 @@ instance (Data a, Eq a, Hashable a) => Data (HashSet a) where
233233
1 -> k (z fromList)
234234
_ -> error "gunfold"
235235
dataTypeOf _ = hashSetDataType
236-
dataCast1 = Data.gcast1
236+
dataCast1 f = Data.gcast1 f
237237

238238
instance Hashable1 HashSet where
239239
liftHashWithSalt h s = liftHashWithSalt2 h hashWithSalt s . asMap

0 commit comments

Comments
 (0)