git.iko.soy/haskell-servant/servant-elm
on master help sign in
Apply type alterations to captured segments
b76a11fsandydoo
src/Servant/Elm/Internal/Generate.hs+1−1
compare with master
unifiedsplit
@@ -563,7 +563,7 @@ mkUrl opts segments =
563 F.Cap arg ->
563 F.Cap arg ->
564 let
564 let
565 toStringSrc =
565 toStringSrc =
566− toString opts (maybeOf (arg ^. F.argType))
566+ toString opts (elmTypeAlterations opts (maybeOf (arg ^. F.argType)))
567 in
567 in
568 "Url.percentEncode " <> pipeRight [elmCaptureArg s, toStringSrc]
568 "Url.percentEncode " <> pipeRight [elmCaptureArg s, toStringSrc]
569
569