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)