From 116d7bf22b0721eeabd1ea1b1b22296f9b800757 Mon Sep 17 00:00:00 2001 From: Freezeboy Date: Tue, 28 Jul 2015 19:47:41 +0200 Subject: [PATCH] Add capture in function name --- servant-js/src/Servant/JS/Internal.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/servant-js/src/Servant/JS/Internal.hs b/servant-js/src/Servant/JS/Internal.hs index a101f235..36064a59 100644 --- a/servant-js/src/Servant/JS/Internal.hs +++ b/servant-js/src/Servant/JS/Internal.hs @@ -268,6 +268,7 @@ instance (KnownSymbol sym, HasJS sublayout) javascriptFor Proxy req = javascriptFor (Proxy :: Proxy sublayout) $ req & reqUrl.path <>~ [Segment (Cap str) []] + & funcName %~ (++ ["by", str]) where str = symbolVal (Proxy :: Proxy sym)