Skip to content

Commit 386a896

Browse files
committed
Drop redundant kinds and make old GHC versions happy
1 parent 864e9fd commit 386a896

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/Data/Csv/Conversion.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)