Skip to content

Commit aa4b10c

Browse files
author
Catherine Galkina
committed
Add comments for GClientLikeP and GClientLikeL classes
1 parent 9d52cff commit aa4b10c

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

servant-client/src/Servant/Client/Generic.hs

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -114,7 +114,8 @@ instance ClientLike client custom
114114
instance ClientLike (ClientM a) (ClientM a) where
115115
mkClient = id
116116

117-
-- GClientLikeP
117+
-- | Match client structure with client functions, regarding left-nested API clients
118+
-- as separate data structures.
118119
class GClientLikeP client xs where
119120
gMkClientP :: client -> NP I xs
120121

@@ -125,7 +126,8 @@ instance (GClientLikeP b (y ': xs), ClientLike a x)
125126
instance ClientLike a x => GClientLikeP a '[x] where
126127
gMkClientP a = I (mkClient a) :* Nil
127128

128-
-- GClientLikeL
129+
-- | Match client structure with client functions, expanding left-nested API clients
130+
-- in the same structure.
129131
class GClientLikeL (xs :: [*]) (ys :: [*]) where
130132
gMkClientL :: NP I xs -> NP I ys
131133

0 commit comments

Comments
 (0)