gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-09-11 16:56:29 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Handle redirect.

Browse Source
This commit is contained in:
Robin Heggelund Hansen 2024-06-10 20:08:56 +02:00
parent 30edbe38a4
commit 3cf0aff50b
No known key found for this signature in database
1 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/Main.gren
View File

@ -196,12 +196,36 @@ update msg model =
|> Task.attempt CompilerExecuted
}
CompilerDownloaded (Err ((HttpClient.BadStatus res) as err)) ->
if res.statusCode == 302 then
case Dict.get "location" res.headers of
Just [ location ] ->
{ model = model
, command =
downloadBinary model.httpPermission location
|> Task.attempt CompilerDownloaded
}
_ ->
{ model = model
, command =
Stream.sendLine model.stderr "Missing, or vague, 'location' header in 302 response from server."
|> Task.execute
}
else
{ model = model
, command =
Stream.sendLine model.stderr (HttpClient.errorToString err)
|> Task.execute
}
CompilerDownloaded (Err err) ->
{ model = model
, command =
Stream.sendLine model.stderr (HttpClient.errorToString err)
|> Task.execute
}
{ model = model
, command =
Stream.sendLine model.stderr (HttpClient.errorToString err)
|> Task.execute
}
CompilerDownloaded (Ok res) ->
{ model = model