allow Japanese guide to use inline REPL

evancz · evancz · commit c9aefb6230f5 · 2019-10-20T10:31:43.000-04:00
diff --git a/worker/src/Endpoint/Repl.hs b/worker/src/Endpoint/Repl.hs
@@ -48,8 +48,9 @@ import qualified Reporting.Render.Type.Localizer as L
 
 allowedOrigins :: [String]
 allowedOrigins =
-  [ "https://elm-lang.org"
-  , "https://guide.elm-lang.org"
+  [ "https://guide.elm-lang.org"
+  , "https://guide.elm-lang.jp"
+  , "http://localhost:8007"
   ]
 
 

Original file line number	Diff line number	Diff line change
`@@ -48,8 +48,9 @@ import qualified Reporting.Render.Type.Localizer as L`
`48`	`48`
`49`	`49`	`allowedOrigins :: [String]`
`50`	`50`	`allowedOrigins =`
`51`		`- [ "https://elm-lang.org"`
`52`		`- , "https://guide.elm-lang.org"`
	`51`	`+ [ "https://guide.elm-lang.org"`
	`52`	`+ , "https://guide.elm-lang.jp"`
	`53`	`+ , "http://localhost:8007"`
`53`	`54`	`]`
`54`	`55`
`55`	`56`