@@ -1384,7 +1384,7 @@ instance (ToField a, Selector s) => GToRecord (M1 S s (K1 i a)) (B.ByteString, B
13841384 where
13851385 name = T. encodeUtf8 (T. pack (fieldLabelModifier opts (selName m)))
13861386
1387- class GFromField ( f :: k -> * ) where
1387+ class GFromField f where
13881388 gParseField :: Options -> Field -> Parser (f p )
13891389
13901390-- Type with single nullary constructor
@@ -1401,7 +1401,7 @@ instance (Datatype t, GFromField' c1, GFromField' c2) => GFromField (D1 t (c1 :+
14011401 errMsg =
14021402 " Can't parse " <> datatypeName (Proxy :: Proxy t d f ) <> " from " <> show field
14031403
1404- class GToField ( f :: k -> * ) where
1404+ class GToField f where
14051405 gToField :: Options -> f p -> Field
14061406
14071407-- Type with single nullary constructor
@@ -1415,7 +1415,7 @@ instance (GToField' c1, GToField' c2) => GToField (D1 t (c1 :+: c2)) where
14151415
14161416-- Helper classes for FromField/ToField
14171417
1418- class GFromField' ( f :: k -> * ) where
1418+ class GFromField' f where
14191419 gParseField' :: Options -> Field -> Parser (f p )
14201420
14211421-- Nullary constructor
@@ -1436,7 +1436,7 @@ instance (GFromField' c1, GFromField' c2) => GFromField' (c1 :+: c2) where
14361436 gParseField' opts field =
14371437 fmap L1 (gParseField' opts field) <|> fmap R1 (gParseField' opts field)
14381438
1439- class GToField' ( f :: k -> * ) where
1439+ class GToField' f where
14401440 gToField' :: Options -> f p -> Field
14411441
14421442-- Nullary constructor
0 commit comments