Add capture in function name
commit116d7bf22b0721eeabd1ea1b1b22296f9b800757
authorFreezeboy <freezeboy@users.noreply.github.com>
dateTue 28 Jul 2015, 19:47 (11 years ago)
parent3f538b5
servant-js/src/Servant/JS/Internal.hs+1
@@ -268,6 +268,7 @@ instance (KnownSymbol sym, HasJS sublayout)
268268 javascriptFor Proxy req =
269269 javascriptFor (Proxy :: Proxy sublayout) $
270270 req & reqUrl.path <>~ [Segment (Cap str) []]
271+ & funcName %~ (++ ["by", str])
271272
272273 where str = symbolVal (Proxy :: Proxy sym)
273274