File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed
servant-client/src/Servant/Client Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -114,7 +114,8 @@ instance ClientLike client custom
114
114
instance ClientLike (ClientM a ) (ClientM a ) where
115
115
mkClient = id
116
116
117
- -- GClientLikeP
117
+ -- | Match client structure with client functions, regarding left-nested API clients
118
+ -- as separate data structures.
118
119
class GClientLikeP client xs where
119
120
gMkClientP :: client -> NP I xs
120
121
@@ -125,7 +126,8 @@ instance (GClientLikeP b (y ': xs), ClientLike a x)
125
126
instance ClientLike a x => GClientLikeP a '[x ] where
126
127
gMkClientP a = I (mkClient a) :* Nil
127
128
128
- -- GClientLikeL
129
+ -- | Match client structure with client functions, expanding left-nested API clients
130
+ -- in the same structure.
129
131
class GClientLikeL (xs :: [* ]) (ys :: [* ]) where
130
132
gMkClientL :: NP I xs -> NP I ys
131
133
You can’t perform that action at this time.
0 commit comments