eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix unused warning

Browse source
This commit is contained in:
Amar 2016-04-25 11:50:16 +08:00
parent d2f8e96012
commit 86573468a3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-client/src/Servant/Client.hs
View file

@ -63,7 +63,7 @@ import Servant.Common.Req
client :: HasClient layout => Proxy layout -> Client layout client :: HasClient layout => Proxy layout -> Client layout
client p = clientWithRoute p defReq client p = clientWithRoute p defReq
newtype InjectArg arg = InjectArg { getInjectedArg :: arg } newtype InjectArg arg = InjectArg arg
class HasArgument s arg result | s arg -> result, s result -> arg where class HasArgument s arg result | s arg -> result, s result -> arg where
supplyArgument :: arg -> s -> result supplyArgument :: arg -> s -> result