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

Add capture in function name

Browse source
This commit is contained in:
Freezeboy 2015-07-28 19:47:41 +02:00
parent 3f538b547d
commit 116d7bf22b
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-js/src/Servant/JS/Internal.hs
View file

@ -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)