ee9d036 · haskell-servant/servant-elm

git.iko.soy/haskell-servant/servant-elm

Merge pull request #2 from alonsodomin/elm-bridge-alonsodomin

Make the Static urlPrefix render as a cross-origin URL

commitee9d036dc4d004c9584b6996cd3b68714dc581b7 authorKostiantyn Rybnikov <k-bx@k-bx.com> dateTue 28 May 2019, 13:29 (7 years ago) parentb8f0164 78eb578

1 file changed+10−6

compare with master

unifiedsplit

src/Servant/Elm/Internal/Generate.hs+10−6

src/Servant/Elm/Internal/Generate.hs+10−6

@@ -508,14 +508,18 @@ mkRequest opts request =

508508

509509mkUrl :: ElmOptions -> [F.Segment EType] -> Doc

510510mkUrl opts segments =

511− "Url.Builder.absolute" <$>

512− (indent i . elmList)

511+ urlBuilder <$>

512+ (indent i . elmList)

513513 ( map segmentToDoc segments)

514− -- ( case urlPrefix opts of

515− -- Dynamic -> "urlBase"

516− -- Static url -> dquotes (stext url)

517− -- : map segmentToDoc segments)

514+ -- ( case urlPrefix opts of

515+ -- Dynamic -> "urlBase"

516+ -- Static url -> dquotes (stext url)

517+ -- : map segmentToDoc segments)

518518 where

519+ urlBuilder :: Doc

520+ urlBuilder = case urlPrefix opts of

521+ Dynamic -> "Url.Builder.absolute" :: Doc

522+ Static url -> "Url.Builder.crossOrigin" <+> dquotes (stext url)

519523

520524 segmentToDoc :: F.Segment EType -> Doc

521525 segmentToDoc s =