Add capture in function name

2015-07-28 19:47:41 +02:00 · 2015-07-28 19:47:41 +02:00 · 116d7bf22b
commit 116d7bf22b
parent 3f538b547d
1 changed files with 1 additions and 0 deletions
--- 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)