Apply type alterations to captured segments

haskell-servant · Jan 12, 2024 · b76a11f · b76a11f
1 parent e26ae72
commit b76a11f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Servant/Elm/Internal/Generate.hs b/src/Servant/Elm/Internal/Generate.hs
@@ -563,7 +563,7 @@ mkUrl opts segments =
         F.Cap arg ->
           let
             toStringSrc =
-              toString opts (maybeOf (arg ^. F.argType))
+              toString opts (elmTypeAlterations opts (maybeOf (arg ^. F.argType)))
           in
             "Url.percentEncode " <> pipeRight [elmCaptureArg s, toStringSrc]