@@ -1384,7 +1384,7 @@ instance (ToField a, Selector s) => GToRecord (M1 S s (K1 i a)) (B.ByteString, B
1384
1384
where
1385
1385
name = T. encodeUtf8 (T. pack (fieldLabelModifier opts (selName m)))
1386
1386
1387
- class GFromField ( f :: k -> * ) where
1387
+ class GFromField f where
1388
1388
gParseField :: Options -> Field -> Parser (f p )
1389
1389
1390
1390
-- Type with single nullary constructor
@@ -1401,7 +1401,7 @@ instance (Datatype t, GFromField' c1, GFromField' c2) => GFromField (D1 t (c1 :+
1401
1401
errMsg =
1402
1402
" Can't parse " <> datatypeName (Proxy :: Proxy t d f ) <> " from " <> show field
1403
1403
1404
- class GToField ( f :: k -> * ) where
1404
+ class GToField f where
1405
1405
gToField :: Options -> f p -> Field
1406
1406
1407
1407
-- Type with single nullary constructor
@@ -1415,7 +1415,7 @@ instance (GToField' c1, GToField' c2) => GToField (D1 t (c1 :+: c2)) where
1415
1415
1416
1416
-- Helper classes for FromField/ToField
1417
1417
1418
- class GFromField' ( f :: k -> * ) where
1418
+ class GFromField' f where
1419
1419
gParseField' :: Options -> Field -> Parser (f p )
1420
1420
1421
1421
-- Nullary constructor
@@ -1436,7 +1436,7 @@ instance (GFromField' c1, GFromField' c2) => GFromField' (c1 :+: c2) where
1436
1436
gParseField' opts field =
1437
1437
fmap L1 (gParseField' opts field) <|> fmap R1 (gParseField' opts field)
1438
1438
1439
- class GToField' ( f :: k -> * ) where
1439
+ class GToField' f where
1440
1440
gToField' :: Options -> f p -> Field
1441
1441
1442
1442
-- Nullary constructor
0 commit comments