From 86573468a3d85f998a86a24ed8bf92e921b681a1 Mon Sep 17 00:00:00 2001 From: Amar Date: Mon, 25 Apr 2016 11:50:16 +0800 Subject: [PATCH] Fix unused warning --- servant-client/src/Servant/Client.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-client/src/Servant/Client.hs b/servant-client/src/Servant/Client.hs index 98742d3e..f7c79606 100644 --- a/servant-client/src/Servant/Client.hs +++ b/servant-client/src/Servant/Client.hs @@ -63,7 +63,7 @@ import Servant.Common.Req client :: HasClient layout => Proxy layout -> Client layout 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 supplyArgument :: arg -> s -> result