Begin working on Http requests.

This commit is contained in:
2018-12-08 13:49:30 -08:00
parent c292a4c29b
commit 3656b0f3f0
7 changed files with 128 additions and 11 deletions

View File

@@ -1,28 +1,22 @@
import Browser exposing (application)
import Browser.Navigation as Nav
import Scylla.Sync exposing (..)
import Scylla.Model exposing (..)
import Scylla.Http exposing (..)
import Url exposing (Url)
import Html exposing (div)
import Html exposing (div, text)
type alias Flags =
{ token : Maybe String
}
type alias Model =
{ key : Nav.Key
, token : Maybe String
}
type Msg =
None
| TryUrl Browser.UrlRequest
| ChangeUrl Url
init : Flags -> Url -> Nav.Key -> (Model, Cmd Msg)
init flags url key =
let
model =
{ key = key
, token = flags.token
, apiUrl = "https://matrix.org"
}
cmd = case flags.token of
Just _ -> Cmd.none