git.iko.soy/haskell-servant/servant-elm
on master help sign in
Merge pull request #57 from ijaketak/patch-v0.6.0-urlBase
e41de15Kostiantyn Rybnikov
src/Servant/Elm/Internal/Generate.hs+1−1
compare with master
unifiedsplit
@@ -551,7 +551,7 @@ mkUrl opts segments =
551 where
551 where
552 urlBuilder :: Doc
552 urlBuilder :: Doc
553 urlBuilder = case urlPrefix opts of
553 urlBuilder = case urlPrefix opts of
554− Dynamic -> "Url.Builder.absolute" :: Doc
554+ Dynamic -> "Url.Builder.crossOrigin urlBase" :: Doc
555 Static url -> "Url.Builder.crossOrigin" <+> dquotes (stext url)
555 Static url -> "Url.Builder.crossOrigin" <+> dquotes (stext url)
556
556
557 segmentToDoc :: F.Segment EType -> Doc
557 segmentToDoc :: F.Segment EType -> Doc
test/elm-sources/getOneWithDynamicUrlSource.elm+1−1
@@ -19,7 +19,7 @@ getOne urlBase toMsg =
19 , headers =
19 , headers =
20 []
20 []
21 , url =
21 , url =
22− Url.Builder.absolute
22+ Url.Builder.crossOrigin urlBase
23 [ "one"
23 [ "one"
24 ]
24 ]
25 params
25 params