git.iko.soy/servant
on master help sign in
Add capture in function name
116d7bfFreezeboy
servant-js/src/Servant/JS/Internal.hs+1
compare with master
unifiedsplit
@@ -268,6 +268,7 @@ instance (KnownSymbol sym, HasJS sublayout)
268 javascriptFor Proxy req =
268 javascriptFor Proxy req =
269 javascriptFor (Proxy :: Proxy sublayout) $
269 javascriptFor (Proxy :: Proxy sublayout) $
270 req & reqUrl.path <>~ [Segment (Cap str) []]
270 req & reqUrl.path <>~ [Segment (Cap str) []]
271+ & funcName %~ (++ ["by", str])
271
272
272 where str = symbolVal (Proxy :: Proxy sym)
273 where str = symbolVal (Proxy :: Proxy sym)
273
274