mkUrl: Use urlBase for Dynamic case
commit05cab60f75eef753019b3c99f4f1ac68a2a6071e
authorKeito Kajitani <ijaketak@gmail.com>
dateSat 24 Aug 2019, 11:13 (7 years ago)
parentd35ca57
src/Servant/Elm/Internal/Generate.hs+1−1
@@ -551,7 +551,7 @@ mkUrl opts segments =
551551 where
552552 urlBuilder :: Doc
553553 urlBuilder = case urlPrefix opts of
554− Dynamic -> "Url.Builder.absolute" :: Doc
554+ Dynamic -> "Url.Builder.crossOrigin urlBase" :: Doc
555555 Static url -> "Url.Builder.crossOrigin" <+> dquotes (stext url)
556556
557557 segmentToDoc :: F.Segment EType -> Doc
test/elm-sources/getOneWithDynamicUrlSource.elm+1−1
@@ -19,7 +19,7 @@ getOne urlBase toMsg =
1919 , headers =
2020 []
2121 , url =
22− Url.Builder.absolute
22+ Url.Builder.crossOrigin urlBase
2323 [ "one"
2424 ]
2525 params