Merge pull request #57 from ijaketak/patch-v0.6.0-urlBase
mkUrl: Use urlBase for Dynamic case
commite41de15c59b928d057d0d969d190bf78a18478b4
authorKostiantyn Rybnikov <k-bx@k-bx.com>
dateMon 16 Sep 2019, 09:29 (7 years ago)
parentd35ca5705cab60
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