From 7935e112ed765eb63f765b47c491f5a223304f9e Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Fri, 10 May 2024 15:26:18 +0200
Subject: [PATCH 01/36] Add Task Chain + API setup

---
 elm.json                     |   2 +
 src/Internal/Api/Chain.elm   | 175 +++++++++++++++++++++
 src/Internal/Api/Request.elm | 284 +++++++++++++++++++++++++++++++++++
 3 files changed, 461 insertions(+)
 create mode 100644 src/Internal/Api/Chain.elm
 create mode 100644 src/Internal/Api/Request.elm

diff --git a/elm.json b/elm.json
index e36ac60..cec47ad 100644
--- a/elm.json
+++ b/elm.json
@@ -14,9 +14,11 @@
     "elm-version": "0.19.0 <= v < 0.20.0",
     "dependencies": {
         "elm/core": "1.0.0 <= v < 2.0.0",
+        "elm/http": "2.0.0 <= v < 3.0.0",
         "elm/json": "1.0.0 <= v < 2.0.0",
         "elm/parser": "1.0.0 <= v < 2.0.0",
         "elm/time": "1.0.0 <= v < 2.0.0",
+        "elm/url": "1.0.0 <= v < 2.0.0",
         "micahhahn/elm-safe-recursion": "2.0.0 <= v < 3.0.0",
         "miniBill/elm-fast-dict": "1.0.0 <= v < 2.0.0"
     },
diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
new file mode 100644
index 0000000..81c7792
--- /dev/null
+++ b/src/Internal/Api/Chain.elm
@@ -0,0 +1,175 @@
+module Internal.Api.Chain exposing (TaskChain, IdemChain, CompleteChain)
+
+{-|
+
+
+# Task chains
+
+Elm uses a `Task` type to avoid issues that JavaScript deals with, yet the same
+**callback hell** issue might appear that JavaScript developers often deal with.
+For this reason, this module helps chain different `Task` types together such
+that all information is stored and values are dealt with appropriately.
+
+Elm's type checking system helps making this system sufficiently rigorous to
+avoid leaking values passing through the API in unexpected ways.
+
+@docs TaskChain, IdemChain, CompleteChain
+
+-}
+
+import Internal.Config.Log exposing (Log)
+import Internal.Values.Context as Context exposing (APIContext)
+import Task
+
+
+type alias Backpacked u a =
+    { a | messages : List u, logs : List Log }
+
+
+{-| The TaskChain is a piece in the long chain of tasks that need to be completed.
+The type defines four variables:
+
+  - `err` value that may arise on an error
+  - `u` the update msg that should be returned
+  - `a` phantom type before executing the chain's context
+  - `b` phantom type after executing the chain's context
+
+-}
+type alias TaskChain err u a b =
+    APIContext a -> Task.Task (FailedChainPiece err u) (TaskChainPiece u a b)
+
+
+{-| An IdemChain is a TaskChain that does not influence the chain's context
+
+  - `err` value that may arise on an error
+  - `u` the update msg that should be executed
+  - `a` phantom type before, during and after the chain's context
+
+-}
+type alias IdemChain err u a =
+    TaskChain err u a a
+
+
+{-| A CompleteChain is a complete task chain where all necessary information
+has been defined. In simple terms, whenever a Matrix API call is made, all
+necessary information for that endpoint:
+
+1.  Was previously known and has been inserted, or
+2.  Was acquired before actually making the API call.
+
+-}
+type alias CompleteChain u =
+    TaskChain Never u {} {}
+
+
+{-| A TaskChainPiece is a piece that updates the chain's context.
+
+Once a chain is executed, the process will add the `messages` value to its list
+of updates, and it will update its context according to the `contextChange`
+function.
+
+-}
+type alias TaskChainPiece u a b =
+    Backpacked u { contextChange : APIContext a -> APIContext b }
+
+
+{-| A FailedChainPiece initiates an early breakdown of a chain. Unless caught,
+this halts execution of the chain. The process will add the `messages` value to
+its list of updates, and it will return the given `err` value for a direct
+explanation of what went wrong.
+-}
+type alias FailedChainPiece err u =
+    Backpacked u { error : err }
+
+
+{-| Chain two tasks together. The second task will only run if the first one
+succeeds.
+-}
+andThen : TaskChain err u b c -> TaskChain err u a b -> TaskChain err u a c
+andThen f2 f1 =
+    \context ->
+        f1 context
+            |> Task.andThen
+                (\old ->
+                    context
+                        |> old.contextChange
+                        |> f2
+                        |> Task.map
+                            (\new ->
+                                { contextChange = old.contextChange >> new.contextChange
+                                , logs = List.append old.logs new.logs
+                                , messages = List.append old.messages new.messages
+                                }
+                            )
+                        |> Task.mapError
+                            (\new ->
+                                { error = new.error
+                                , logs = List.append old.logs new.logs
+                                , messages = List.append old.messages new.messages
+                                }
+                            )
+                )
+
+
+{-| When an error has occurred, "fix" it with an artificial task chain result.
+-}
+catchWith : (err -> TaskChainPiece u a b) -> TaskChain err u a b -> TaskChain err u a b
+catchWith onErr f =
+    onError (\e -> succeed <| onErr e) f
+
+
+{-| Creates a task that always fails.
+-}
+fail : err -> TaskChain err u a b
+fail e _ =
+    Task.fail { error = e, logs = [], messages = [] }
+
+
+{-| Optionally run a task that doesn't need to succeed.
+
+If the provided chain fails, it will be ignored. This way, the chain can be
+executed without breaking the whole chain if it fails. This can be useful for:
+
+1.  Sending information to the Matrix API and not caring if it actually arrives
+2.  Gaining optional information that might be nice to know, but not necessary
+
+Consequently, the optional chain cannot add any information that the rest of
+the chain relies on.
+
+-}
+maybe : IdemChain err u a -> IdemChain err2 u a
+maybe f =
+    { contextChange = identity
+    , logs = []
+    , messages = []
+    }
+        |> succeed
+        |> always
+        |> onError
+        |> (|>) f
+
+
+{-| When an error occurs, this function allows the task chain to go down a
+similar but different route.
+-}
+onError : (err -> TaskChain err2 u a b) -> TaskChain err u a b -> TaskChain err2 u a b
+onError onErr f =
+    \context ->
+        f context
+            |> Task.onError
+                (\old ->
+                    { contextChange = identity
+                    , logs = old.logs
+                    , messages = old.messages
+                    }
+                        |> succeed
+                        |> andThen (onErr old.error)
+                        |> (|>) context
+                )
+
+
+{-| Creates a task that always succeeds.
+-}
+succeed : TaskChainPiece u a b -> TaskChain err u a b
+succeed piece _ =
+    Task.succeed piece
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
new file mode 100644
index 0000000..4f4b898
--- /dev/null
+++ b/src/Internal/Api/Request.elm
@@ -0,0 +1,284 @@
+module Internal.Api.Request exposing
+    ( ApiCall, ApiPlan, callAPI, withAttributes
+    , accessToken, withTransactionId
+    , fullBody, bodyBool, bodyInt, bodyString, bodyValue, bodyOpBool, bodyOpInt, bodyOpString, bodyOpValue
+    , queryBool, queryInt, queryString, queryOpBool, queryOpInt, queryOpString
+    )
+
+{-|
+
+
+# API module
+
+This module helps describe API requests.
+
+
+## Plan
+
+@docs ApiCall, ApiPlan, callAPI, withAttributes
+
+
+## API attributes
+
+
+### General attributes
+
+@docs accessToken, withTransactionId
+
+
+### Body
+
+@docs fullBody, bodyBool, bodyInt, bodyString, bodyValue, bodyOpBool, bodyOpInt, bodyOpString, bodyOpValue
+
+
+### Query parameters
+
+@docs queryBool, queryInt, queryString, queryOpBool, queryOpInt, queryOpString
+
+-}
+
+import Http
+import Internal.Tools.Json as Json
+import Internal.Values.Context as Context exposing (APIContext)
+import Url
+import Url.Builder as UrlBuilder
+
+
+{-| The API call is a plan that describes how an interaction is planned with
+the Matrix API.
+-}
+type alias ApiCall ph =
+    { attributes : List ContextAttr
+    , baseUrl : String
+    , context : APIContext ph
+    , method : String
+    }
+
+
+{-| Shortcut definition to define a function that bases an APICall on a given
+APIContext.
+-}
+type alias ApiPlan a =
+    APIContext a -> ApiCall a
+
+
+{-| An attribute maps a given context to an attribute for an API call.
+-}
+type alias Attribute a =
+    APIContext a -> ContextAttr
+
+
+{-| A context attribute describes one aspect of the API call that is to be made.
+-}
+type ContextAttr
+    = BodyParam String Json.Value
+    | FullBody Json.Value
+    | Header Http.Header
+    | NoAttr
+    | QueryParam UrlBuilder.QueryParameter
+    | ReplaceInUrl String String
+    | Timeout Float
+    | UrlPath String
+
+
+{-| Attribute that requires an access token to be present
+-}
+accessToken : Attribute { a | accessToken : () }
+accessToken =
+    Context.getAccessToken
+        >> (++) "Bearer "
+        >> Http.header "Authorization"
+        >> Header
+
+
+{-| Attribute that adds a boolean value to the HTTP body.
+-}
+bodyBool : String -> Bool -> Attribute a
+bodyBool key value =
+    bodyValue key <| Json.encode Json.bool value
+
+
+{-| Attribute that adds an integer value to the HTTP body.
+-}
+bodyInt : String -> Int -> Attribute a
+bodyInt key value =
+    bodyValue key <| Json.encode Json.int value
+
+
+{-| Attribute that adds a boolean to the HTTP body if it is given.
+-}
+bodyOpBool : String -> Maybe Bool -> Attribute a
+bodyOpBool key value =
+    case value of
+        Just v ->
+            bodyBool key v
+
+        Nothing ->
+            empty
+
+
+{-| Attribute that adds an integer value to the HTTP body if it is given.
+-}
+bodyOpInt : String -> Maybe Int -> Attribute a
+bodyOpInt key value =
+    case value of
+        Just v ->
+            bodyInt key v
+
+        Nothing ->
+            empty
+
+
+{-| Attribute that adds a string value to the HTTP body if it is given.
+-}
+bodyOpString : String -> Maybe String -> Attribute a
+bodyOpString key value =
+    case value of
+        Just v ->
+            bodyString key v
+
+        Nothing ->
+            empty
+
+
+{-| Attribute that adds a JSON value to the HTTP body if it is given.
+-}
+bodyOpValue : String -> Maybe Json.Value -> Attribute a
+bodyOpValue key value =
+    case value of
+        Just v ->
+            bodyValue key v
+
+        Nothing ->
+            empty
+
+
+{-| Attribute that adds a string value to the HTTP body.
+-}
+bodyString : String -> String -> Attribute a
+bodyString key value =
+    bodyValue key <| Json.encode Json.string value
+
+
+{-| Attribute that adds a JSON value to the HTTP body.
+-}
+bodyValue : String -> Json.Value -> Attribute a
+bodyValue key value _ =
+    BodyParam key value
+
+
+{-| Create a plan to create an API call.
+-}
+callAPI : { method : String, path : List String } -> ApiPlan { a | baseUrl : () }
+callAPI { method, path } context =
+    { attributes =
+        path
+            |> List.map Url.percentEncode
+            |> String.join "/"
+            |> (++) "/"
+            |> UrlPath
+            |> List.singleton
+    , baseUrl = Context.getBaseUrl context
+    , context = context
+    , method = method
+    }
+
+
+{-| Add an empty attribute that does nothing.
+-}
+empty : Attribute a
+empty =
+    always NoAttr
+
+
+{-| Adds a JSON value as the HTTP body.
+-}
+fullBody : Json.Value -> Attribute a
+fullBody value _ =
+    FullBody value
+
+
+{-| Add a boolean value as a query parameter to the URL.
+-}
+queryBool : String -> Bool -> Attribute a
+queryBool key value _ =
+    (if value then
+        "true"
+
+     else
+        "false"
+    )
+        |> UrlBuilder.string key
+        |> QueryParam
+
+
+{-| Add an integer value as a query parameter to the URL.
+-}
+queryInt : String -> Int -> Attribute a
+queryInt key value _ =
+    QueryParam <| UrlBuilder.int key value
+
+
+{-| Add a boolean value as a query parameter to the URL if it exists.
+-}
+queryOpBool : String -> Maybe Bool -> Attribute a
+queryOpBool key value =
+    case value of
+        Just v ->
+            queryBool key v
+
+        Nothing ->
+            empty
+
+
+{-| Add an integer value as a query parameter to the URL if it exists.
+-}
+queryOpInt : String -> Maybe Int -> Attribute a
+queryOpInt key value =
+    case value of
+        Just v ->
+            queryInt key v
+
+        Nothing ->
+            empty
+
+
+{-| Add a string value as a query parameter to the URL if it exists.
+-}
+queryOpString : String -> Maybe String -> Attribute a
+queryOpString key value =
+    case value of
+        Just v ->
+            queryString key v
+
+        Nothing ->
+            empty
+
+
+{-| Add a string value as a query parameter to the URL.
+-}
+queryString : String -> String -> Attribute a
+queryString key value _ =
+    QueryParam <| UrlBuilder.string key value
+
+
+{-| Add more attributes to the API plan.
+-}
+withAttributes : List (Attribute a) -> ApiPlan a -> ApiPlan a
+withAttributes attrs f context =
+    f context
+        |> (\data ->
+                { data
+                    | attributes =
+                        attrs
+                            |> List.map (\attr -> attr data.context)
+                            |> List.append data.attributes
+                }
+           )
+
+
+{-| Attribute that requires a transaction id to be present.
+-}
+withTransactionId : Attribute { a | transaction : () }
+withTransactionId =
+    Context.getTransaction >> ReplaceInUrl "txnId"

From 2e8185841aecd3746105ccbecc517fb5b2a19565 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Fri, 17 May 2024 14:28:06 +0200
Subject: [PATCH 02/36] Add HTTP module for Matrix API requests

---
 src/Internal/Api/Api.elm      |  57 +++++++
 src/Internal/Api/Chain.elm    |  26 ++-
 src/Internal/Api/Request.elm  | 310 ++++++++++++++++++++++++++++++++--
 src/Internal/Api/Task.elm     |  39 +++++
 src/Internal/Config/Text.elm  |   8 +-
 src/Internal/Values/Vault.elm |   8 +
 6 files changed, 433 insertions(+), 15 deletions(-)
 create mode 100644 src/Internal/Api/Api.elm
 create mode 100644 src/Internal/Api/Task.elm

diff --git a/src/Internal/Api/Api.elm b/src/Internal/Api/Api.elm
new file mode 100644
index 0000000..855bf6c
--- /dev/null
+++ b/src/Internal/Api/Api.elm
@@ -0,0 +1,57 @@
+module Internal.Api.Api exposing (..)
+
+{-|
+
+
+# API
+
+The API module is a front-end for implementing API endpoints according to spec.
+
+-}
+
+import Internal.Api.Chain as C
+import Internal.Api.Request as R
+import Internal.Config.Log exposing (log)
+import Internal.Tools.Json as Json
+import Internal.Values.Context exposing (APIContext)
+import Internal.Values.Vault as V
+
+
+{-| A TaskChain helps create a chain of HTTP requests.
+-}
+type alias TaskChain ph1 ph2 =
+    C.TaskChain R.Error V.VaultUpdate { ph1 | baseUrl : () } { ph2 | baseUrl : () }
+
+
+request :
+    { attributes : List (R.Attribute { ph1 | baseUrl : () })
+    , coder : Json.Coder V.VaultUpdate
+    , contextChange : V.VaultUpdate -> (APIContext { ph1 | baseUrl : () } -> APIContext { ph2 | baseUrl : () })
+    , method : String
+    , path : List String
+    }
+    -> TaskChain ph1 ph2
+request data =
+    R.toChain
+        { logHttp =
+            \r ->
+                ( V.HttpRequest r
+                , String.concat
+                    -- TODO: Move this to Internal.Config.Text module
+                    [ "Matrix HTTP: "
+                    , r.method
+                    , " "
+                    , r.url
+                    ]
+                    |> log.info
+                    |> List.singleton
+                )
+        , coder = data.coder
+        , request =
+            R.callAPI
+                { method = data.method
+                , path = data.path
+                }
+                |> R.withAttributes data.attributes
+        , toContextChange = data.contextChange
+        }
diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
index 81c7792..a27dd3d 100644
--- a/src/Internal/Api/Chain.elm
+++ b/src/Internal/Api/Chain.elm
@@ -1,4 +1,7 @@
-module Internal.Api.Chain exposing (TaskChain, IdemChain, CompleteChain)
+module Internal.Api.Chain exposing
+    ( TaskChain, CompleteChain
+    , IdemChain, toTask
+    )
 
 {-|
 
@@ -13,7 +16,12 @@ that all information is stored and values are dealt with appropriately.
 Elm's type checking system helps making this system sufficiently rigorous to
 avoid leaking values passing through the API in unexpected ways.
 
-@docs TaskChain, IdemChain, CompleteChain
+@docs TaskChain, CompleteChain
+
+
+## Finished chain
+
+@docs IdemChain, toTask
 
 -}
 
@@ -173,3 +181,17 @@ onError onErr f =
 succeed : TaskChainPiece u a b -> TaskChain err u a b
 succeed piece _ =
     Task.succeed piece
+
+
+{-| Once the chain is complete, turn it into a valid task.
+-}
+toTask : IdemChain Never u a -> APIContext a -> Task.Task Never (Backpacked u {})
+toTask chain context =
+    chain context
+        |> Task.onError (\e -> Task.succeed <| never e.error)
+        |> Task.map
+            (\backpack ->
+                { messages = backpack.messages
+                , logs = backpack.logs
+                }
+            )
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 4f4b898..063c9f3 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -1,6 +1,7 @@
 module Internal.Api.Request exposing
-    ( ApiCall, ApiPlan, callAPI, withAttributes
-    , accessToken, withTransactionId
+    ( ApiCall, ApiPlan, Attribute, callAPI, withAttributes, toChain
+    , Request, Error(..)
+    , accessToken, withTransactionId, timeout
     , fullBody, bodyBool, bodyInt, bodyString, bodyValue, bodyOpBool, bodyOpInt, bodyOpString, bodyOpValue
     , queryBool, queryInt, queryString, queryOpBool, queryOpInt, queryOpString
     )
@@ -15,7 +16,11 @@ This module helps describe API requests.
 
 ## Plan
 
-@docs ApiCall, ApiPlan, callAPI, withAttributes
+@docs ApiCall, ApiPlan, Attribute, callAPI, withAttributes, toChain
+
+Sometimes, APIs might fail. As a result, you may receive an error.
+
+@docs Request, Error
 
 
 ## API attributes
@@ -23,7 +28,7 @@ This module helps describe API requests.
 
 ### General attributes
 
-@docs accessToken, withTransactionId
+@docs accessToken, withTransactionId, timeout
 
 
 ### Body
@@ -37,9 +42,16 @@ This module helps describe API requests.
 
 -}
 
+import Dict
 import Http
+import Internal.Api.Chain as C
+import Internal.Config.Log exposing (Log, log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Values.Context as Context exposing (APIContext)
+import Json.Decode as D
+import Json.Encode as E
+import Task
 import Url
 import Url.Builder as UrlBuilder
 
@@ -52,6 +64,7 @@ type alias ApiCall ph =
     , baseUrl : String
     , context : APIContext ph
     , method : String
+    , path : List String
     }
 
 
@@ -77,8 +90,27 @@ type ContextAttr
     | NoAttr
     | QueryParam UrlBuilder.QueryParameter
     | ReplaceInUrl String String
+    | StatusCodeResponse Int ( Error, List Log )
     | Timeout Float
-    | UrlPath String
+
+
+{-| Error indicating that something went wrong.
+-}
+type Error
+    = InternetException Http.Error
+    | ServerReturnsBadJSON String
+
+
+{-| Ordinary shape of an HTTP request.
+-}
+type alias Request x a =
+    { headers : List Http.Header
+    , body : Http.Body
+    , method : String
+    , url : String
+    , resolver : Http.Resolver x a
+    , timeout : Maybe Float
+    }
 
 
 {-| Attribute that requires an access token to be present
@@ -171,19 +203,73 @@ bodyValue key value _ =
 -}
 callAPI : { method : String, path : List String } -> ApiPlan { a | baseUrl : () }
 callAPI { method, path } context =
-    { attributes =
-        path
-            |> List.map Url.percentEncode
-            |> String.join "/"
-            |> (++) "/"
-            |> UrlPath
-            |> List.singleton
+    { attributes = []
     , baseUrl = Context.getBaseUrl context
     , context = context
     , method = method
+    , path = path
     }
 
 
+{-| Decode the server's response into (hopefully) something meaningful.
+-}
+decodeServerResponse : D.Decoder ( a, List Log ) -> String -> Maybe ( Error, List Log ) -> Result ( Error, List Log ) ( a, List Log )
+decodeServerResponse decoder body statusCodeError =
+    case D.decodeString D.value body of
+        Err e ->
+            let
+                description : String
+                description =
+                    D.errorToString e
+            in
+            Err
+                ( ServerReturnsBadJSON description
+                , description
+                    |> Text.logs.serverReturnedInvalidJSON
+                    |> log.error
+                    |> List.singleton
+                )
+
+        Ok v ->
+            decodeServerValue decoder v statusCodeError
+
+
+{-| Decode the server's response, assuming that it parses correctly to
+a JSON value.
+-}
+decodeServerValue : D.Decoder ( a, List Log ) -> Json.Value -> Maybe ( Error, List Log ) -> Result ( Error, List Log ) ( a, List Log )
+decodeServerValue decoder value statusCodeError =
+    value
+        |> D.decodeValue decoder
+        |> Result.mapError
+            (\err ->
+                let
+                    description : String
+                    description =
+                        D.errorToString err
+
+                    -- TODO: Parse errors returned by Matrix API
+                    error : Maybe ( Error, List Log )
+                    error =
+                        Nothing
+                in
+                case ( error, statusCodeError ) of
+                    ( Just e, _ ) ->
+                        e
+
+                    ( Nothing, Just e ) ->
+                        e
+
+                    ( Nothing, Nothing ) ->
+                        ( ServerReturnsBadJSON description
+                        , description
+                            |> Text.logs.serverReturnedUnknownJSON
+                            |> log.error
+                            |> List.singleton
+                        )
+            )
+
+
 {-| Add an empty attribute that does nothing.
 -}
 empty : Attribute a
@@ -198,6 +284,158 @@ fullBody value _ =
     FullBody value
 
 
+getBody : List ContextAttr -> Json.Value
+getBody attributes =
+    attributes
+        |> List.filterMap
+            (\attr ->
+                case attr of
+                    FullBody v ->
+                        Just v
+
+                    _ ->
+                        Nothing
+            )
+        |> List.reverse
+        |> List.head
+        |> Maybe.withDefault
+            (List.filterMap
+                (\attr ->
+                    case attr of
+                        BodyParam key value ->
+                            Just ( key, value )
+
+                        _ ->
+                            Nothing
+                )
+                attributes
+                |> E.object
+            )
+
+
+getHeaders : List ContextAttr -> List Http.Header
+getHeaders =
+    List.filterMap
+        (\attr ->
+            case attr of
+                Header h ->
+                    Just h
+
+                _ ->
+                    Nothing
+        )
+
+
+getQueryParams : List ContextAttr -> List UrlBuilder.QueryParameter
+getQueryParams =
+    List.filterMap
+        (\attr ->
+            case attr of
+                QueryParam q ->
+                    Just q
+
+                _ ->
+                    Nothing
+        )
+
+
+getStatusCodes : List ContextAttr -> Dict.Dict Int ( Error, List Log )
+getStatusCodes =
+    List.filterMap
+        (\attr ->
+            case attr of
+                StatusCodeResponse code err ->
+                    Just ( code, err )
+
+                _ ->
+                    Nothing
+        )
+        >> Dict.fromList
+
+
+getTimeout : List ContextAttr -> Maybe Float
+getTimeout =
+    List.filterMap
+        (\attr ->
+            case attr of
+                Timeout f ->
+                    Just f
+
+                _ ->
+                    Nothing
+        )
+        >> List.reverse
+        >> List.head
+
+
+getUrl : ApiCall a -> String
+getUrl { attributes, baseUrl, path } =
+    UrlBuilder.crossOrigin
+        baseUrl
+        (path
+            |> List.map
+                (\p ->
+                    List.foldl
+                        (\attr cp ->
+                            case attr of
+                                ReplaceInUrl from to ->
+                                    if from == cp then
+                                        to
+
+                                    else
+                                        cp
+
+                                _ ->
+                                    cp
+                        )
+                        p
+                        attributes
+                )
+            |> List.map Url.percentEncode
+        )
+        (getQueryParams attributes)
+
+
+{-| Resolve the response of a Matrix API call.
+-}
+rawApiCallResolver : Json.Coder a -> Dict.Dict Int ( Error, List Log ) -> Http.Resolver ( Error, List Log ) ( a, List Log )
+rawApiCallResolver coder statusCodeErrors =
+    Http.stringResolver
+        (\response ->
+            case response of
+                Http.BadUrl_ s ->
+                    Http.BadUrl s
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.Timeout_ ->
+                    Http.Timeout
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.NetworkError_ ->
+                    Http.NetworkError
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.BadStatus_ metadata body ->
+                    statusCodeErrors
+                        |> Dict.get metadata.statusCode
+                        |> decodeServerResponse (Json.decode coder) body
+
+                Http.GoodStatus_ metadata body ->
+                    statusCodeErrors
+                        |> Dict.get metadata.statusCode
+                        |> decodeServerResponse (Json.decode coder) body
+        )
+
+
 {-| Add a boolean value as a query parameter to the URL.
 -}
 queryBool : String -> Bool -> Attribute a
@@ -262,6 +500,54 @@ queryString key value _ =
     QueryParam <| UrlBuilder.string key value
 
 
+timeout : Float -> Attribute a
+timeout f _ =
+    Timeout f
+
+
+{-| Transform an APICall to a TaskChain.
+-}
+toChain :
+    { logHttp : Request ( Error, List Log ) ( update, List Log ) -> ( update, List Log )
+    , coder : Json.Coder update
+    , request : ApiPlan ph1
+    , toContextChange : update -> (APIContext ph1 -> APIContext ph2)
+    }
+    -> C.TaskChain Error update ph1 ph2
+toChain data apiContext =
+    data.request apiContext
+        |> (\call ->
+                let
+                    r : Request ( Error, List Log ) ( update, List Log )
+                    r =
+                        { method = call.method
+                        , headers = getHeaders call.attributes
+                        , url = getUrl call
+                        , body = Http.jsonBody (getBody call.attributes)
+                        , resolver = rawApiCallResolver data.coder (getStatusCodes call.attributes)
+                        , timeout = getTimeout call.attributes
+                        }
+                in
+                case data.logHttp r of
+                    ( httpU, httpLogs ) ->
+                        Http.task r
+                            |> Task.map
+                                (\( u, logs ) ->
+                                    { contextChange = data.toContextChange u
+                                    , logs = List.append httpLogs logs
+                                    , messages = [ httpU, u ]
+                                    }
+                                )
+                            |> Task.mapError
+                                (\( err, logs ) ->
+                                    { error = err
+                                    , logs = List.append httpLogs logs
+                                    , messages = [ httpU ]
+                                    }
+                                )
+           )
+
+
 {-| Add more attributes to the API plan.
 -}
 withAttributes : List (Attribute a) -> ApiPlan a -> ApiPlan a
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
new file mode 100644
index 0000000..e697cdf
--- /dev/null
+++ b/src/Internal/Api/Task.elm
@@ -0,0 +1,39 @@
+module Internal.Api.Task exposing (..)
+
+import Internal.Api.Chain as C
+import Internal.Api.Request as Request
+import Internal.Config.Log exposing (Log)
+import Internal.Values.Context exposing (APIContext)
+import Internal.Values.Envelope exposing (EnvelopeUpdate(..))
+import Internal.Values.Room exposing (RoomUpdate(..))
+import Internal.Values.Vault exposing (VaultUpdate(..))
+import Task
+
+
+{-| A Backpack is the ultimate message type that gets sent back by the Elm
+runtime, which can be accessed, viewed and inspected.
+-}
+type alias Backpack =
+    { messages : List (EnvelopeUpdate VaultUpdate), logs : List Log }
+
+
+{-| A Task is a task that is ready to be sent to the outside world.
+-}
+type alias Task =
+    C.TaskChain Never (EnvelopeUpdate VaultUpdate) {} {}
+
+
+{-| An UnFinished Task that is used somewhere else in this module to write a
+complete Task type.
+-}
+type alias UFTask a b =
+    C.TaskChain Request.Error (EnvelopeUpdate VaultUpdate) a b
+
+
+{-| Transform a completed task into a Cmd.
+-}
+run : (Backpack -> msg) -> Task -> APIContext {} -> Cmd msg
+run toMsg task context =
+    context
+        |> C.toTask task
+        |> Task.perform toMsg
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index 2affe44..e0ba635 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -535,7 +535,11 @@ leakingValueFound leaking_value =
 happened. Most of these unexpected results, are taken account of by the Elm SDK,
 but logged so that the programmer can do something about it.
 -}
-logs : { keyIsNotAnInt : String -> String }
+logs :
+    { keyIsNotAnInt : String -> String
+    , serverReturnedInvalidJSON : String -> String
+    , serverReturnedUnknownJSON : String -> String
+    }
 logs =
     { keyIsNotAnInt =
         \key ->
@@ -544,6 +548,8 @@ logs =
                 , key
                 , "` that cannot be converted to an Int"
                 ]
+    , serverReturnedInvalidJSON = (++) "The server returned invalid JSON: "
+    , serverReturnedUnknownJSON = (++) "The server returned JSON that doesn't seem to live up to spec rules: "
     }
 
 
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index c3d534f..1470acc 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -33,6 +33,8 @@ Rooms are environments where people can have a conversation with each other.
 -}
 
 import FastDict as Dict exposing (Dict)
+import Internal.Api.Request as Request
+import Internal.Config.Log exposing (Log)
 import Internal.Config.Text as Text
 import Internal.Tools.Hashdict as Hashdict exposing (Hashdict)
 import Internal.Tools.Json as Json
@@ -52,6 +54,7 @@ based on new information provided by the Matrix API.
 -}
 type VaultUpdate
     = CreateRoomIfNotExists String
+    | HttpRequest (Request.Request ( Request.Error, List Log ) ( VaultUpdate, List Log ))
     | MapRoom String Room.RoomUpdate
     | More (List VaultUpdate)
     | SetAccountData String Json.Value
@@ -126,6 +129,11 @@ update vu vault =
                 (Maybe.withDefault (Room.init roomId) >> Maybe.Just)
                 vault
 
+        -- The HTTP request currently isn't used anywhere other than for
+        -- auditing the requests that the Vault is making
+        HttpRequest _ ->
+            vault
+
         MapRoom roomId ru ->
             mapRoom roomId (Room.update ru) vault
 

From e49a0e3dc35ce64182318519db8591762a0d2724 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Fri, 17 May 2024 18:00:33 +0200
Subject: [PATCH 03/36] Add documentation

---
 src/Internal/Api/Api.elm     |  9 ++++++++-
 src/Internal/Api/Request.elm |  2 ++
 src/Internal/Api/Task.elm    | 15 ++++++++++++++-
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/src/Internal/Api/Api.elm b/src/Internal/Api/Api.elm
index 855bf6c..b8f61f5 100644
--- a/src/Internal/Api/Api.elm
+++ b/src/Internal/Api/Api.elm
@@ -1,4 +1,4 @@
-module Internal.Api.Api exposing (..)
+module Internal.Api.Api exposing (TaskChain, request)
 
 {-|
 
@@ -7,6 +7,11 @@ module Internal.Api.Api exposing (..)
 
 The API module is a front-end for implementing API endpoints according to spec.
 
+This module is imported by various API endpoint implementations to keep the
+implementation simple and understandable.
+
+@docs TaskChain, request
+
 -}
 
 import Internal.Api.Chain as C
@@ -23,6 +28,8 @@ type alias TaskChain ph1 ph2 =
     C.TaskChain R.Error V.VaultUpdate { ph1 | baseUrl : () } { ph2 | baseUrl : () }
 
 
+{-| Make an HTTP request that adheres to the Matrix spec rules.
+-}
 request :
     { attributes : List (R.Attribute { ph1 | baseUrl : () })
     , coder : Json.Coder V.VaultUpdate
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 063c9f3..1536920 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -500,6 +500,8 @@ queryString key value _ =
     QueryParam <| UrlBuilder.string key value
 
 
+{-| Configure the HTTP request to time out after a given expiry time.
+-}
 timeout : Float -> Attribute a
 timeout f _ =
     Timeout f
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index e697cdf..8f5a5b0 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -1,4 +1,17 @@
-module Internal.Api.Task exposing (..)
+module Internal.Api.Task exposing (Task, run)
+{-| # Task module
+
+This module is used to define how API calls are made. These completed API tasks
+can be directly converted to Cmd types that the end user of the SDK can access.
+
+These tasks do not affect the `Vault` directly, but instead, return a
+`VaultUpdate` type that the user can apply to keep their `Vault` type
+up-to-date.
+
+## Use
+
+@docs Task, run
+-}
 
 import Internal.Api.Chain as C
 import Internal.Api.Request as Request

From 3fdd25d6d6744352d1a7cc69679f13e43e07e304 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 19 May 2024 00:22:12 +0200
Subject: [PATCH 04/36] Add spec version control for API endpoints

---
 src/Internal/Api/Api.elm        | 139 +++++++++++++++++++++++++++++++-
 src/Internal/Api/Chain.elm      |   6 ++
 src/Internal/Api/Request.elm    |  62 ++++++++++++--
 src/Internal/Api/Task.elm       |   8 +-
 src/Internal/Config/Text.elm    |   4 +
 src/Internal/Values/Context.elm |  31 +++++--
 src/Internal/Values/Room.elm    |  15 +++-
 7 files changed, 243 insertions(+), 22 deletions(-)

diff --git a/src/Internal/Api/Api.elm b/src/Internal/Api/Api.elm
index b8f61f5..039a551 100644
--- a/src/Internal/Api/Api.elm
+++ b/src/Internal/Api/Api.elm
@@ -1,4 +1,7 @@
-module Internal.Api.Api exposing (TaskChain, request)
+module Internal.Api.Api exposing
+    ( TaskChain, request
+    , VersionControl, startWithVersion, startWithUnstableFeature, forVersion, sameForVersion, forUnstableFeature, versionChain
+    )
 
 {-|
 
@@ -12,14 +15,25 @@ implementation simple and understandable.
 
 @docs TaskChain, request
 
+
+## Spec versions
+
+To respect spec versions, there is often a variety of ways to communicate with
+the homeserver. For this reason, users can differentiate spec versions using
+these functions.
+
+@docs VersionControl, startWithVersion, startWithUnstableFeature, forVersion, sameForVersion, forUnstableFeature, versionChain
+
 -}
 
 import Internal.Api.Chain as C
 import Internal.Api.Request as R
-import Internal.Config.Log exposing (log)
+import Internal.Config.Log exposing (Log, log)
 import Internal.Tools.Json as Json
-import Internal.Values.Context exposing (APIContext)
+import Internal.Values.Context as Context exposing (APIContext, Versions)
 import Internal.Values.Vault as V
+import Recursion
+import Set
 
 
 {-| A TaskChain helps create a chain of HTTP requests.
@@ -32,10 +46,11 @@ type alias TaskChain ph1 ph2 =
 -}
 request :
     { attributes : List (R.Attribute { ph1 | baseUrl : () })
-    , coder : Json.Coder V.VaultUpdate
+    , coder : Json.Coder returnValue
     , contextChange : V.VaultUpdate -> (APIContext { ph1 | baseUrl : () } -> APIContext { ph2 | baseUrl : () })
     , method : String
     , path : List String
+    , toUpdate : returnValue -> ( V.VaultUpdate, List Log )
     }
     -> TaskChain ph1 ph2
 request data =
@@ -61,4 +76,120 @@ request data =
                 }
                 |> R.withAttributes data.attributes
         , toContextChange = data.contextChange
+        , toUpdate = data.toUpdate
         }
+
+
+{-| This type allows different definitions for different spec versions,
+allowing the Elm SDK to communicate differently to the server depending on
+how up-to-date the server is.
+-}
+type VersionControl a ph1 ph2
+    = VC
+        { name : VersionType
+        , chain : a -> TaskChain (WithV ph1) (WithV ph2)
+        , prev : Maybe (VersionControl a ph1 ph2)
+        }
+
+
+type VersionType
+    = SpecVersion String
+    | UnstableFeature String
+
+
+type alias WithV ph =
+    { ph | versions : () }
+
+
+{-| Start with a given spec version supporting a given API endpoint.
+-}
+startWithVersion : String -> (a -> TaskChain (WithV ph1) (WithV ph2)) -> VersionControl a ph1 ph2
+startWithVersion name chain =
+    VC
+        { name = SpecVersion name
+        , chain = chain
+        , prev = Nothing
+        }
+
+
+{-| Start with a given unstable feature supporting a given API endpoint.
+-}
+startWithUnstableFeature : String -> (a -> TaskChain (WithV ph1) (WithV ph2)) -> VersionControl a ph1 ph2
+startWithUnstableFeature name chain =
+    VC
+        { name = UnstableFeature name
+        , chain = chain
+        , prev = Nothing
+        }
+
+
+{-| Add a new unstable feature that supports a different version of the API endpoint.
+-}
+forUnstableFeature : String -> (a -> TaskChain (WithV ph1) (WithV ph2)) -> VersionControl a ph1 ph2 -> VersionControl a ph1 ph2
+forUnstableFeature name chain prev =
+    VC
+        { name = UnstableFeature name
+        , chain = chain
+        , prev = Just prev
+        }
+
+
+{-| Add a new spec version that supports a different version of the API endpoint.
+-}
+forVersion : String -> (a -> TaskChain (WithV ph1) (WithV ph2)) -> VersionControl a ph1 ph2 -> VersionControl a ph1 ph2
+forVersion name chain prev =
+    VC
+        { name = SpecVersion name
+        , chain = chain
+        , prev = Just prev
+        }
+
+
+{-| Add another spec version that has the API endpoint defined the same as the previous API endpoint.
+-}
+sameForVersion : String -> VersionControl a ph1 ph2 -> VersionControl a ph1 ph2
+sameForVersion name (VC data) =
+    VC
+        { name = SpecVersion name
+        , chain = data.chain
+        , prev = Just (VC data)
+        }
+
+
+supportedVersion : Versions -> VersionType -> Bool
+supportedVersion { versions, unstableFeatures } name =
+    case name of
+        SpecVersion n ->
+            List.member n versions
+
+        UnstableFeature n ->
+            Set.member n unstableFeatures
+
+
+
+-- NOTE: Interesting detail! For some reason, I cannot add the `context`
+-- NOTE: variable to the top line of the defined input values!
+-- NOTE: Maybe this is a bug?
+
+
+{-| Once you are done, turn a VersionControl type into a Task Chain.
+-}
+versionChain : VersionControl a ph1 ph2 -> a -> TaskChain (WithV ph1) (WithV ph2)
+versionChain vc input =
+    \context ->
+        case Context.getVersions context of
+            versions ->
+                Recursion.runRecursion
+                    (\mvc ->
+                        case mvc of
+                            Nothing ->
+                                Recursion.base (C.fail R.NoSupportedVersion context)
+
+                            Just (VC data) ->
+                                if supportedVersion versions data.name then
+                                    Recursion.base (data.chain input context)
+
+                                else
+                                    Recursion.recurse data.prev
+                    )
+                    (Just vc)
diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
index a27dd3d..338bf0f 100644
--- a/src/Internal/Api/Chain.elm
+++ b/src/Internal/Api/Chain.elm
@@ -1,6 +1,7 @@
 module Internal.Api.Chain exposing
     ( TaskChain, CompleteChain
     , IdemChain, toTask
+    , fail, succeed
     )
 
 {-|
@@ -23,6 +24,11 @@ avoid leaking values passing through the API in unexpected ways.
 
 @docs IdemChain, toTask
 
+
+## Operations
+
+@docs fail, succeed
+
 -}
 
 import Internal.Config.Log exposing (Log)
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 1536920..a49496f 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -1,7 +1,7 @@
 module Internal.Api.Request exposing
     ( ApiCall, ApiPlan, Attribute, callAPI, withAttributes, toChain
     , Request, Error(..)
-    , accessToken, withTransactionId, timeout
+    , accessToken, withTransactionId, timeout, onStatusCode
     , fullBody, bodyBool, bodyInt, bodyString, bodyValue, bodyOpBool, bodyOpInt, bodyOpString, bodyOpValue
     , queryBool, queryInt, queryString, queryOpBool, queryOpInt, queryOpString
     )
@@ -28,7 +28,7 @@ Sometimes, APIs might fail. As a result, you may receive an error.
 
 ### General attributes
 
-@docs accessToken, withTransactionId, timeout
+@docs accessToken, withTransactionId, timeout, onStatusCode
 
 
 ### Body
@@ -98,7 +98,9 @@ type ContextAttr
 -}
 type Error
     = InternetException Http.Error
+    | NoSupportedVersion
     | ServerReturnsBadJSON String
+    | ServerReturnsError String Json.Value
 
 
 {-| Ordinary shape of an HTTP request.
@@ -396,10 +398,35 @@ getUrl { attributes, baseUrl, path } =
         (getQueryParams attributes)
 
 
+{-| When the HTTP request cannot be deciphered but the status code is known,
+return with a given default error.
+-}
+onStatusCode : Int -> String -> Attribute a
+onStatusCode code err _ =
+    StatusCodeResponse code
+        ( err
+            |> E.string
+            |> Tuple.pair "errcode"
+            |> List.singleton
+            |> E.object
+            |> ServerReturnsError err
+        , String.concat
+            -- TODO: Move to Internal.Config.Text
+            [ "Received an invalid HTTP response from Matrix server "
+            , "but managed to decode it using the status code "
+            , String.fromInt code
+            , ": Default to errcode "
+            , err
+            ]
+            |> log.warn
+            |> List.singleton
+        )
+
+
 {-| Resolve the response of a Matrix API call.
 -}
-rawApiCallResolver : Json.Coder a -> Dict.Dict Int ( Error, List Log ) -> Http.Resolver ( Error, List Log ) ( a, List Log )
-rawApiCallResolver coder statusCodeErrors =
+rawApiCallResolver : Json.Coder a -> (a -> ( b, List Log )) -> Dict.Dict Int ( Error, List Log ) -> Http.Resolver ( Error, List Log ) ( b, List Log )
+rawApiCallResolver coder f statusCodeErrors =
     Http.stringResolver
         (\response ->
             case response of
@@ -427,12 +454,30 @@ rawApiCallResolver coder statusCodeErrors =
                 Http.BadStatus_ metadata body ->
                     statusCodeErrors
                         |> Dict.get metadata.statusCode
-                        |> decodeServerResponse (Json.decode coder) body
+                        |> decodeServerResponse
+                            (Json.decode coder
+                                |> D.map
+                                    (\( u, l ) ->
+                                        case f u of
+                                            ( u2, l2 ) ->
+                                                ( u2, List.append l l2 )
+                                    )
+                            )
+                            body
 
                 Http.GoodStatus_ metadata body ->
                     statusCodeErrors
                         |> Dict.get metadata.statusCode
-                        |> decodeServerResponse (Json.decode coder) body
+                        |> decodeServerResponse
+                            (Json.decode coder
+                                |> D.map
+                                    (\( u, l ) ->
+                                        case f u of
+                                            ( u2, l2 ) ->
+                                                ( u2, List.append l l2 )
+                                    )
+                            )
+                            body
         )
 
 
@@ -511,9 +556,10 @@ timeout f _ =
 -}
 toChain :
     { logHttp : Request ( Error, List Log ) ( update, List Log ) -> ( update, List Log )
-    , coder : Json.Coder update
+    , coder : Json.Coder httpOut
     , request : ApiPlan ph1
     , toContextChange : update -> (APIContext ph1 -> APIContext ph2)
+    , toUpdate : httpOut -> ( update, List Log )
     }
     -> C.TaskChain Error update ph1 ph2
 toChain data apiContext =
@@ -526,7 +572,7 @@ toChain data apiContext =
                         , headers = getHeaders call.attributes
                         , url = getUrl call
                         , body = Http.jsonBody (getBody call.attributes)
-                        , resolver = rawApiCallResolver data.coder (getStatusCodes call.attributes)
+                        , resolver = rawApiCallResolver data.coder data.toUpdate (getStatusCodes call.attributes)
                         , timeout = getTimeout call.attributes
                         }
                 in
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 8f5a5b0..00c696d 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -1,5 +1,9 @@
 module Internal.Api.Task exposing (Task, run)
-{-| # Task module
+
+{-|
+
+
+# Task module
 
 This module is used to define how API calls are made. These completed API tasks
 can be directly converted to Cmd types that the end user of the SDK can access.
@@ -8,9 +12,11 @@ These tasks do not affect the `Vault` directly, but instead, return a
 `VaultUpdate` type that the user can apply to keep their `Vault` type
 up-to-date.
 
+
 ## Use
 
 @docs Task, run
+
 -}
 
 import Internal.Api.Chain as C
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index e0ba635..9ac039d 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -247,6 +247,7 @@ fields :
     { context :
         { accessToken : Desc
         , baseUrl : Desc
+        , experimental : Desc
         , password : Desc
         , refreshToken : Desc
         , username : Desc
@@ -329,6 +330,9 @@ fields =
         , baseUrl =
             [ "The base URL of the Matrix server."
             ]
+        , experimental =
+            [ "Experimental features supported by the homeserver."
+            ]
         , password =
             [ "The user's password for authentication purposes."
             ]
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index d8f67e8..ae4fd78 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -4,7 +4,7 @@ module Internal.Values.Context exposing
     , setAccessToken, getAccessToken
     , setBaseUrl, getBaseUrl
     , setTransaction, getTransaction
-    , setVersions, getVersions
+    , Versions, setVersions, getVersions
     )
 
 {-| The Context is the set of variables that the user (mostly) cannot control.
@@ -45,13 +45,14 @@ information that can be inserted.
 
 ### Versions
 
-@docs setVersions, getVersions
+@docs Versions, setVersions, getVersions
 
 -}
 
 import Internal.Config.Leaks as L
 import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
+import Set exposing (Set)
 
 
 {-| The Context type stores all the information in the Vault. This data type is
@@ -60,6 +61,7 @@ static and hence can be passed on easily.
 type alias Context =
     { accessToken : Maybe String
     , baseUrl : Maybe String
+    , experimental : Maybe (Set String)
     , password : Maybe String
     , refreshToken : Maybe String
     , username : Maybe String
@@ -78,10 +80,14 @@ type APIContext ph
         , baseUrl : String
         , context : Context
         , transaction : String
-        , versions : List String
+        , versions : Versions
         }
 
 
+type alias Versions =
+    { versions : List String, unstableFeatures : Set String }
+
+
 {-| Create an unformatted APIContext type.
 -}
 apiFormat : Context -> APIContext {}
@@ -91,7 +97,10 @@ apiFormat context =
         , baseUrl = context.baseUrl |> Maybe.withDefault L.baseUrl
         , context = context
         , transaction = context.transaction |> Maybe.withDefault L.transaction
-        , versions = context.versions |> Maybe.withDefault L.versions
+        , versions =
+            { versions = context.versions |> Maybe.withDefault L.versions
+            , unstableFeatures = context.experimental |> Maybe.withDefault Set.empty
+            }
         }
 
 
@@ -99,7 +108,7 @@ apiFormat context =
 -}
 coder : Json.Coder Context
 coder =
-    Json.object7
+    Json.object8
         { name = Text.docs.context.name
         , description = Text.docs.context.description
         , init = Context
@@ -118,6 +127,13 @@ coder =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "experimental"
+            , toField = .experimental
+            , description = Text.fields.context.experimental
+            , coder = Json.set Json.string
+            }
+        )
         (Json.field.optional.value
             { fieldName = "password"
             , toField = .password
@@ -175,6 +191,7 @@ init : Context
 init =
     { accessToken = Nothing
     , baseUrl = Nothing
+    , experimental = Nothing
     , refreshToken = Nothing
     , password = Nothing
     , username = Nothing
@@ -227,13 +244,13 @@ setTransaction value (APIContext c) =
 
 {-| Get an inserted versions list.
 -}
-getVersions : APIContext { a | versions : () } -> List String
+getVersions : APIContext { a | versions : () } -> Versions
 getVersions (APIContext c) =
     c.versions
 
 
 {-| Insert a versions list into the APIContext.
 -}
-setVersions : List String -> APIContext a -> APIContext { a | versions : () }
+setVersions : Versions -> APIContext a -> APIContext { a | versions : () }
 setVersions value (APIContext c) =
     APIContext { c | versions = value }
diff --git a/src/Internal/Values/Room.elm b/src/Internal/Values/Room.elm
index f2902bf..9113cc0 100644
--- a/src/Internal/Values/Room.elm
+++ b/src/Internal/Values/Room.elm
@@ -1,6 +1,6 @@
 module Internal.Values.Room exposing
     ( Room, init
-    , RoomUpdate, update
+    , RoomUpdate(..), update
     , Batch, addBatch, addSync, addEvents, mostRecentEvents
     , getAccountData, setAccountData
     , coder, encode, decode
@@ -56,6 +56,7 @@ import Internal.Tools.Json as Json
 import Internal.Values.Event as Event exposing (Event)
 import Internal.Values.StateManager as StateManager exposing (StateManager)
 import Internal.Values.Timeline as Timeline exposing (Timeline)
+import Internal.Values.User as User exposing (User)
 import Json.Encode as E
 
 
@@ -81,7 +82,9 @@ type alias Room =
 from the Matrix API.
 -}
 type RoomUpdate
-    = AddSync Batch
+    = AddEvent Event
+    | AddSync Batch
+    | Invite User
     | More (List RoomUpdate)
     | SetAccountData String Json.Value
 
@@ -245,9 +248,17 @@ setAccountData key value room =
 update : RoomUpdate -> Room -> Room
 update ru room =
     case ru of
+        AddEvent _ ->
+            -- TODO: Add event
+            room
+
         AddSync batch ->
             addSync batch room
 
+        Invite user ->
+            -- TODO: Invite user
+            room
+
         More items ->
             List.foldl update room items
 

From 2714b53a2de5f006d95791211458cecb35fba8f8 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 19 May 2024 00:22:36 +0200
Subject: [PATCH 05/36] Add GetEvent API endpoint

---
 src/Internal/Api/GetEvent/Api.elm | 245 ++++++++++++++++++++++++++++++
 1 file changed, 245 insertions(+)
 create mode 100644 src/Internal/Api/GetEvent/Api.elm

diff --git a/src/Internal/Api/GetEvent/Api.elm b/src/Internal/Api/GetEvent/Api.elm
new file mode 100644
index 0000000..06946f6
--- /dev/null
+++ b/src/Internal/Api/GetEvent/Api.elm
@@ -0,0 +1,245 @@
+module Internal.Api.GetEvent.Api exposing (GetEventInput, getEvent)
+
+{-|
+
+
+# Get event
+
+Get a single event based on `roomId/eventId`. You must have permission to
+retrieve this event e.g. by being a member in the room for this event.
+
+@docs GetEventInput, getEvent
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Api.Request as R
+import Internal.Config.Log exposing (log)
+import Internal.Tools.Json as Json
+import Internal.Tools.Timestamp as Timestamp
+import Internal.Values.Event as Event exposing (Event)
+import Internal.Values.Room as Room
+import Internal.Values.User as User
+import Internal.Values.Vault as V
+
+
+{-| Input for getting an event.
+-}
+type alias GetEventInput =
+    { eventId : String, roomId : String }
+
+
+{-| Standard input for version 1 of the GetEvent API endpoint.
+-}
+type alias GetEventInputV1 a =
+    { a | eventId : String, roomId : String }
+
+
+{-| Universal phantom type encompassing all versions of this API endpoint.
+-}
+type alias Phantom a =
+    PhantomV1 { a | versions : () }
+
+
+{-| Phantom values necessary for version 1 of the GetEvent API endpoint.
+-}
+type alias PhantomV1 a =
+    { a | accessToken : (), baseUrl : () }
+
+
+{-| Get an event based on a room id and event id.
+-}
+getEvent : GetEventInput -> A.TaskChain (Phantom a) (Phantom a)
+getEvent =
+    A.startWithVersion "r0.5.0" getEventV1
+        |> A.sameForVersion "r0.6.0"
+        |> A.sameForVersion "r0.6.1"
+        |> A.forVersion "v1.1" getEventV2
+        |> A.sameForVersion "v1.2"
+        |> A.sameForVersion "v1.3"
+        |> A.sameForVersion "v1.4"
+        |> A.sameForVersion "v1.5"
+        |> A.sameForVersion "v1.6"
+        |> A.sameForVersion "v1.7"
+        |> A.sameForVersion "v1.8"
+        |> A.sameForVersion "v1.9"
+        |> A.sameForVersion "v1.10"
+        |> A.versionChain
+
+
+{-| Version 1 of the GetEvent API endpoint
+-}
+getEventV1 : GetEventInputV1 input -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
+getEventV1 { eventId, roomId } =
+    A.request
+        { attributes =
+            [ R.accessToken
+            , R.onStatusCode 404 "M_NOT_FOUND"
+            ]
+        , coder = getEventCoderV1
+        , contextChange = always identity
+        , method = "GET"
+        , path = [ "_matrix", "client", "r0", "rooms", roomId, "event", eventId ]
+        , toUpdate =
+            \event ->
+                ( V.MapRoom roomId (Room.AddEvent event)
+                , event.eventId
+                    |> (++) "Received event id "
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+{-| Version 2 of the GetEvent API endpoint
+-}
+getEventV2 : GetEventInputV1 input -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
+getEventV2 { eventId, roomId } =
+    A.request
+        { attributes =
+            [ R.accessToken
+            , R.onStatusCode 404 "M_NOT_FOUND"
+            ]
+        , coder = getEventCoderV1
+        , contextChange = always identity
+        , method = "GET"
+        , path = [ "_matrix", "client", "v3", "rooms", roomId, "event", eventId ]
+        , toUpdate =
+            \event ->
+                ( V.MapRoom roomId (Room.AddEvent event)
+                , event.eventId
+                    |> (++) "Received event id "
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+getEventCoderV1 : Json.Coder Event
+getEventCoderV1 =
+    Json.object8
+        { name = "ClientEvent"
+        , description =
+            [ "ClientEvent as described by the Matrix spec"
+            , "https://spec.matrix.org/v1.10/client-server-api/#get_matrixclientv3roomsroomideventeventid"
+            ]
+        , init = Event
+        }
+        (Json.field.required
+            { fieldName = "content"
+            , toField = .content
+            , description =
+                [ "The body of this event, as created by the client which sent it."
+                ]
+            , coder = Json.value
+            }
+        )
+        (Json.field.required
+            { fieldName = "event_id"
+            , toField = .eventId
+            , description =
+                [ "The globally unique identifier for this event."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "origin_server_ts"
+            , toField = .originServerTs
+            , description =
+                [ "Timestamp (in milliseconds since the unix epoch) on originating homeserver when this event was sent."
+                ]
+            , coder = Timestamp.coder
+            }
+        )
+        (Json.field.required
+            { fieldName = "room_id"
+            , toField = .roomId
+            , description =
+                [ "The ID of the room associated with this event."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "sender"
+            , toField = .sender
+            , description =
+                [ "Contains the fully-qualified ID of the user who sent this event."
+                ]
+            , coder = User.coder
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "state_key"
+            , toField = .stateKey
+            , description =
+                [ "Present if, and only if, this event is a state event. The key making this piece of state unique in the room. Note that it is often an empty string."
+                , "State keys starting with an @ are reserved for referencing user IDs, such as room members. With the exception of a few events, state events set with a given user’s ID as the state key MUST only be set by that user."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "type"
+            , toField = .eventType
+            , description =
+                [ "The type of the event."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "unsigned"
+            , toField = .unsigned
+            , description =
+                [ "Contains optional extra information about the event."
+                ]
+            , coder =
+                Json.object4
+                    { name = "UnsignedData"
+                    , description =
+                        [ "UnsignedData as described by the Matrix spec"
+                        , "https://spec.matrix.org/v1.10/client-server-api/#get_matrixclientv3roomsroomideventeventid"
+                        ]
+                    , init = \a b c d -> Event.UnsignedData { age = a, prevContent = b, redactedBecause = c, transactionId = d }
+                    }
+                    (Json.field.optional.value
+                        { fieldName = "age"
+                        , toField = \(Event.UnsignedData data) -> data.age
+                        , description =
+                            [ "The time in milliseconds that has elapsed since the event was sent. This field is generated by the local homeserver, and may be incorrect if the local time on at least one of the two servers is out of sync, which can cause the age to either be negative or greater than it actually is."
+                            ]
+                        , coder = Json.int
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = "prev_content"
+                        , toField = \(Event.UnsignedData data) -> data.prevContent
+                        , description =
+                            [ " The previous content for this event. This field is generated by the local homeserver, and is only returned if the event is a state event, and the client has permission to see the previous content."
+                            , "Changed in v1.2: Previously, this field was specified at the top level of returned events rather than in unsigned (with the exception of the GET .../notifications endpoint), though in practice no known server implementations honoured this."
+                            ]
+                        , coder = Json.value
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = "redacted_because"
+                        , toField = \(Event.UnsignedData data) -> data.redactedBecause
+                        , description =
+                            [ "The event that redacted this event, if any."
+                            ]
+                        , coder = Json.lazy (\() -> getEventCoderV1)
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = "transaction_id"
+                        , toField = \(Event.UnsignedData data) -> data.transactionId
+                        , description =
+                            [ "The client-supplied transaction ID, for example, provided via PUT /_matrix/client/v3/rooms/{roomId}/send/{eventType}/{txnId}, if the client being given the event is the same one which sent it."
+                            ]
+                        , coder = Json.string
+                        }
+                    )
+            }
+        )

From 568afed458ea69e87213a43537b13345a5ff1027 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 19 May 2024 00:22:51 +0200
Subject: [PATCH 06/36] Add Invite API endpoint

---
 src/Internal/Api/Invite/Api.elm | 137 ++++++++++++++++++++++++++++++++
 1 file changed, 137 insertions(+)
 create mode 100644 src/Internal/Api/Invite/Api.elm

diff --git a/src/Internal/Api/Invite/Api.elm b/src/Internal/Api/Invite/Api.elm
new file mode 100644
index 0000000..2d5e2e2
--- /dev/null
+++ b/src/Internal/Api/Invite/Api.elm
@@ -0,0 +1,137 @@
+module Internal.Api.Invite.Api exposing (InviteInput, Phantom, invite)
+
+{-|
+
+
+# Invite
+
+This API invites a user to participate in a particular room. They do not start
+participating in the room until they actually join the room.
+
+Only users currently in a particular room can invite other users to join that
+room.
+
+If the user was invited to the room, the homeserver will append a m.room.member
+event to the room.
+
+@docs InviteInput, Phantom, invite
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Api.Request as R
+import Internal.Config.Log exposing (log)
+import Internal.Tools.Json as Json
+import Internal.Values.Room as Room
+import Internal.Values.User as User exposing (User)
+import Internal.Values.Vault as V
+
+
+{-| Invite a user to a room.
+-}
+invite : InviteInput -> A.TaskChain (Phantom ph1) (Phantom ph1)
+invite =
+    A.startWithVersion "r0.0.0" inviteV1
+        |> A.sameForVersion "r0.0.1"
+        |> A.sameForVersion "r0.1.0"
+        |> A.sameForVersion "r0.2.0"
+        |> A.sameForVersion "r0.3.0"
+        |> A.sameForVersion "r0.4.0"
+        |> A.sameForVersion "r0.5.0"
+        |> A.sameForVersion "r0.6.0"
+        |> A.sameForVersion "r0.6.1"
+        |> A.forVersion "v1.1" inviteV2
+        |> A.sameForVersion "v1.2"
+        |> A.sameForVersion "v1.3"
+        |> A.sameForVersion "v1.4"
+        |> A.sameForVersion "v1.5"
+        |> A.sameForVersion "v1.6"
+        |> A.sameForVersion "v1.7"
+        |> A.sameForVersion "v1.8"
+        |> A.sameForVersion "v1.9"
+        |> A.sameForVersion "v1.10"
+        |> A.versionChain
+
+
+{-| Context needed for inviting a user.
+-}
+type alias Phantom a =
+    { a | accessToken : (), versions : () }
+
+
+type alias PhantomV1 a =
+    { a | accessToken : () }
+
+
+{-| Input for inviting a user.
+-}
+type alias InviteInput =
+    { reason : Maybe String, roomId : String, user : User }
+
+
+type alias InviteInputV1 a =
+    { a | roomId : String, user : User }
+
+
+type alias InviteInputV2 a =
+    { a | roomId : String, user : User, reason : Maybe String }
+
+
+inviteV1 : InviteInputV1 a -> A.TaskChain (PhantomV1 ph1) (PhantomV1 ph1)
+inviteV1 { roomId, user } =
+    A.request
+        { attributes =
+            [ R.accessToken
+            , R.bodyString "user_id" (User.toString user)
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = Json.value
+        , contextChange = always identity
+        , method = "POST"
+        , path = [ "_matrix", "client", "r0", "rooms", roomId, "invite" ]
+        , toUpdate =
+            always
+                ( V.MapRoom roomId (Room.Invite user)
+                , String.concat
+                    -- TODO: Move to Internal.Config.Text
+                    [ "Invited user "
+                    , User.toString user
+                    , " to room "
+                    , roomId
+                    ]
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+inviteV2 : InviteInputV2 a -> A.TaskChain (PhantomV1 ph1) (PhantomV1 ph1)
+inviteV2 { reason, roomId, user } =
+    A.request
+        { attributes =
+            [ R.bodyOpString "reason" reason
+            , R.bodyString "user_id" (User.toString user)
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = Json.value
+        , contextChange = always identity
+        , method = "POST"
+        , path = [ "_matrix", "client", "v3", "rooms", roomId, "invite" ]
+        , toUpdate =
+            always
+                ( V.MapRoom roomId (Room.Invite user)
+                , String.concat
+                    -- TODO: Move to Internal.Config.Text
+                    [ "Invited user "
+                    , User.toString user
+                    , " to room "
+                    , roomId
+                    ]
+                    |> log.debug
+                    |> List.singleton
+                )
+        }

From b6e4396138dc11ab0020b3b70fa3a7f43a6b86d0 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 19:11:39 +0200
Subject: [PATCH 07/36] Update existing types & modules

---
 src/Internal/Api/Chain.elm       |  6 +++---
 src/Internal/Config/Leaks.elm    | 34 +++++++++++++++++++++-----------
 src/Internal/Config/Text.elm     |  5 +++++
 src/Internal/Values/Envelope.elm | 14 +++++++++++--
 src/Internal/Values/Vault.elm    |  6 ------
 5 files changed, 42 insertions(+), 23 deletions(-)

diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
index 338bf0f..3f47d26 100644
--- a/src/Internal/Api/Chain.elm
+++ b/src/Internal/Api/Chain.elm
@@ -1,7 +1,7 @@
 module Internal.Api.Chain exposing
     ( TaskChain, CompleteChain
     , IdemChain, toTask
-    , fail, succeed
+    , fail, succeed, andThen
     )
 
 {-|
@@ -27,12 +27,12 @@ avoid leaking values passing through the API in unexpected ways.
 
 ## Operations
 
-@docs fail, succeed
+@docs fail, succeed, andThen
 
 -}
 
 import Internal.Config.Log exposing (Log)
-import Internal.Values.Context as Context exposing (APIContext)
+import Internal.Values.Context exposing (APIContext)
 import Task
 
 
diff --git a/src/Internal/Config/Leaks.elm b/src/Internal/Config/Leaks.elm
index 6562b0a..27020ca 100644
--- a/src/Internal/Config/Leaks.elm
+++ b/src/Internal/Config/Leaks.elm
@@ -1,5 +1,5 @@
 module Internal.Config.Leaks exposing
-    ( accessToken, baseUrl, transaction, versions
+    ( accessToken, baseUrl, field, transaction, versions
     , allLeaks
     )
 
@@ -30,7 +30,7 @@ know 100% sure that the value isn't `Nothing`.
 
     Just 5 |> Maybe.withDefault Leaks.number
 
-@docs accessToken, baseUrl, transaction, versions
+@docs accessToken, baseUrl, field, transaction, versions
 
 For safety purposes, all leaking values are stored in the following value:
 
@@ -52,14 +52,15 @@ accessToken =
 -}
 allLeaks : Set String
 allLeaks =
-    Set.union
-        (Set.fromList versions)
-        (Set.fromList
-            [ accessToken
-            , baseUrl
-            , transaction
-            ]
-        )
+    Set.fromList
+        [ accessToken
+        , baseUrl
+        , field
+        , transaction
+        , "elm-sdk-placeholder-versions-leaks" -- Old leaking value
+        ]
+        |> Set.union (Set.fromList versions.versions)
+        |> Set.union versions.unstableFeatures
 
 
 {-| Placeholder base URL.
@@ -69,6 +70,13 @@ baseUrl =
     "elm-sdk-placeholder-baseurl-leaks.example.org"
 
 
+{-| Placeholder JSON field.
+-}
+field : String
+field =
+    "elm-sdk-placeholder-json-field"
+
+
 {-| Placeholder transaction id.
 -}
 transaction : String
@@ -78,6 +86,8 @@ transaction =
 
 {-| Placeholder versions list.
 -}
-versions : List String
+versions : { versions : List String, unstableFeatures : Set String }
 versions =
-    [ "elm-sdk-placeholder-versions-leaks" ]
+    { versions = [ "elm-sdk-placeholder-versions-versions-leaks" ]
+    , unstableFeatures = Set.singleton "elm-sdk-placeholder-versions-unstableFeatures-leaks"
+    }
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index 9ac039d..c5c4932 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -251,6 +251,7 @@ fields :
         , password : Desc
         , refreshToken : Desc
         , username : Desc
+        , serverName : Desc
         , transaction : Desc
         , versions : Desc
         }
@@ -342,6 +343,10 @@ fields =
         , username =
             [ "The username of the Matrix account."
             ]
+        , serverName =
+            [ "The homeserver that the user is trying to communicate with."
+            , "This name doesn't need to be the address. For example, the name might be `matrix.org` even though the homeserver is at a different location."
+            ]
         , transaction =
             [ "A unique identifier for a transaction initiated by the user."
             ]
diff --git a/src/Internal/Values/Envelope.elm b/src/Internal/Values/Envelope.elm
index e83452d..030e0db 100644
--- a/src/Internal/Values/Envelope.elm
+++ b/src/Internal/Values/Envelope.elm
@@ -48,9 +48,11 @@ settings that can be adjusted manually.
 
 -}
 
+import Internal.Api.Request as Request
+import Internal.Config.Log exposing (Log)
 import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
-import Internal.Values.Context as Context exposing (Context)
+import Internal.Values.Context as Context exposing (Context, Versions)
 import Internal.Values.Settings as Settings
 
 
@@ -70,10 +72,12 @@ type alias Envelope a =
 -}
 type EnvelopeUpdate a
     = ContentUpdate a
+    | HttpRequest (Request.Request ( Request.Error, List Log ) ( EnvelopeUpdate a, List Log ))
     | More (List (EnvelopeUpdate a))
     | SetAccessToken String
+    | SetBaseUrl String
     | SetRefreshToken String
-    | SetVersions (List String)
+    | SetVersions Versions
 
 
 {-| Settings value from
@@ -286,12 +290,18 @@ update updateContent eu ({ context } as data) =
         ContentUpdate v ->
             { data | content = updateContent v data.content }
 
+        HttpRequest _ ->
+            data
+
         More items ->
             List.foldl (update updateContent) data items
 
         SetAccessToken a ->
             { data | context = { context | accessToken = Just a } }
 
+        SetBaseUrl b ->
+            { data | context = { context | baseUrl = Just b } }
+
         SetRefreshToken r ->
             { data | context = { context | refreshToken = Just r } }
 
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index 1470acc..08014db 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -54,7 +54,6 @@ based on new information provided by the Matrix API.
 -}
 type VaultUpdate
     = CreateRoomIfNotExists String
-    | HttpRequest (Request.Request ( Request.Error, List Log ) ( VaultUpdate, List Log ))
     | MapRoom String Room.RoomUpdate
     | More (List VaultUpdate)
     | SetAccountData String Json.Value
@@ -129,11 +128,6 @@ update vu vault =
                 (Maybe.withDefault (Room.init roomId) >> Maybe.Just)
                 vault
 
-        -- The HTTP request currently isn't used anywhere other than for
-        -- auditing the requests that the Vault is making
-        HttpRequest _ ->
-            vault
-
         MapRoom roomId ru ->
             mapRoom roomId (Room.update ru) vault
 

From 3ee6debf44ed4226b3ca35a434197a4896c94013 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 19:12:34 +0200
Subject: [PATCH 08/36] Refactor Context

---
 src/Internal/Api/Api.elm        |   9 ++-
 src/Internal/Api/Request.elm    | 138 ++++++++++++++++----------------
 src/Internal/Values/Context.elm |  81 +++++++++++++------
 3 files changed, 132 insertions(+), 96 deletions(-)

diff --git a/src/Internal/Api/Api.elm b/src/Internal/Api/Api.elm
index 039a551..c0f1619 100644
--- a/src/Internal/Api/Api.elm
+++ b/src/Internal/Api/Api.elm
@@ -31,6 +31,7 @@ import Internal.Api.Request as R
 import Internal.Config.Log exposing (Log, log)
 import Internal.Tools.Json as Json
 import Internal.Values.Context as Context exposing (APIContext, Versions)
+import Internal.Values.Envelope as E
 import Internal.Values.Vault as V
 import Recursion
 import Set
@@ -39,7 +40,7 @@ import Set
 {-| A TaskChain helps create a chain of HTTP requests.
 -}
 type alias TaskChain ph1 ph2 =
-    C.TaskChain R.Error V.VaultUpdate { ph1 | baseUrl : () } { ph2 | baseUrl : () }
+    C.TaskChain R.Error (E.EnvelopeUpdate V.VaultUpdate) { ph1 | baseUrl : () } { ph2 | baseUrl : () }
 
 
 {-| Make an HTTP request that adheres to the Matrix spec rules.
@@ -47,17 +48,17 @@ type alias TaskChain ph1 ph2 =
 request :
     { attributes : List (R.Attribute { ph1 | baseUrl : () })
     , coder : Json.Coder returnValue
-    , contextChange : V.VaultUpdate -> (APIContext { ph1 | baseUrl : () } -> APIContext { ph2 | baseUrl : () })
+    , contextChange : returnValue -> (APIContext { ph1 | baseUrl : () } -> APIContext { ph2 | baseUrl : () })
     , method : String
     , path : List String
-    , toUpdate : returnValue -> ( V.VaultUpdate, List Log )
+    , toUpdate : returnValue -> ( E.EnvelopeUpdate V.VaultUpdate, List Log )
     }
     -> TaskChain ph1 ph2
 request data =
     R.toChain
         { logHttp =
             \r ->
-                ( V.HttpRequest r
+                ( E.HttpRequest r
                 , String.concat
                     -- TODO: Move this to Internal.Config.Text module
                     [ "Matrix HTTP: "
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index a49496f..3874d16 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -423,64 +423,6 @@ onStatusCode code err _ =
         )
 
 
-{-| Resolve the response of a Matrix API call.
--}
-rawApiCallResolver : Json.Coder a -> (a -> ( b, List Log )) -> Dict.Dict Int ( Error, List Log ) -> Http.Resolver ( Error, List Log ) ( b, List Log )
-rawApiCallResolver coder f statusCodeErrors =
-    Http.stringResolver
-        (\response ->
-            case response of
-                Http.BadUrl_ s ->
-                    Http.BadUrl s
-                        |> InternetException
-                        |> Tuple.pair
-                        |> (|>) []
-                        |> Err
-
-                Http.Timeout_ ->
-                    Http.Timeout
-                        |> InternetException
-                        |> Tuple.pair
-                        |> (|>) []
-                        |> Err
-
-                Http.NetworkError_ ->
-                    Http.NetworkError
-                        |> InternetException
-                        |> Tuple.pair
-                        |> (|>) []
-                        |> Err
-
-                Http.BadStatus_ metadata body ->
-                    statusCodeErrors
-                        |> Dict.get metadata.statusCode
-                        |> decodeServerResponse
-                            (Json.decode coder
-                                |> D.map
-                                    (\( u, l ) ->
-                                        case f u of
-                                            ( u2, l2 ) ->
-                                                ( u2, List.append l l2 )
-                                    )
-                            )
-                            body
-
-                Http.GoodStatus_ metadata body ->
-                    statusCodeErrors
-                        |> Dict.get metadata.statusCode
-                        |> decodeServerResponse
-                            (Json.decode coder
-                                |> D.map
-                                    (\( u, l ) ->
-                                        case f u of
-                                            ( u2, l2 ) ->
-                                                ( u2, List.append l l2 )
-                                    )
-                            )
-                            body
-        )
-
-
 {-| Add a boolean value as a query parameter to the URL.
 -}
 queryBool : String -> Bool -> Attribute a
@@ -545,6 +487,46 @@ queryString key value _ =
     QueryParam <| UrlBuilder.string key value
 
 
+{-| Resolve the response of a Matrix API call.
+-}
+rawApiCallResolver : D.Decoder ( a, List Log ) -> Dict.Dict Int ( Error, List Log ) -> Http.Resolver ( Error, List Log ) ( a, List Log )
+rawApiCallResolver decoder statusCodeErrors =
+    Http.stringResolver
+        (\response ->
+            case response of
+                Http.BadUrl_ s ->
+                    Http.BadUrl s
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.Timeout_ ->
+                    Http.Timeout
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.NetworkError_ ->
+                    Http.NetworkError
+                        |> InternetException
+                        |> Tuple.pair
+                        |> (|>) []
+                        |> Err
+
+                Http.BadStatus_ metadata body ->
+                    statusCodeErrors
+                        |> Dict.get metadata.statusCode
+                        |> decodeServerResponse decoder body
+
+                Http.GoodStatus_ metadata body ->
+                    statusCodeErrors
+                        |> Dict.get metadata.statusCode
+                        |> decodeServerResponse decoder body
+        )
+
+
 {-| Configure the HTTP request to time out after a given expiry time.
 -}
 timeout : Float -> Attribute a
@@ -558,7 +540,7 @@ toChain :
     { logHttp : Request ( Error, List Log ) ( update, List Log ) -> ( update, List Log )
     , coder : Json.Coder httpOut
     , request : ApiPlan ph1
-    , toContextChange : update -> (APIContext ph1 -> APIContext ph2)
+    , toContextChange : httpOut -> (APIContext ph1 -> APIContext ph2)
     , toUpdate : httpOut -> ( update, List Log )
     }
     -> C.TaskChain Error update ph1 ph2
@@ -566,25 +548,47 @@ toChain data apiContext =
     data.request apiContext
         |> (\call ->
                 let
-                    r : Request ( Error, List Log ) ( update, List Log )
+                    r : Request ( Error, List Log ) ( httpOut, List Log )
                     r =
                         { method = call.method
                         , headers = getHeaders call.attributes
                         , url = getUrl call
                         , body = Http.jsonBody (getBody call.attributes)
-                        , resolver = rawApiCallResolver data.coder data.toUpdate (getStatusCodes call.attributes)
+                        , resolver = rawApiCallResolver (Json.decode data.coder) (getStatusCodes call.attributes)
+                        , timeout = getTimeout call.attributes
+                        }
+
+                    logR : Request ( Error, List Log ) ( update, List Log )
+                    logR =
+                        { method = call.method
+                        , headers = getHeaders call.attributes
+                        , url = getUrl call
+                        , body = Http.jsonBody (getBody call.attributes)
+                        , resolver =
+                            rawApiCallResolver
+                                (Json.decode data.coder
+                                    |> D.map
+                                        (\( out, logs ) ->
+                                            case data.toUpdate out of
+                                                ( u, uLogs ) ->
+                                                    ( u, List.append logs uLogs )
+                                        )
+                                )
+                                (getStatusCodes call.attributes)
                         , timeout = getTimeout call.attributes
                         }
                 in
-                case data.logHttp r of
+                case data.logHttp logR of
                     ( httpU, httpLogs ) ->
                         Http.task r
                             |> Task.map
-                                (\( u, logs ) ->
-                                    { contextChange = data.toContextChange u
-                                    , logs = List.append httpLogs logs
-                                    , messages = [ httpU, u ]
-                                    }
+                                (\( httpO, logs ) ->
+                                    case data.toUpdate httpO of
+                                        ( u, uLogs ) ->
+                                            { contextChange = data.toContextChange httpO
+                                            , logs = List.concat [ httpLogs, logs, uLogs ]
+                                            , messages = [ httpU, u ]
+                                            }
                                 )
                             |> Task.mapError
                                 (\( err, logs ) ->
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index ae4fd78..3d9e98f 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -1,6 +1,6 @@
 module Internal.Values.Context exposing
     ( Context, init, coder, encode, decoder
-    , APIContext, apiFormat
+    , APIContext, apiFormat, fromApiFormat
     , setAccessToken, getAccessToken
     , setBaseUrl, getBaseUrl
     , setTransaction, getTransaction
@@ -22,7 +22,7 @@ the Matrix API.
 Once the API starts needing information, that's when we use the APIContext type
 to build the right environment for the API communication to work with.
 
-@docs APIContext, apiFormat
+@docs APIContext, apiFormat, fromApiFormat
 
 Once the APIContext is ready, there's helper functions for each piece of
 information that can be inserted.
@@ -52,6 +52,7 @@ information that can be inserted.
 import Internal.Config.Leaks as L
 import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
+import Json.Encode as E
 import Set exposing (Set)
 
 
@@ -61,12 +62,12 @@ static and hence can be passed on easily.
 type alias Context =
     { accessToken : Maybe String
     , baseUrl : Maybe String
-    , experimental : Maybe (Set String)
     , password : Maybe String
     , refreshToken : Maybe String
-    , username : Maybe String
+    , serverName : String
     , transaction : Maybe String
-    , versions : Maybe (List String)
+    , username : Maybe String
+    , versions : Maybe Versions
     }
 
 
@@ -97,13 +98,18 @@ apiFormat context =
         , baseUrl = context.baseUrl |> Maybe.withDefault L.baseUrl
         , context = context
         , transaction = context.transaction |> Maybe.withDefault L.transaction
-        , versions =
-            { versions = context.versions |> Maybe.withDefault L.versions
-            , unstableFeatures = context.experimental |> Maybe.withDefault Set.empty
-            }
+        , versions = context.versions |> Maybe.withDefault L.versions
         }
 
 
+{-| Get the original context that contains all values from before any were
+gotten from the Matrix API.
+-}
+fromApiFormat : APIContext a -> Context
+fromApiFormat (APIContext c) =
+    c.context
+
+
 {-| Define how a Context can be encoded to and decoded from a JSON object.
 -}
 coder : Json.Coder Context
@@ -127,13 +133,6 @@ coder =
             , coder = Json.string
             }
         )
-        (Json.field.optional.value
-            { fieldName = "experimental"
-            , toField = .experimental
-            , description = Text.fields.context.experimental
-            , coder = Json.set Json.string
-            }
-        )
         (Json.field.optional.value
             { fieldName = "password"
             , toField = .password
@@ -148,10 +147,10 @@ coder =
             , coder = Json.string
             }
         )
-        (Json.field.optional.value
-            { fieldName = "username"
-            , toField = .username
-            , description = Text.fields.context.username
+        (Json.field.required
+            { fieldName = "serverName"
+            , toField = .serverName
+            , description = Text.fields.context.serverName
             , coder = Json.string
             }
         )
@@ -162,11 +161,18 @@ coder =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "username"
+            , toField = .username
+            , description = Text.fields.context.username
+            , coder = Json.string
+            }
+        )
         (Json.field.optional.value
             { fieldName = "versions"
             , toField = .versions
             , description = Text.fields.context.versions
-            , coder = Json.list Json.string
+            , coder = versionsCoder
             }
         )
 
@@ -187,15 +193,15 @@ encode =
 
 {-| A basic, untouched version of the Context, containing no information.
 -}
-init : Context
-init =
+init : String -> Context
+init sn =
     { accessToken = Nothing
     , baseUrl = Nothing
-    , experimental = Nothing
     , refreshToken = Nothing
     , password = Nothing
-    , username = Nothing
+    , serverName = sn
     , transaction = Nothing
+    , username = Nothing
     , versions = Nothing
     }
 
@@ -254,3 +260,28 @@ getVersions (APIContext c) =
 setVersions : Versions -> APIContext a -> APIContext { a | versions : () }
 setVersions value (APIContext c) =
     APIContext { c | versions = value }
+
+
+versionsCoder : Json.Coder Versions
+versionsCoder =
+    Json.object2
+        { name = Debug.todo "Add name" -- Text.docs.versions.name
+        , description = Debug.todo "Add description" -- Text.docs.versions.description
+        , init = Versions
+        }
+        (Json.field.required
+            { fieldName = "versions"
+            , toField = .versions
+            , description = Debug.todo "Add description"
+            , coder = Json.list Json.string
+            }
+        )
+        (Json.field.optional.withDefault
+            { fieldName = "unstableFeatures"
+            , toField = .unstableFeatures
+            , description = Debug.todo "Add description"
+            , coder = Json.set Json.string
+            , default = ( Set.empty, [] )
+            , defaultToString = Json.encode (Json.set Json.string) >> E.encode 0
+            }
+        )

From e786bebeb2a9737be2aaee1dd75309635993c480 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 19:13:20 +0200
Subject: [PATCH 09/36] Add /_matrix/client/versions endpoint

---
 src/Internal/Api/Versions/Api.elm | 91 +++++++++++++++++++++++++++++++
 1 file changed, 91 insertions(+)
 create mode 100644 src/Internal/Api/Versions/Api.elm

diff --git a/src/Internal/Api/Versions/Api.elm b/src/Internal/Api/Versions/Api.elm
new file mode 100644
index 0000000..a617ab3
--- /dev/null
+++ b/src/Internal/Api/Versions/Api.elm
@@ -0,0 +1,91 @@
+module Internal.Api.Versions.Api exposing (versions, Phantom)
+
+{-|
+
+
+# Versions
+
+Ask the Matrix API which versions it supports.
+
+@docs versions, Phantom
+
+-}
+
+import Dict
+import Internal.Api.Api as A
+import Internal.Tools.Json as Json
+import Internal.Values.Context as Context exposing (Versions)
+import Internal.Values.Envelope as E
+import Set
+
+
+{-| Task chain to ask which spec versions the Matrix API supports.
+-}
+versions : A.TaskChain (Phantom ph) (Phantom { ph | versions : () })
+versions =
+    A.request
+        { attributes = []
+        , coder = versionsCoder
+        , contextChange = Context.setVersions
+        , method = "GET"
+        , path = [ "_matrix", "client", "versions" ]
+        , toUpdate = \v -> ( E.SetVersions v, [] )
+        }
+
+
+{-| Context needed for asking the server's available spec versions
+-}
+type alias Phantom a =
+    { a | baseUrl : () }
+
+
+versionsCoder : Json.Coder Versions
+versionsCoder =
+    Json.object2
+        { name = "Versions"
+        , description =
+            [ "Gets the versions of the specification supported by the server."
+            , "Values will take the form vX.Y or rX.Y.Z in historical cases. See the Specification Versioning for more information."
+            , "The server may additionally advertise experimental features it supports through unstable_features. These features should be namespaced and may optionally include version information within their name if desired. Features listed here are not for optionally toggling parts of the Matrix specification and should only be used to advertise support for a feature which has not yet landed in the spec. For example, a feature currently undergoing the proposal process may appear here and eventually be taken off this list once the feature lands in the spec and the server deems it reasonable to do so. Servers can choose to enable some features only for some users, so clients should include authentication in the request to get all the features available for the logged-in user. If no authentication is provided, the server should only return the features available to all users. Servers may wish to keep advertising features here after they’ve been released into the spec to give clients a chance to upgrade appropriately. Additionally, clients should avoid using unstable features in their stable releases."
+            ]
+        , init = Versions
+        }
+        (Json.field.required
+            { fieldName = "versions"
+            , toField = .versions
+            , description =
+                [ "The supported versions."
+                ]
+            , coder = Json.list Json.string
+            }
+        )
+        (Json.field.optional.withDefault
+            { fieldName = "unstable_features"
+            , toField = .unstableFeatures
+            , description =
+                [ "Experimental features the server supports. Features not listed here, or the lack of this property all together, indicate that a feature is not supported."
+                ]
+            , coder =
+                Json.bool
+                    |> Json.slowDict
+                    |> Json.map
+                        { name = "Dict to set"
+                        , description =
+                            [ "Turn a dictionary of supported values into a set that contains only supported values"
+                            ]
+                        , back = Set.foldl (\k d -> Dict.insert k True d) Dict.empty
+                        , forth =
+                            Dict.foldl
+                                (\k v s ->
+                                    if v then
+                                        Set.insert k s
+
+                                    else
+                                        s
+                                )
+                                Set.empty
+                        }
+            , default = ( Set.empty, [] )
+            , defaultToString = always "{}"
+            }
+        )

From becd3bcdb19103e216f0c2a68cb72895c9c3bc89 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 19:17:21 +0200
Subject: [PATCH 10/36] Update GetEvent + Invite endpoint to new Enveloped Http
 Log type

---
 src/Internal/Api/GetEvent/Api.elm | 5 +++--
 src/Internal/Api/Invite/Api.elm   | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/Internal/Api/GetEvent/Api.elm b/src/Internal/Api/GetEvent/Api.elm
index 06946f6..4d07f04 100644
--- a/src/Internal/Api/GetEvent/Api.elm
+++ b/src/Internal/Api/GetEvent/Api.elm
@@ -17,6 +17,7 @@ import Internal.Api.Request as R
 import Internal.Config.Log exposing (log)
 import Internal.Tools.Json as Json
 import Internal.Tools.Timestamp as Timestamp
+import Internal.Values.Envelope as E
 import Internal.Values.Event as Event exposing (Event)
 import Internal.Values.Room as Room
 import Internal.Values.User as User
@@ -82,7 +83,7 @@ getEventV1 { eventId, roomId } =
         , path = [ "_matrix", "client", "r0", "rooms", roomId, "event", eventId ]
         , toUpdate =
             \event ->
-                ( V.MapRoom roomId (Room.AddEvent event)
+                ( E.ContentUpdate <| V.MapRoom roomId (Room.AddEvent event)
                 , event.eventId
                     |> (++) "Received event id "
                     |> log.debug
@@ -106,7 +107,7 @@ getEventV2 { eventId, roomId } =
         , path = [ "_matrix", "client", "v3", "rooms", roomId, "event", eventId ]
         , toUpdate =
             \event ->
-                ( V.MapRoom roomId (Room.AddEvent event)
+                ( E.ContentUpdate <| V.MapRoom roomId (Room.AddEvent event)
                 , event.eventId
                     |> (++) "Received event id "
                     |> log.debug
diff --git a/src/Internal/Api/Invite/Api.elm b/src/Internal/Api/Invite/Api.elm
index 2d5e2e2..6bae710 100644
--- a/src/Internal/Api/Invite/Api.elm
+++ b/src/Internal/Api/Invite/Api.elm
@@ -22,6 +22,7 @@ import Internal.Api.Api as A
 import Internal.Api.Request as R
 import Internal.Config.Log exposing (log)
 import Internal.Tools.Json as Json
+import Internal.Values.Envelope as E
 import Internal.Values.Room as Room
 import Internal.Values.User as User exposing (User)
 import Internal.Values.Vault as V
@@ -93,7 +94,7 @@ inviteV1 { roomId, user } =
         , path = [ "_matrix", "client", "r0", "rooms", roomId, "invite" ]
         , toUpdate =
             always
-                ( V.MapRoom roomId (Room.Invite user)
+                ( E.ContentUpdate <| V.MapRoom roomId (Room.Invite user)
                 , String.concat
                     -- TODO: Move to Internal.Config.Text
                     [ "Invited user "
@@ -123,7 +124,7 @@ inviteV2 { reason, roomId, user } =
         , path = [ "_matrix", "client", "v3", "rooms", roomId, "invite" ]
         , toUpdate =
             always
-                ( V.MapRoom roomId (Room.Invite user)
+                ( E.ContentUpdate <| V.MapRoom roomId (Room.Invite user)
                 , String.concat
                     -- TODO: Move to Internal.Config.Text
                     [ "Invited user "

From 83043e73f4138c6b1f055555392c8f421452823f Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 20:51:36 +0200
Subject: [PATCH 11/36] Add /.well-known/matrix.client endpoint

---
 src/Internal/Api/BaseUrl/Api.elm | 168 +++++++++++++++++++++++++++++++
 1 file changed, 168 insertions(+)
 create mode 100644 src/Internal/Api/BaseUrl/Api.elm

diff --git a/src/Internal/Api/BaseUrl/Api.elm b/src/Internal/Api/BaseUrl/Api.elm
new file mode 100644
index 0000000..56e0d1b
--- /dev/null
+++ b/src/Internal/Api/BaseUrl/Api.elm
@@ -0,0 +1,168 @@
+module Internal.Api.BaseUrl.Api exposing (..)
+
+{-|
+
+
+# Base URL
+
+This module looks for the right homeserver address.
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Api.Chain as C
+import Internal.Api.Request as R
+import Internal.Config.Leaks as L
+import Internal.Config.Log exposing (log)
+import Internal.Tools.Json as Json
+import Internal.Values.Context as Context
+import Internal.Values.Envelope as E
+import Internal.Values.Vault as V
+
+
+baseUrl : BaseUrlInput -> C.TaskChain R.Error (E.EnvelopeUpdate V.VaultUpdate) (Phantom ph) (Phantom { ph | baseUrl : () })
+baseUrl data =
+    R.toChain
+        { logHttp =
+            \r ->
+                ( E.HttpRequest r
+                , String.concat
+                    -- TODO: Move this to Internal.Config.Text module
+                    [ "Matrix HTTP: "
+                    , r.method
+                    , " "
+                    , r.url
+                    ]
+                    |> log.info
+                    |> List.singleton
+                )
+        , coder = coder
+        , request =
+            \context ->
+                { attributes = []
+                , baseUrl = data.url
+                , context = context
+                , method = "GET"
+                , path = [ ".well-known", "matrix", "client" ]
+                }
+        , toContextChange = \info -> Context.setBaseUrl info.homeserver.baseUrl
+        , toUpdate =
+            \info ->
+                ( E.SetBaseUrl info.homeserver.baseUrl
+                , String.concat
+                    [ "Found baseURL of "
+                    , data.url
+                    , " at address "
+                    , info.homeserver.baseUrl
+                    ]
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+type alias BaseUrlInput =
+    { url : String }
+
+
+type alias Phantom a =
+    a
+
+
+type alias DiscoveryInformation =
+    { homeserver : HomeserverInformation
+    , identityServer : Maybe IdentityServerInformation
+    }
+
+
+type alias HomeserverInformation =
+    { baseUrl : String }
+
+
+type alias IdentityServerInformation =
+    { baseUrl : String }
+
+
+coder : Json.Coder DiscoveryInformation
+coder =
+    Json.object2
+        { name = "Discovery Information"
+        , description =
+            [ "Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes."
+            , "Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL."
+            , "https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient"
+            ]
+        , init = DiscoveryInformation
+        }
+        (Json.field.required
+            { fieldName = "m.homeserver"
+            , toField = .homeserver
+            , coder =
+                Json.object2
+                    { name = "Homeserver Information"
+                    , description =
+                        [ "Used by clients to discover homeserver information."
+                        ]
+                    , init = \a _ -> { baseUrl = a }
+                    }
+                    (Json.field.required
+                        { fieldName = "base_url"
+                        , toField = .baseUrl
+                        , description =
+                            [ "The base URL for the homeserver for client-server connections."
+                            ]
+                        , coder = Json.string
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = L.field
+                        , toField = always Nothing
+                        , description =
+                            [ "The Elm SDK always expects objects to have at least two fields."
+                            , "Otherwise, what's the point of hiding the value in an object?"
+                            , "For this reason, this empty placeholder key will always be ignored."
+                            ]
+                        , coder = Json.value
+                        }
+                    )
+            , description =
+                [ "Used by clients to discover homeserver information."
+                ]
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "m.identity_server"
+            , toField = .identityServer
+            , coder =
+                Json.object2
+                    { name = "Homeserver Information"
+                    , description =
+                        [ "Used by clients to discover homeserver information."
+                        ]
+                    , init = \a _ -> { baseUrl = a }
+                    }
+                    (Json.field.required
+                        { fieldName = "base_url"
+                        , toField = .baseUrl
+                        , description =
+                            [ "The base URL for the homeserver for client-server connections."
+                            ]
+                        , coder = Json.string
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = L.field
+                        , toField = always Nothing
+                        , description =
+                            [ "The Elm SDK always expects objects to have at least two fields."
+                            , "Otherwise, what's the point of hiding the value in an object?"
+                            , "For this reason, this empty placeholder key will always be ignored."
+                            ]
+                        , coder = Json.value
+                        }
+                    )
+            , description =
+                [ "Used by clients to discover identity server information."
+                ]
+            }
+        )

From 77387ab4928546c3a49a85d3306b8fc818d6b961 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 20:52:07 +0200
Subject: [PATCH 12/36] Add makeVB TaskChain

---
 src/Internal/Api/Task.elm | 50 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 48 insertions(+), 2 deletions(-)

diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 00c696d..ff255b7 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -19,10 +19,12 @@ up-to-date.
 
 -}
 
+import Internal.Api.BaseUrl.Api
 import Internal.Api.Chain as C
 import Internal.Api.Request as Request
-import Internal.Config.Log exposing (Log)
-import Internal.Values.Context exposing (APIContext)
+import Internal.Api.Versions.Api
+import Internal.Config.Log exposing (Log, log)
+import Internal.Values.Context as Context exposing (APIContext)
 import Internal.Values.Envelope exposing (EnvelopeUpdate(..))
 import Internal.Values.Room exposing (RoomUpdate(..))
 import Internal.Values.Vault exposing (VaultUpdate(..))
@@ -49,6 +51,50 @@ type alias UFTask a b =
     C.TaskChain Request.Error (EnvelopeUpdate VaultUpdate) a b
 
 
+{-| Get the base URL where the Matrix API can be accessed
+-}
+getBaseUrl : UFTask a { a | baseUrl : () }
+getBaseUrl c =
+    case Context.fromApiFormat c |> .baseUrl of
+        Just b ->
+            C.succeed
+                { messages = []
+                , logs = [ log.debug "Using cached baseURL from Vault" ]
+                , contextChange = Context.setBaseUrl b
+                }
+                c
+
+        Nothing ->
+            Internal.Api.BaseUrl.Api.baseUrl
+                { url = Context.fromApiFormat c |> .serverName }
+                c
+
+
+{-| Get the versions that are potentially supported by the Matrix API
+-}
+getVersions : UFTask { a | baseUrl : () } { a | baseUrl : (), versions : () }
+getVersions c =
+    case Context.fromApiFormat c |> .versions of
+        Just v ->
+            C.succeed
+                { messages = []
+                , logs = [ log.debug "Using cached versions from Vault" ]
+                , contextChange = Context.setVersions v
+                }
+                c
+
+        Nothing ->
+            Internal.Api.Versions.Api.versions c
+
+
+{-| Establish a Task Chain context where the base URL and supported list of
+versions are known.
+-}
+makeVB : UFTask {} { a | baseUrl : (), versions : () }
+makeVB =
+    C.andThen getVersions getBaseUrl
+
+
 {-| Transform a completed task into a Cmd.
 -}
 run : (Backpack -> msg) -> Task -> APIContext {} -> Cmd msg

From 6e893718450cb519d2e4842443625fd125da9d85 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Wed, 22 May 2024 20:52:35 +0200
Subject: [PATCH 13/36] Add /_matrix/client/r0/login on r0.0.0

---
 .../Api/LoginWithUsernameAndPassword/Api.elm  | 133 ++++++++++++++++++
 1 file changed, 133 insertions(+)
 create mode 100644 src/Internal/Api/LoginWithUsernameAndPassword/Api.elm

diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
new file mode 100644
index 0000000..2478cab
--- /dev/null
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -0,0 +1,133 @@
+module Internal.Api.LoginWithUsernameAndPassword.Api exposing (Phantom)
+
+{-|
+
+
+# Login
+
+This module allows the user to log in using a username and password.
+
+@docs Phantom
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Api.Request as R
+import Internal.Tools.Json as Json
+import Internal.Values.Context as Context
+import Internal.Values.Envelope as E
+import Internal.Values.User as User exposing (User)
+
+
+type alias Phantom a =
+    { a | baseUrl : (), versions : () }
+
+
+type alias LoginWithUsernameAndPassword =
+    { deviceId : Maybe String
+    , initialDeviceDisplayName : Maybe String
+    , password : String
+    , username : String
+    }
+
+
+type alias LoginWithUsernameAndPasswordInputV1 a =
+    { a
+        | password : String
+        , username : String
+    }
+
+
+type alias LoginWithUsernameAndPasswordInputV2 a =
+    { a
+        | deviceId : Maybe String
+        , initialDeviceDisplayName : Maybe String
+        , password : String
+        , username : String
+    }
+
+
+type alias LoginWithUsernameAndPasswordOutputV1 =
+    { accessToken : String
+    , homeserver : String
+    , refreshToken : Maybe String
+    , user : User
+    }
+
+
+type alias PhantomV1 a =
+    { a | baseUrl : () }
+
+
+loginWithUsernameAndPasswordV1 : LoginWithUsernameAndPasswordInputV1 a -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV1 { username, password } =
+    A.request
+        { attributes =
+            [ R.bodyString "password" password
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "username" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            ]
+        , coder = coderV1
+        , method = "POST"
+        , path = [ "_matrix", "client", "r0", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken out.accessToken
+                    -- , E.SetRefreshToken out.refreshToken
+                    ]
+                , []
+                )
+        }
+
+
+coderV1 : Json.Coder LoginWithUsernameAndPasswordOutputV1
+coderV1 =
+    Json.object4
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/legacy/r0.0.0/client_server.html#post-matrix-client-r0-login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV1
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests. The access token may expire at some point, and if so, it SHOULD come with a refresh_token. There is no specific error message to indicate that a request has failed because an access token has expired; instead, if a client has reason to believe its access token is valid, and it receives an auth error, they should attempt to refresh for a new token on failure, and retry the request with the new token."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "refresh_token"
+            , toField = .refreshToken
+            , description =
+                [ "A refresh_token may be exchanged for a new access_token using the /tokenrefresh API endpoint."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )

From c84bb2a1ef25f4d056dfe4ad58a28a08cf49334c Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 23 May 2024 18:57:55 +0200
Subject: [PATCH 14/36] Extract access token value on r0.0.0 login endpoint

---
 src/Internal/Api/BaseUrl/Api.elm              |   7 +-
 .../Api/LoginWithUsernameAndPassword/Api.elm  |  14 +-
 src/Internal/Api/Task.elm                     |   2 +-
 src/Internal/Tools/Timestamp.elm              |  22 +++
 src/Internal/Values/Context.elm               | 136 ++++++++++++++++--
 src/Internal/Values/Envelope.elm              |  19 ++-
 6 files changed, 172 insertions(+), 28 deletions(-)

diff --git a/src/Internal/Api/BaseUrl/Api.elm b/src/Internal/Api/BaseUrl/Api.elm
index 56e0d1b..0ff9392 100644
--- a/src/Internal/Api/BaseUrl/Api.elm
+++ b/src/Internal/Api/BaseUrl/Api.elm
@@ -9,7 +9,6 @@ This module looks for the right homeserver address.
 
 -}
 
-import Internal.Api.Api as A
 import Internal.Api.Chain as C
 import Internal.Api.Request as R
 import Internal.Config.Leaks as L
@@ -20,7 +19,7 @@ import Internal.Values.Envelope as E
 import Internal.Values.Vault as V
 
 
-baseUrl : BaseUrlInput -> C.TaskChain R.Error (E.EnvelopeUpdate V.VaultUpdate) (Phantom ph) (Phantom { ph | baseUrl : () })
+baseUrl : BaseUrlInput -> C.TaskChain R.Error (E.EnvelopeUpdate V.VaultUpdate) ph { ph | baseUrl : () }
 baseUrl data =
     R.toChain
         { logHttp =
@@ -65,10 +64,6 @@ type alias BaseUrlInput =
     { url : String }
 
 
-type alias Phantom a =
-    a
-
-
 type alias DiscoveryInformation =
     { homeserver : HomeserverInformation
     , identityServer : Maybe IdentityServerInformation
diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index 2478cab..022205f 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -56,11 +56,11 @@ type alias LoginWithUsernameAndPasswordOutputV1 =
 
 
 type alias PhantomV1 a =
-    { a | baseUrl : () }
+    { a | baseUrl : (), now : () }
 
 
 loginWithUsernameAndPasswordV1 : LoginWithUsernameAndPasswordInputV1 a -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV1 { username, password } =
+loginWithUsernameAndPasswordV1 { username, password } context =
     A.request
         { attributes =
             [ R.bodyString "password" password
@@ -77,12 +77,18 @@ loginWithUsernameAndPasswordV1 { username, password } =
         , toUpdate =
             \out ->
                 ( E.More
-                    [ E.SetAccessToken out.accessToken
-                    -- , E.SetRefreshToken out.refreshToken
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = Nothing
+                        , lastUsed = Context.getNow context
+                        , refresh = out.refreshToken
+                        , value = out.accessToken
+                        }
                     ]
                 , []
                 )
         }
+        context
 
 
 coderV1 : Json.Coder LoginWithUsernameAndPasswordOutputV1
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index ff255b7..5e2afa1 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -90,7 +90,7 @@ getVersions c =
 {-| Establish a Task Chain context where the base URL and supported list of
 versions are known.
 -}
-makeVB : UFTask {} { a | baseUrl : (), versions : () }
+makeVB : UFTask a { a | baseUrl : (), versions : () }
 makeVB =
     C.andThen getVersions getBaseUrl
 
diff --git a/src/Internal/Tools/Timestamp.elm b/src/Internal/Tools/Timestamp.elm
index 0f96a77..e1a3f3d 100644
--- a/src/Internal/Tools/Timestamp.elm
+++ b/src/Internal/Tools/Timestamp.elm
@@ -1,5 +1,6 @@
 module Internal.Tools.Timestamp exposing
     ( Timestamp
+    , add, toMs
     , coder, encode, decoder
     )
 
@@ -12,6 +13,11 @@ elm/time. This module offers ways to work with the timestamp in meaningful ways.
 @docs Timestamp
 
 
+## Calculate
+
+@docs add, toMs
+
+
 ## JSON coders
 
 @docs coder, encode, decoder
@@ -28,6 +34,15 @@ type alias Timestamp =
     Time.Posix
 
 
+{-| Add a given number of miliseconds to a given Timestamp.
+-}
+add : Int -> Timestamp -> Timestamp
+add m =
+    Time.posixToMillis
+        >> (+) m
+        >> Time.millisToPosix
+
+
 {-| Create a Json coder
 -}
 coder : Json.Coder Timestamp
@@ -55,3 +70,10 @@ encode =
 decoder : Json.Decoder Timestamp
 decoder =
     Json.decode coder
+
+
+{-| Turn a Timestamp into a number of miliseconds
+-}
+toMs : Timestamp -> Int
+toMs =
+    Time.posixToMillis
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index 3d9e98f..40886d7 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -1,8 +1,9 @@
 module Internal.Values.Context exposing
-    ( Context, init, coder, encode, decoder
+    ( Context, AccessToken, init, coder, encode, decoder
     , APIContext, apiFormat, fromApiFormat
     , setAccessToken, getAccessToken
     , setBaseUrl, getBaseUrl
+    , setNow, getNow
     , setTransaction, getTransaction
     , Versions, setVersions, getVersions
     )
@@ -14,7 +15,7 @@ the Matrix API.
 
 ## Context
 
-@docs Context, init, coder, encode, decoder
+@docs Context, AccessToken, init, coder, encode, decoder
 
 
 ## APIContext
@@ -38,6 +39,11 @@ information that can be inserted.
 @docs setBaseUrl, getBaseUrl
 
 
+### Timestamp
+
+@docs setNow, getNow
+
+
 ### Transaction id
 
 @docs setTransaction, getTransaction
@@ -51,17 +57,33 @@ information that can be inserted.
 
 import Internal.Config.Leaks as L
 import Internal.Config.Text as Text
+import Internal.Tools.Hashdict as Hashdict exposing (Hashdict)
 import Internal.Tools.Json as Json
+import Internal.Tools.Timestamp as Timestamp exposing (Timestamp)
 import Json.Encode as E
 import Set exposing (Set)
+import Time
+
+
+{-| The Access Token is a combination of access tokens, values and refresh
+tokens that contain and summarizes all properties of a known access token.
+-}
+type alias AccessToken =
+    { created : Timestamp
+    , expiryMs : Maybe Int
+    , lastUsed : Timestamp
+    , refresh : Maybe String
+    , value : String
+    }
 
 
 {-| The Context type stores all the information in the Vault. This data type is
 static and hence can be passed on easily.
 -}
 type alias Context =
-    { accessToken : Maybe String
+    { accessTokens : Hashdict AccessToken
     , baseUrl : Maybe String
+    , now : Maybe Timestamp
     , password : Maybe String
     , refreshToken : Maybe String
     , serverName : String
@@ -80,6 +102,7 @@ type APIContext ph
         { accessToken : String
         , baseUrl : String
         , context : Context
+        , now : Timestamp
         , transaction : String
         , versions : Versions
         }
@@ -94,9 +117,11 @@ type alias Versions =
 apiFormat : Context -> APIContext {}
 apiFormat context =
     APIContext
-        { accessToken = context.accessToken |> Maybe.withDefault L.accessToken
+        { accessToken =
+            mostPopularToken context |> Maybe.withDefault L.accessToken
         , baseUrl = context.baseUrl |> Maybe.withDefault L.baseUrl
         , context = context
+        , now = context.now |> Maybe.withDefault (Time.millisToPosix 0)
         , transaction = context.transaction |> Maybe.withDefault L.transaction
         , versions = context.versions |> Maybe.withDefault L.versions
         }
@@ -114,16 +139,16 @@ fromApiFormat (APIContext c) =
 -}
 coder : Json.Coder Context
 coder =
-    Json.object8
+    Json.object9
         { name = Text.docs.context.name
         , description = Text.docs.context.description
         , init = Context
         }
-        (Json.field.optional.value
-            { fieldName = "accessToken"
-            , toField = .accessToken
+        (Json.field.required
+            { fieldName = "accessTokens"
+            , toField = .accessTokens
             , description = Text.fields.context.accessToken
-            , coder = Json.string
+            , coder = Hashdict.coder .value coderAccessToken
             }
         )
         (Json.field.optional.value
@@ -133,6 +158,13 @@ coder =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "now"
+            , toField = .now
+            , description = Debug.todo "Needs docs"
+            , coder = Timestamp.coder
+            }
+        )
         (Json.field.optional.value
             { fieldName = "password"
             , toField = .password
@@ -177,6 +209,52 @@ coder =
         )
 
 
+{-| JSON coder for an Access Token.
+-}
+coderAccessToken : Json.Coder AccessToken
+coderAccessToken =
+    Json.object5
+        { name = Debug.todo "Needs docs"
+        , description = Debug.todo "Needs docs"
+        , init = AccessToken
+        }
+        (Json.field.required
+            { fieldName = "created"
+            , toField = .created
+            , description = Debug.todo "Needs docs"
+            , coder = Timestamp.coder
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "expiryMs"
+            , toField = .expiryMs
+            , description = Debug.todo "Needs docs"
+            , coder = Json.int
+            }
+        )
+        (Json.field.required
+            { fieldName = "lastUsed"
+            , toField = .lastUsed
+            , description = Debug.todo "Needs docs"
+            , coder = Timestamp.coder
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "refresh"
+            , toField = .refresh
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "value"
+            , toField = .value
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )
+
+
 {-| Decode a Context type from a JSON value.
 -}
 decoder : Json.Decoder Context
@@ -195,8 +273,9 @@ encode =
 -}
 init : String -> Context
 init sn =
-    { accessToken = Nothing
+    { accessTokens = Hashdict.empty .value
     , baseUrl = Nothing
+    , now = Nothing
     , refreshToken = Nothing
     , password = Nothing
     , serverName = sn
@@ -206,6 +285,29 @@ init sn =
     }
 
 
+{-| Get the most popular access token available, if any.
+-}
+mostPopularToken : Context -> Maybe String
+mostPopularToken c =
+    c.accessTokens
+        |> Hashdict.values
+        |> List.sortBy
+            (\token ->
+                case token.expiryMs of
+                    Nothing ->
+                        ( 0, Timestamp.toMs token.created )
+
+                    Just e ->
+                        ( 1
+                        , token.created
+                            |> Timestamp.add e
+                            |> Timestamp.toMs
+                        )
+            )
+        |> List.head
+        |> Maybe.map .value
+
+
 {-| Get an inserted access token.
 -}
 getAccessToken : APIContext { a | accessToken : () } -> String
@@ -234,6 +336,20 @@ setBaseUrl value (APIContext c) =
     APIContext { c | baseUrl = value }
 
 
+{-| Get an inserted timestamp.
+-}
+getNow : APIContext { a | now : () } -> Timestamp
+getNow (APIContext c) =
+    c.now
+
+
+{-| Insert a Timestamp into the APIContext.
+-}
+setNow : Timestamp -> APIContext a -> APIContext { a | now : () }
+setNow t (APIContext c) =
+    APIContext { c | now = t }
+
+
 {-| Get an inserted transaction id.
 -}
 getTransaction : APIContext { a | transaction : () } -> String
diff --git a/src/Internal/Values/Envelope.elm b/src/Internal/Values/Envelope.elm
index 030e0db..e2f2b6c 100644
--- a/src/Internal/Values/Envelope.elm
+++ b/src/Internal/Values/Envelope.elm
@@ -51,8 +51,9 @@ settings that can be adjusted manually.
 import Internal.Api.Request as Request
 import Internal.Config.Log exposing (Log)
 import Internal.Config.Text as Text
+import Internal.Tools.Hashdict as Hashdict
 import Internal.Tools.Json as Json
-import Internal.Values.Context as Context exposing (Context, Versions)
+import Internal.Values.Context as Context exposing (AccessToken, Context, Versions)
 import Internal.Values.Settings as Settings
 
 
@@ -74,7 +75,8 @@ type EnvelopeUpdate a
     = ContentUpdate a
     | HttpRequest (Request.Request ( Request.Error, List Log ) ( EnvelopeUpdate a, List Log ))
     | More (List (EnvelopeUpdate a))
-    | SetAccessToken String
+    | RemoveAccessToken String
+    | SetAccessToken AccessToken
     | SetBaseUrl String
     | SetRefreshToken String
     | SetVersions Versions
@@ -179,10 +181,10 @@ getContent =
 {-| Create a new enveloped data type. All settings are set to default values
 from the [Internal.Config.Default](Internal-Config-Default) module.
 -}
-init : a -> Envelope a
-init x =
-    { content = x
-    , context = Context.init
+init : { serverName : String, content : a } -> Envelope a
+init data =
+    { content = data.content
+    , context = Context.init data.serverName
     , settings = Settings.init
     }
 
@@ -296,8 +298,11 @@ update updateContent eu ({ context } as data) =
         More items ->
             List.foldl (update updateContent) data items
 
+        RemoveAccessToken token ->
+            { data | context = { context | accessTokens = Hashdict.removeKey token context.accessTokens } }
+
         SetAccessToken a ->
-            { data | context = { context | accessToken = Just a } }
+            { data | context = { context | accessTokens = Hashdict.insert a context.accessTokens } }
 
         SetBaseUrl b ->
             { data | context = { context | baseUrl = Just b } }

From 3b0b3264de8e954cc827f5ca0ae6c579a2ac391d Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Fri, 24 May 2024 15:15:44 +0200
Subject: [PATCH 15/36] Finish /login API endpoint

---
 .../Api/LoginWithUsernameAndPassword/Api.elm  | 799 +++++++++++++++++-
 src/Internal/Values/Context.elm               |  11 +-
 src/Internal/Values/Envelope.elm              |  11 +
 src/Internal/Values/Vault.elm                 |  15 +-
 4 files changed, 827 insertions(+), 9 deletions(-)

diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index 022205f..2472382 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -1,4 +1,4 @@
-module Internal.Api.LoginWithUsernameAndPassword.Api exposing (Phantom)
+module Internal.Api.LoginWithUsernameAndPassword.Api exposing (Phantom, loginWithUsernameAndPassword)
 
 {-|
 
@@ -7,24 +7,52 @@ module Internal.Api.LoginWithUsernameAndPassword.Api exposing (Phantom)
 
 This module allows the user to log in using a username and password.
 
-@docs Phantom
+@docs Phantom, loginWithUsernameAndPassword
 
 -}
 
 import Internal.Api.Api as A
 import Internal.Api.Request as R
+import Internal.Config.Leaks as L
 import Internal.Tools.Json as Json
 import Internal.Values.Context as Context
 import Internal.Values.Envelope as E
 import Internal.Values.User as User exposing (User)
+import Internal.Values.Vault as V
+import Json.Encode as E
+
+
+loginWithUsernameAndPassword : LoginWithUsernameAndPasswordInput -> A.TaskChain (Phantom a) (Phantom { a | accessToken : () })
+loginWithUsernameAndPassword =
+    A.startWithVersion "r0.0.0" loginWithUsernameAndPasswordV1
+        |> A.sameForVersion "r0.0.1"
+        |> A.sameForVersion "r0.1.0"
+        |> A.sameForVersion "r0.2.0"
+        |> A.forVersion "r0.3.0" loginWithUsernameAndPasswordV2
+        |> A.forVersion "r0.4.0" loginWithUsernameAndPasswordV3
+        |> A.forVersion "r0.5.0" loginWithUsernameAndPasswordV4
+        |> A.sameForVersion "r0.6.0"
+        |> A.sameForVersion "r0.6.1"
+        |> A.forVersion "v1.1" loginWithUsernameAndPasswordV5
+        |> A.sameForVersion "v1.2"
+        |> A.forVersion "v1.3" loginWithUsernameAndPasswordV6
+        |> A.forVersion "v1.4" loginWithUsernameAndPasswordV7
+        |> A.sameForVersion "v1.5"
+        |> A.sameForVersion "v1.6"
+        |> A.sameForVersion "v1.7"
+        |> A.sameForVersion "v1.8"
+        |> A.sameForVersion "v1.9"
+        |> A.sameForVersion "v1.10"
+        |> A.versionChain
 
 
 type alias Phantom a =
     { a | baseUrl : (), versions : () }
 
 
-type alias LoginWithUsernameAndPassword =
+type alias LoginWithUsernameAndPasswordInput =
     { deviceId : Maybe String
+    , enableRefreshToken : Maybe Bool
     , initialDeviceDisplayName : Maybe String
     , password : String
     , username : String
@@ -47,25 +75,96 @@ type alias LoginWithUsernameAndPasswordInputV2 a =
     }
 
 
+type alias LoginWithUsernameAndPasswordInputV3 a =
+    { a
+        | deviceId : Maybe String
+        , enableRefreshToken : Maybe Bool
+        , initialDeviceDisplayName : Maybe String
+        , password : String
+        , username : String
+    }
+
+
 type alias LoginWithUsernameAndPasswordOutputV1 =
-    { accessToken : String
+    { accessToken : String -- Even though it is not required, we do not want it to be omitted.
     , homeserver : String
     , refreshToken : Maybe String
-    , user : User
+    , user : Maybe User
     }
 
 
+type alias LoginWithUsernameAndPasswordOutputV2 =
+    { accessToken : String -- Even though it is not required, we do not want it to be omitted.
+    , deviceId : Maybe String
+    , homeserver : String
+    , user : Maybe User
+    }
+
+
+type alias LoginWithUsernameAndPasswordOutputV3 =
+    { accessToken : String -- Even though it is not required, we do not want it to be omitted.
+    , deviceId : Maybe String
+    , homeserver : Maybe String
+    , user : Maybe User
+    }
+
+
+type alias LoginWithUsernameAndPasswordOutputV4 =
+    { accessToken : String -- Even though it is not required, we do not want it to be omitted.
+    , deviceId : Maybe String
+    , homeserver : Maybe String
+    , user : Maybe User
+    , wellKnown : Maybe DiscoveryInformationV1
+    }
+
+
+type alias LoginWithUsernameAndPasswordOutputV5 =
+    { accessToken : String -- Even though it is not required, we do not want it to be omitted.
+    , deviceId : Maybe String
+    , expiresInMs : Maybe Int
+    , homeserver : Maybe String
+    , refreshToken : Maybe String
+    , user : Maybe User
+    , wellKnown : Maybe DiscoveryInformationV1
+    }
+
+
+type alias LoginWithUsernameAndPasswordOutputV6 =
+    { accessToken : String
+    , deviceId : String
+    , expiresInMs : Maybe Int
+    , homeserver : Maybe String
+    , refreshToken : Maybe String
+    , user : User
+    , wellKnown : Maybe DiscoveryInformationV1
+    }
+
+
+type alias DiscoveryInformationV1 =
+    { homeserver : HomeserverInformation
+    , identityServer : Maybe IdentityServerInformation
+    }
+
+
+type alias HomeserverInformation =
+    { baseUrl : String }
+
+
+type alias IdentityServerInformation =
+    { baseUrl : String }
+
+
 type alias PhantomV1 a =
     { a | baseUrl : (), now : () }
 
 
-loginWithUsernameAndPasswordV1 : LoginWithUsernameAndPasswordInputV1 a -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV1 : LoginWithUsernameAndPasswordInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
 loginWithUsernameAndPasswordV1 { username, password } context =
     A.request
         { attributes =
             [ R.bodyString "password" password
             , R.bodyString "type" "m.login.password"
-            , R.bodyString "username" username
+            , R.bodyString "user" username
             , R.onStatusCode 400 "M_UNKNOWN"
             , R.onStatusCode 403 "M_FORBIDDEN"
             ]
@@ -84,6 +183,304 @@ loginWithUsernameAndPasswordV1 { username, password } context =
                         , refresh = out.refreshToken
                         , value = out.accessToken
                         }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV2 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV2 { deviceId, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "device_id" deviceId
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "string" -- Yup. That's what it says.
+            ]
+        , coder = coderV2
+        , method = "POST"
+        , path = [ "_matrix", "client", "r0", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = Nothing
+                        , lastUsed = Context.getNow context
+                        , refresh = Nothing
+                        , value = out.accessToken
+                        }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    , out.deviceId
+                        |> Maybe.map E.SetDeviceId
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV3 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV3 { deviceId, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "address" Nothing
+            , R.bodyOpString "device_id" deviceId
+            , R.bodyValue "identifier"
+                (E.object
+                    [ ( "type", E.string "m.id.user" )
+                    , ( "user", E.string username )
+                    ]
+                )
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = coderV3
+        , method = "POST"
+        , path = [ "_matrix", "client", "r0", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = Nothing
+                        , lastUsed = Context.getNow context
+                        , refresh = Nothing
+                        , value = out.accessToken
+                        }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    , out.deviceId
+                        |> Maybe.map E.SetDeviceId
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV4 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV4 { deviceId, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "address" Nothing
+            , R.bodyOpString "device_id" deviceId
+            , R.bodyValue "identifier"
+                (E.object
+                    [ ( "type", E.string "m.id.user" )
+                    , ( "user", E.string username )
+                    ]
+                )
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = coderV4
+        , method = "POST"
+        , path = [ "_matrix", "client", "r0", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = Nothing
+                        , lastUsed = Context.getNow context
+                        , refresh = Nothing
+                        , value = out.accessToken
+                        }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    , out.wellKnown
+                        |> Maybe.map (.homeserver >> .baseUrl)
+                        |> Maybe.map E.SetBaseUrl
+                        |> E.Optional
+                    , out.deviceId
+                        |> Maybe.map E.SetDeviceId
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV5 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV5 { deviceId, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "address" Nothing
+            , R.bodyOpString "device_id" deviceId
+            , R.bodyValue "identifier"
+                (E.object
+                    [ ( "type", E.string "m.id.user" )
+                    , ( "user", E.string username )
+                    ]
+                )
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = coderV4
+        , method = "POST"
+        , path = [ "_matrix", "client", "v3", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = Nothing
+                        , lastUsed = Context.getNow context
+                        , refresh = Nothing
+                        , value = out.accessToken
+                        }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    , out.wellKnown
+                        |> Maybe.map (.homeserver >> .baseUrl)
+                        |> Maybe.map E.SetBaseUrl
+                        |> E.Optional
+                    , out.deviceId
+                        |> Maybe.map E.SetDeviceId
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV6 : LoginWithUsernameAndPasswordInputV3 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV6 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "address" Nothing
+            , R.bodyOpString "device_id" deviceId
+            , R.bodyValue "identifier"
+                (E.object
+                    [ ( "type", E.string "m.id.user" )
+                    , ( "user", E.string username )
+                    ]
+                )
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyOpBool "refresh_token" enableRefreshToken
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = coderV5
+        , method = "POST"
+        , path = [ "_matrix", "client", "v3", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = out.expiresInMs
+                        , lastUsed = Context.getNow context
+                        , refresh = out.refreshToken
+                        , value = out.accessToken
+                        }
+                    , out.user
+                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                        |> E.Optional
+                    , out.wellKnown
+                        |> Maybe.map (.homeserver >> .baseUrl)
+                        |> Maybe.map E.SetBaseUrl
+                        |> E.Optional
+                    , out.deviceId
+                        |> Maybe.map E.SetDeviceId
+                        |> E.Optional
+                    ]
+                , []
+                )
+        }
+        context
+
+
+loginWithUsernameAndPasswordV7 : LoginWithUsernameAndPasswordInputV3 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
+loginWithUsernameAndPasswordV7 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } context =
+    A.request
+        { attributes =
+            [ R.bodyOpString "address" Nothing
+            , R.bodyOpString "device_id" deviceId
+            , R.bodyValue "identifier"
+                (E.object
+                    [ ( "type", E.string "m.id.user" )
+                    , ( "user", E.string username )
+                    ]
+                )
+            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+            , R.bodyString "password" password
+            , R.bodyOpBool "refresh_token" enableRefreshToken
+            , R.bodyString "type" "m.login.password"
+            , R.bodyString "user" username
+            , R.onStatusCode 400 "M_UNKNOWN"
+            , R.onStatusCode 403 "M_FORBIDDEN"
+            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+            ]
+        , coder = coderV6
+        , method = "POST"
+        , path = [ "_matrix", "client", "v3", "login" ]
+        , contextChange =
+            \out -> Context.setAccessToken out.accessToken
+        , toUpdate =
+            \out ->
+                ( E.More
+                    [ E.SetAccessToken
+                        { created = Context.getNow context
+                        , expiryMs = out.expiresInMs
+                        , lastUsed = Context.getNow context
+                        , refresh = out.refreshToken
+                        , value = out.accessToken
+                        }
+                    , E.ContentUpdate (V.SetUser out.user)
+                    , out.wellKnown
+                        |> Maybe.map (.homeserver >> .baseUrl)
+                        |> Maybe.map E.SetBaseUrl
+                        |> E.Optional
+                    , E.SetDeviceId out.deviceId
                     ]
                 , []
                 )
@@ -128,6 +525,300 @@ coderV1 =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )
+
+
+coderV2 : Json.Coder LoginWithUsernameAndPasswordOutputV2
+coderV2 =
+    Json.object4
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV2
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "device_id"
+            , toField = .deviceId
+            , description =
+                [ "ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )
+
+
+coderV3 : Json.Coder LoginWithUsernameAndPasswordOutputV3
+coderV3 =
+    Json.object4
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV3
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "device_id"
+            , toField = .deviceId
+            , description =
+                [ "ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )
+
+
+coderV4 : Json.Coder LoginWithUsernameAndPasswordOutputV4
+coderV4 =
+    Json.object5
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/legacy/client_server/r0.5.0.html#post-matrix-client-r0-login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV4
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "device_id"
+            , toField = .deviceId
+            , description =
+                [ "ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "well_known"
+            , toField = .wellKnown
+            , description =
+                [ "Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery."
+                ]
+            , coder = disoveryInformationCoderV1
+            }
+        )
+
+
+coderV5 : Json.Coder LoginWithUsernameAndPasswordOutputV5
+coderV5 =
+    Json.object7
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV5
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "device_id"
+            , toField = .deviceId
+            , description =
+                [ "ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "expires_in_ms"
+            , toField = .expiresInMs
+            , description =
+                [ "The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. "
+                ]
+            , coder = Json.int
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "refresh_token"
+            , toField = .refreshToken
+            , description =
+                [ "A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "user_id"
+            , toField = .user
+            , description =
+                [ "The fully-qualified Matrix ID that has been registered."
+                ]
+            , coder = User.coder
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "well_known"
+            , toField = .wellKnown
+            , description =
+                [ "Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery."
+                ]
+            , coder = disoveryInformationCoderV1
+            }
+        )
+
+
+coderV6 : Json.Coder LoginWithUsernameAndPasswordOutputV6
+coderV6 =
+    Json.object7
+        { name = "Login Response"
+        , description =
+            [ "Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests."
+            , "https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login"
+            ]
+        , init = LoginWithUsernameAndPasswordOutputV6
+        }
+        (Json.field.required
+            { fieldName = "access_token"
+            , toField = .accessToken
+            , description =
+                [ "An access token for the account. This access token can then be used to authorize other requests."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.required
+            { fieldName = "device_id"
+            , toField = .deviceId
+            , description =
+                [ "ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "expires_in_ms"
+            , toField = .expiresInMs
+            , description =
+                [ "The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. "
+                ]
+            , coder = Json.int
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "home_server"
+            , toField = .homeserver
+            , description =
+                [ "The hostname of the homeserver on which the account has been registered."
+                ]
+            , coder = Json.string
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "refresh_token"
+            , toField = .refreshToken
+            , description =
+                [ "A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint."
+                ]
+            , coder = Json.string
+            }
+        )
         (Json.field.required
             { fieldName = "user_id"
             , toField = .user
@@ -137,3 +828,97 @@ coderV1 =
             , coder = User.coder
             }
         )
+        (Json.field.optional.value
+            { fieldName = "well_known"
+            , toField = .wellKnown
+            , description =
+                [ "Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery."
+                ]
+            , coder = disoveryInformationCoderV1
+            }
+        )
+
+
+disoveryInformationCoderV1 : Json.Coder DiscoveryInformationV1
+disoveryInformationCoderV1 =
+    Json.object2
+        { name = "Discovery Information"
+        , description =
+            [ "Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes."
+            , "Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL."
+            , "https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient"
+            ]
+        , init = DiscoveryInformationV1
+        }
+        (Json.field.required
+            { fieldName = "m.homeserver"
+            , toField = .homeserver
+            , coder =
+                Json.object2
+                    { name = "Homeserver Information"
+                    , description =
+                        [ "Used by clients to discover homeserver information."
+                        ]
+                    , init = \a _ -> { baseUrl = a }
+                    }
+                    (Json.field.required
+                        { fieldName = "base_url"
+                        , toField = .baseUrl
+                        , description =
+                            [ "The base URL for the homeserver for client-server connections."
+                            ]
+                        , coder = Json.string
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = L.field
+                        , toField = always Nothing
+                        , description =
+                            [ "The Elm SDK always expects objects to have at least two fields."
+                            , "Otherwise, what's the point of hiding the value in an object?"
+                            , "For this reason, this empty placeholder key will always be ignored."
+                            ]
+                        , coder = Json.value
+                        }
+                    )
+            , description =
+                [ "Used by clients to discover homeserver information."
+                ]
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "m.identity_server"
+            , toField = .identityServer
+            , coder =
+                Json.object2
+                    { name = "Homeserver Information"
+                    , description =
+                        [ "Used by clients to discover homeserver information."
+                        ]
+                    , init = \a _ -> { baseUrl = a }
+                    }
+                    (Json.field.required
+                        { fieldName = "base_url"
+                        , toField = .baseUrl
+                        , description =
+                            [ "The base URL for the homeserver for client-server connections."
+                            ]
+                        , coder = Json.string
+                        }
+                    )
+                    (Json.field.optional.value
+                        { fieldName = L.field
+                        , toField = always Nothing
+                        , description =
+                            [ "The Elm SDK always expects objects to have at least two fields."
+                            , "Otherwise, what's the point of hiding the value in an object?"
+                            , "For this reason, this empty placeholder key will always be ignored."
+                            ]
+                        , coder = Json.value
+                        }
+                    )
+            , description =
+                [ "Used by clients to discover identity server information."
+                ]
+            }
+        )
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index 40886d7..3b8164d 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -83,6 +83,7 @@ static and hence can be passed on easily.
 type alias Context =
     { accessTokens : Hashdict AccessToken
     , baseUrl : Maybe String
+    , deviceId : Maybe String
     , now : Maybe Timestamp
     , password : Maybe String
     , refreshToken : Maybe String
@@ -139,7 +140,7 @@ fromApiFormat (APIContext c) =
 -}
 coder : Json.Coder Context
 coder =
-    Json.object9
+    Json.object10
         { name = Text.docs.context.name
         , description = Text.docs.context.description
         , init = Context
@@ -158,6 +159,13 @@ coder =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "deviceId"
+            , toField = .deviceId
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )
         (Json.field.optional.value
             { fieldName = "now"
             , toField = .now
@@ -275,6 +283,7 @@ init : String -> Context
 init sn =
     { accessTokens = Hashdict.empty .value
     , baseUrl = Nothing
+    , deviceId = Nothing
     , now = Nothing
     , refreshToken = Nothing
     , password = Nothing
diff --git a/src/Internal/Values/Envelope.elm b/src/Internal/Values/Envelope.elm
index e2f2b6c..c948215 100644
--- a/src/Internal/Values/Envelope.elm
+++ b/src/Internal/Values/Envelope.elm
@@ -75,9 +75,11 @@ type EnvelopeUpdate a
     = ContentUpdate a
     | HttpRequest (Request.Request ( Request.Error, List Log ) ( EnvelopeUpdate a, List Log ))
     | More (List (EnvelopeUpdate a))
+    | Optional (Maybe (EnvelopeUpdate a))
     | RemoveAccessToken String
     | SetAccessToken AccessToken
     | SetBaseUrl String
+    | SetDeviceId String
     | SetRefreshToken String
     | SetVersions Versions
 
@@ -298,6 +300,12 @@ update updateContent eu ({ context } as data) =
         More items ->
             List.foldl (update updateContent) data items
 
+        Optional (Just u) ->
+            update updateContent u data
+
+        Optional Nothing ->
+            data
+
         RemoveAccessToken token ->
             { data | context = { context | accessTokens = Hashdict.removeKey token context.accessTokens } }
 
@@ -307,6 +315,9 @@ update updateContent eu ({ context } as data) =
         SetBaseUrl b ->
             { data | context = { context | baseUrl = Just b } }
 
+        SetDeviceId d ->
+            { data | context = { context | deviceId = Just d } }
+
         SetRefreshToken r ->
             { data | context = { context | refreshToken = Just r } }
 
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index 08014db..fd3557c 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -39,6 +39,7 @@ import Internal.Config.Text as Text
 import Internal.Tools.Hashdict as Hashdict exposing (Hashdict)
 import Internal.Tools.Json as Json
 import Internal.Values.Room as Room exposing (Room)
+import Internal.Values.User as User exposing (User)
 
 
 {-| This is the Vault type.
@@ -46,6 +47,7 @@ import Internal.Values.Room as Room exposing (Room)
 type alias Vault =
     { accountData : Dict String Json.Value
     , rooms : Hashdict Room
+    , user : User
     }
 
 
@@ -57,11 +59,12 @@ type VaultUpdate
     | MapRoom String Room.RoomUpdate
     | More (List VaultUpdate)
     | SetAccountData String Json.Value
+    | SetUser User
 
 
 coder : Json.Coder Vault
 coder =
-    Json.object2
+    Json.object3
         { name = Text.docs.vault.name
         , description = Text.docs.vault.description
         , init = Vault
@@ -80,6 +83,13 @@ coder =
             , coder = Hashdict.coder .roomId Room.coder
             }
         )
+        (Json.field.required
+            { fieldName = "user"
+            , toField = .user
+            , description = Debug.todo "Needs description"
+            , coder = User.coder
+            }
+        )
 
 
 {-| Get a given room by its room id.
@@ -136,3 +146,6 @@ update vu vault =
 
         SetAccountData key value ->
             setAccountData key value vault
+
+        SetUser user ->
+            { vault | user = user }

From 50b10c64ca75d9a7c4b93cd850d46175ea83abd8 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Fri, 24 May 2024 16:19:13 +0200
Subject: [PATCH 16/36] Add makeVBA TaskChain

---
 src/Internal/Api/Now/Api.elm     | 37 +++++++++++++++++++++++
 src/Internal/Api/Request.elm     |  2 ++
 src/Internal/Api/Task.elm        | 52 ++++++++++++++++++++++++++++++++
 src/Internal/Values/Context.elm  |  4 +--
 src/Internal/Values/Envelope.elm |  5 +++
 5 files changed, 98 insertions(+), 2 deletions(-)
 create mode 100644 src/Internal/Api/Now/Api.elm

diff --git a/src/Internal/Api/Now/Api.elm b/src/Internal/Api/Now/Api.elm
new file mode 100644
index 0000000..9a1a0ce
--- /dev/null
+++ b/src/Internal/Api/Now/Api.elm
@@ -0,0 +1,37 @@
+module Internal.Api.Now.Api exposing (getNow)
+
+{-|
+
+
+# Now
+
+Get the current time.
+
+@docs getNow
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Config.Log exposing (log)
+import Internal.Values.Context as Context
+import Internal.Values.Envelope as E
+import Task
+import Time
+
+
+getNow : A.TaskChain a { a | now : () }
+getNow _ =
+    Task.map
+        (\now ->
+            { messages = [ E.SetNow now ]
+            , logs =
+                [ "Identified current time at Unix time "
+                , now |> Time.posixToMillis |> String.fromInt
+                ]
+                    |> String.concat
+                    |> log.debug
+                    |> List.singleton
+            , contextChange = Context.setNow now
+            }
+        )
+        Time.now
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 3874d16..fb3853f 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -98,6 +98,8 @@ type ContextAttr
 -}
 type Error
     = InternetException Http.Error
+    | MissingUsername
+    | MissingPassword
     | NoSupportedVersion
     | ServerReturnsBadJSON String
     | ServerReturnsError String Json.Value
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 5e2afa1..4ab3167 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -21,6 +21,8 @@ up-to-date.
 
 import Internal.Api.BaseUrl.Api
 import Internal.Api.Chain as C
+import Internal.Api.LoginWithUsernameAndPassword.Api
+import Internal.Api.Now.Api
 import Internal.Api.Request as Request
 import Internal.Api.Versions.Api
 import Internal.Config.Log exposing (Log, log)
@@ -51,6 +53,38 @@ type alias UFTask a b =
     C.TaskChain Request.Error (EnvelopeUpdate VaultUpdate) a b
 
 
+{-| Get an access token to talk to the Matrix API
+-}
+getAccessToken : UFTask { a | now : () } { a | accessToken : (), now : () }
+getAccessToken c =
+    case Context.fromApiFormat c of
+        context ->
+            case ( Context.mostPopularToken context, context.username, context.password ) of
+                ( Just a, _, _ ) ->
+                    C.succeed
+                        { messages = []
+                        , logs = [ log.debug "Using cached access token from Vault" ]
+                        , contextChange = Context.setAccessToken a
+                        }
+                        c
+
+                ( Nothing, Just u, Just p ) ->
+                    Internal.Api.LoginWithUsernameAndPassword.Api.loginWithUsernameAndPassword
+                        { deviceId = Context.fromApiFormat c |> .deviceId
+                        , enableRefreshToken = Just True -- TODO: Turn this into a setting
+                        , initialDeviceDisplayName = Nothing -- TODO: Turn this into a setting
+                        , password = p
+                        , username = u
+                        }
+                        c
+
+                ( Nothing, Nothing, _ ) ->
+                    C.fail Request.MissingUsername c
+
+                ( Nothing, Just _, Nothing ) ->
+                    C.fail Request.MissingPassword c
+
+
 {-| Get the base URL where the Matrix API can be accessed
 -}
 getBaseUrl : UFTask a { a | baseUrl : () }
@@ -70,6 +104,13 @@ getBaseUrl c =
                 c
 
 
+{-| Get the current timestamp
+-}
+getNow : UFTask { a | baseUrl : () } { a | baseUrl : (), now : () }
+getNow =
+    Internal.Api.Now.Api.getNow
+
+
 {-| Get the versions that are potentially supported by the Matrix API
 -}
 getVersions : UFTask { a | baseUrl : () } { a | baseUrl : (), versions : () }
@@ -95,6 +136,17 @@ makeVB =
     C.andThen getVersions getBaseUrl
 
 
+{-| Establish a Task Chain context where the base URL and supported list of
+versions are known, and where an access token is available to make an
+authenticated API call.
+-}
+makeVBA : UFTask a { a | accessToken : (), baseUrl : (), now : (), versions : () }
+makeVBA =
+    makeVB
+        |> C.andThen getNow
+        |> C.andThen getAccessToken
+
+
 {-| Transform a completed task into a Cmd.
 -}
 run : (Backpack -> msg) -> Task -> APIContext {} -> Cmd msg
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index 3b8164d..cded20e 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -1,5 +1,5 @@
 module Internal.Values.Context exposing
-    ( Context, AccessToken, init, coder, encode, decoder
+    ( Context, AccessToken, init, coder, encode, decoder, mostPopularToken
     , APIContext, apiFormat, fromApiFormat
     , setAccessToken, getAccessToken
     , setBaseUrl, getBaseUrl
@@ -15,7 +15,7 @@ the Matrix API.
 
 ## Context
 
-@docs Context, AccessToken, init, coder, encode, decoder
+@docs Context, AccessToken, init, coder, encode, decoder, mostPopularToken
 
 
 ## APIContext
diff --git a/src/Internal/Values/Envelope.elm b/src/Internal/Values/Envelope.elm
index c948215..9ecbef1 100644
--- a/src/Internal/Values/Envelope.elm
+++ b/src/Internal/Values/Envelope.elm
@@ -53,6 +53,7 @@ import Internal.Config.Log exposing (Log)
 import Internal.Config.Text as Text
 import Internal.Tools.Hashdict as Hashdict
 import Internal.Tools.Json as Json
+import Internal.Tools.Timestamp exposing (Timestamp)
 import Internal.Values.Context as Context exposing (AccessToken, Context, Versions)
 import Internal.Values.Settings as Settings
 
@@ -80,6 +81,7 @@ type EnvelopeUpdate a
     | SetAccessToken AccessToken
     | SetBaseUrl String
     | SetDeviceId String
+    | SetNow Timestamp
     | SetRefreshToken String
     | SetVersions Versions
 
@@ -318,6 +320,9 @@ update updateContent eu ({ context } as data) =
         SetDeviceId d ->
             { data | context = { context | deviceId = Just d } }
 
+        SetNow n ->
+            { data | context = { context | now = Just n } }
+
         SetRefreshToken r ->
             { data | context = { context | refreshToken = Just r } }
 

From 4f08dd1176a1798b208c3e0d13af8e8b130d88de Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sat, 25 May 2024 16:15:27 +0200
Subject: [PATCH 17/36] Add send message event API endpoint

---
 src/Internal/Api/Request.elm              |  34 +---
 src/Internal/Api/SendMessageEvent/Api.elm | 198 ++++++++++++++++++++++
 2 files changed, 201 insertions(+), 31 deletions(-)
 create mode 100644 src/Internal/Api/SendMessageEvent/Api.elm

diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index fb3853f..0f911bc 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -1,7 +1,7 @@
 module Internal.Api.Request exposing
     ( ApiCall, ApiPlan, Attribute, callAPI, withAttributes, toChain
     , Request, Error(..)
-    , accessToken, withTransactionId, timeout, onStatusCode
+    , accessToken, timeout, onStatusCode
     , fullBody, bodyBool, bodyInt, bodyString, bodyValue, bodyOpBool, bodyOpInt, bodyOpString, bodyOpValue
     , queryBool, queryInt, queryString, queryOpBool, queryOpInt, queryOpString
     )
@@ -28,7 +28,7 @@ Sometimes, APIs might fail. As a result, you may receive an error.
 
 ### General attributes
 
-@docs accessToken, withTransactionId, timeout, onStatusCode
+@docs accessToken, timeout, onStatusCode
 
 
 ### Body
@@ -89,7 +89,6 @@ type ContextAttr
     | Header Http.Header
     | NoAttr
     | QueryParam UrlBuilder.QueryParameter
-    | ReplaceInUrl String String
     | StatusCodeResponse Int ( Error, List Log )
     | Timeout Float
 
@@ -376,27 +375,7 @@ getUrl : ApiCall a -> String
 getUrl { attributes, baseUrl, path } =
     UrlBuilder.crossOrigin
         baseUrl
-        (path
-            |> List.map
-                (\p ->
-                    List.foldl
-                        (\attr cp ->
-                            case attr of
-                                ReplaceInUrl from to ->
-                                    if from == cp then
-                                        to
-
-                                    else
-                                        cp
-
-                                _ ->
-                                    cp
-                        )
-                        p
-                        attributes
-                )
-            |> List.map Url.percentEncode
-        )
+        (List.map Url.percentEncode path)
         (getQueryParams attributes)
 
 
@@ -615,10 +594,3 @@ withAttributes attrs f context =
                             |> List.append data.attributes
                 }
            )
-
-
-{-| Attribute that requires a transaction id to be present.
--}
-withTransactionId : Attribute { a | transaction : () }
-withTransactionId =
-    Context.getTransaction >> ReplaceInUrl "txnId"
diff --git a/src/Internal/Api/SendMessageEvent/Api.elm b/src/Internal/Api/SendMessageEvent/Api.elm
new file mode 100644
index 0000000..99b19e7
--- /dev/null
+++ b/src/Internal/Api/SendMessageEvent/Api.elm
@@ -0,0 +1,198 @@
+module Internal.Api.SendMessageEvent.Api exposing (..)
+
+{-|
+
+
+# Send message event
+
+This module helps send message events to rooms on the Matrix API.
+
+@docs Phantom
+
+-}
+
+import Internal.Api.Api as A
+import Internal.Api.Request as R
+import Internal.Config.Leaks as L
+import Internal.Config.Log exposing (log)
+import Internal.Tools.Json as Json
+import Internal.Values.Envelope as E
+
+
+sendMessageEvent : SendMessageEventInput -> A.TaskChain (Phantom a) (Phantom a)
+sendMessageEvent =
+    A.startWithVersion "r0.0.0" sendMessageEventV1
+        |> A.sameForVersion "r0.0.1"
+        |> A.sameForVersion "r0.1.0"
+        |> A.sameForVersion "r0.2.0"
+        |> A.sameForVersion "r0.3.0"
+        |> A.sameForVersion "r0.4.0"
+        |> A.sameForVersion "r0.5.0"
+        |> A.sameForVersion "r0.6.0"
+        |> A.forVersion "r0.6.1" sendMessageEventV2
+        |> A.forVersion "v1.1" sendMessageEventV3
+        |> A.sameForVersion "v1.2"
+        |> A.sameForVersion "v1.3"
+        |> A.sameForVersion "v1.4"
+        |> A.sameForVersion "v1.5"
+        |> A.sameForVersion "v1.6"
+        |> A.sameForVersion "v1.7"
+        |> A.sameForVersion "v1.8"
+        |> A.sameForVersion "v1.9"
+        |> A.sameForVersion "v1.10"
+        |> A.sameForVersion "v1.11"
+        |> A.versionChain
+
+
+type alias Phantom a =
+    a
+
+
+type alias PhantomV1 a =
+    { a | accessToken : (), baseUrl : () }
+
+
+type alias SendMessageEventInput =
+    { content : Json.Value
+    , eventType : String
+    , roomId : String
+    , transactionId : String
+    }
+
+
+type alias SendMessageEventInputV1 a =
+    { a
+        | content : Json.Value
+        , eventType : String
+        , roomId : String
+        , transactionId : String
+    }
+
+
+type alias SendMessageEventOutputV1 =
+    { eventId : Maybe String }
+
+
+type alias SendMessageEventOutputV2 =
+    { eventId : String }
+
+
+sendMessageEventV1 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
+sendMessageEventV1 { content, eventType, roomId, transactionId } =
+    A.request
+        { attributes = [ R.fullBody content ]
+        , coder = coderV1
+        , contextChange = always identity
+        , method = "PUT"
+        , path = [ "_matrix", "client", "r0", "rooms", roomId, "send", eventType, transactionId ]
+        , toUpdate =
+            \out ->
+                ( E.More []
+                , out.eventId
+                    |> Maybe.map ((++) ", received event id ")
+                    |> Maybe.withDefault ""
+                    |> (++) "Sent event"
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+sendMessageEventV2 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
+sendMessageEventV2 { content, eventType, roomId, transactionId } =
+    A.request
+        { attributes = [ R.fullBody content ]
+        , coder = coderV2
+        , contextChange = always identity
+        , method = "PUT"
+        , path = [ "_matrix", "client", "r0", "rooms", roomId, "send", eventType, transactionId ]
+        , toUpdate =
+            \out ->
+                ( E.More []
+                , out.eventId
+                    |> (++) "Sent event, received event id "
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+sendMessageEventV3 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
+sendMessageEventV3 { content, eventType, roomId, transactionId } =
+    A.request
+        { attributes = [ R.fullBody content ]
+        , coder = coderV2
+        , contextChange = always identity
+        , method = "PUT"
+        , path = [ "_matrix", "client", "v3", "rooms", roomId, "send", eventType, transactionId ]
+        , toUpdate =
+            \out ->
+                ( E.More []
+                , out.eventId
+                    |> (++) "Sent event, received event id "
+                    |> log.debug
+                    |> List.singleton
+                )
+        }
+
+
+coderV1 : Json.Coder SendMessageEventOutputV1
+coderV1 =
+    Json.object2
+        { name = "EventResponse"
+        , description =
+            [ "This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room."
+            , "The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event."
+            , "https://spec.matrix.org/legacy/r0.0.0/client_server.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid"
+            ]
+        , init = always SendMessageEventOutputV1
+        }
+        (Json.field.optional.value
+            { fieldName = L.field
+            , toField = always Nothing
+            , description =
+                [ "The Elm SDK always expects objects to have at least two fields."
+                , "Otherwise, what's the point of hiding the value in an object?"
+                , "For this reason, this empty placeholder key will always be ignored."
+                ]
+            , coder = Json.value
+            }
+        )
+        (Json.field.optional.value
+            { fieldName = "event_id"
+            , toField = .eventId
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )
+
+
+coderV2 : Json.Coder SendMessageEventOutputV2
+coderV2 =
+    Json.object2
+        { name = "EventResponse"
+        , description =
+            [ "This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room."
+            , "The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event."
+            , "https://spec.matrix.org/legacy/r0.0.0/client_server.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid"
+            ]
+        , init = always SendMessageEventOutputV2
+        }
+        (Json.field.optional.value
+            { fieldName = L.field
+            , toField = always Nothing
+            , description =
+                [ "The Elm SDK always expects objects to have at least two fields."
+                , "Otherwise, what's the point of hiding the value in an object?"
+                , "For this reason, this empty placeholder key will always be ignored."
+                ]
+            , coder = Json.value
+            }
+        )
+        (Json.field.required
+            { fieldName = "event_id"
+            , toField = .eventId
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )

From 7a75bffbfb89582624a319dea355edb8a2cb3c72 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sat, 25 May 2024 17:03:42 +0200
Subject: [PATCH 18/36] Add send message event as Task

---
 src/Internal/Api/Chain.elm      |  8 +++----
 src/Internal/Api/Task.elm       | 40 ++++++++++++++++++++++++++++++++-
 src/Internal/Values/Context.elm | 13 +++++++++++
 3 files changed, 56 insertions(+), 5 deletions(-)

diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
index 3f47d26..826cc52 100644
--- a/src/Internal/Api/Chain.elm
+++ b/src/Internal/Api/Chain.elm
@@ -1,7 +1,7 @@
 module Internal.Api.Chain exposing
     ( TaskChain, CompleteChain
     , IdemChain, toTask
-    , fail, succeed, andThen
+    , fail, succeed, andThen, catchWith
     )
 
 {-|
@@ -27,7 +27,7 @@ avoid leaking values passing through the API in unexpected ways.
 
 ## Operations
 
-@docs fail, succeed, andThen
+@docs fail, succeed, andThen, catchWith
 
 -}
 
@@ -127,7 +127,7 @@ andThen f2 f1 =
 
 {-| When an error has occurred, "fix" it with an artificial task chain result.
 -}
-catchWith : (err -> TaskChainPiece u a b) -> TaskChain err u a b -> TaskChain err u a b
+catchWith : (err -> TaskChainPiece u a b) -> TaskChain err u a b -> TaskChain err2 u a b
 catchWith onErr f =
     onError (\e -> succeed <| onErr e) f
 
@@ -173,7 +173,7 @@ onError onErr f =
             |> Task.onError
                 (\old ->
                     { contextChange = identity
-                    , logs = old.logs
+                    , logs = old.logs -- TODO: Log caught errors
                     , messages = old.messages
                     }
                         |> succeed
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 4ab3167..d19ca59 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -1,4 +1,7 @@
-module Internal.Api.Task exposing (Task, run)
+module Internal.Api.Task exposing
+    ( Task, run
+    , sendMessageEvent
+    )
 
 {-|
 
@@ -17,6 +20,11 @@ up-to-date.
 
 @docs Task, run
 
+
+## Tasks
+
+@docs sendMessageEvent
+
 -}
 
 import Internal.Api.BaseUrl.Api
@@ -24,8 +32,10 @@ import Internal.Api.Chain as C
 import Internal.Api.LoginWithUsernameAndPassword.Api
 import Internal.Api.Now.Api
 import Internal.Api.Request as Request
+import Internal.Api.SendMessageEvent.Api
 import Internal.Api.Versions.Api
 import Internal.Config.Log exposing (Log, log)
+import Internal.Tools.Json as Json
 import Internal.Values.Context as Context exposing (APIContext)
 import Internal.Values.Envelope exposing (EnvelopeUpdate(..))
 import Internal.Values.Room exposing (RoomUpdate(..))
@@ -128,6 +138,25 @@ getVersions c =
             Internal.Api.Versions.Api.versions c
 
 
+finishTask : UFTask {} b -> Task
+finishTask uftask =
+    uftask
+        |> C.andThen
+            (C.succeed
+                { messages = []
+                , logs = []
+                , contextChange = Context.reset
+                }
+            )
+        |> C.catchWith
+            (\_ ->
+                { messages = [] -- TODO: Maybe categorize errors?
+                , logs = [ log.warn "Encountered unhandled error" ]
+                , contextChange = Context.reset
+                }
+            )
+
+
 {-| Establish a Task Chain context where the base URL and supported list of
 versions are known.
 -}
@@ -147,6 +176,15 @@ makeVBA =
         |> C.andThen getAccessToken
 
 
+{-| Send a message event to a room.
+-}
+sendMessageEvent : { content : Json.Value, eventType : String, roomId : String, transactionId : String } -> Task
+sendMessageEvent input =
+    makeVBA
+        |> C.andThen (Internal.Api.SendMessageEvent.Api.sendMessageEvent input)
+        |> finishTask
+
+
 {-| Transform a completed task into a Cmd.
 -}
 run : (Backpack -> msg) -> Task -> APIContext {} -> Cmd msg
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index cded20e..aec1048 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -6,6 +6,7 @@ module Internal.Values.Context exposing
     , setNow, getNow
     , setTransaction, getTransaction
     , Versions, setVersions, getVersions
+    , reset
     )
 
 {-| The Context is the set of variables that the user (mostly) cannot control.
@@ -53,6 +54,11 @@ information that can be inserted.
 
 @docs Versions, setVersions, getVersions
 
+
+### Reset
+
+@docs reset
+
 -}
 
 import Internal.Config.Leaks as L
@@ -317,6 +323,13 @@ mostPopularToken c =
         |> Maybe.map .value
 
 
+{-| Reset the phantom type of the Context, effectively forgetting all values.
+-}
+reset : APIContext a -> APIContext {}
+reset (APIContext c) =
+    APIContext c
+
+
 {-| Get an inserted access token.
 -}
 getAccessToken : APIContext { a | accessToken : () } -> String

From e6257d8e38769bc18b0fd0bc744faeb2425c5861 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sat, 25 May 2024 19:47:15 +0200
Subject: [PATCH 19/36] Change VaultUpdate to API Backpack

---
 src/Internal/Api/Main.elm | 57 +++++++++++++++++++++++++++++++++++++++
 src/Internal/Api/Task.elm |  4 +--
 src/Types.elm             |  3 ++-
 3 files changed, 61 insertions(+), 3 deletions(-)
 create mode 100644 src/Internal/Api/Main.elm

diff --git a/src/Internal/Api/Main.elm b/src/Internal/Api/Main.elm
new file mode 100644
index 0000000..95b9a3e
--- /dev/null
+++ b/src/Internal/Api/Main.elm
@@ -0,0 +1,57 @@
+module Internal.Api.Main exposing
+    ( Msg
+    , sendMessageEvent
+    )
+
+{-|
+
+
+# Main API module
+
+This module is used as reference for getting
+
+
+## VaultUpdate
+
+@docs Msg
+
+
+## Actions
+
+@docs sendMessageEvent
+
+-}
+
+import Internal.Api.Task as ITask exposing (Backpack)
+import Internal.Tools.Json as Json
+import Internal.Values.Context as Context
+import Internal.Values.Envelope as E
+
+
+type alias Msg =
+    Backpack
+
+
+{-| Send a message event.
+-}
+sendMessageEvent :
+    E.Envelope a
+    ->
+        { content : Json.Value
+        , eventType : String
+        , roomId : String
+        , toMsg : Msg -> msg
+        , transactionId : String
+        }
+    -> Cmd msg
+sendMessageEvent env data =
+    ITask.run
+        data.toMsg
+        (ITask.sendMessageEvent
+            { content = data.content
+            , eventType = data.eventType
+            , roomId = data.roomId
+            , transactionId = data.transactionId
+            }
+        )
+        (Context.apiFormat env.context)
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index d19ca59..1a8385d 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -1,5 +1,5 @@
 module Internal.Api.Task exposing
-    ( Task, run
+    ( Task, run, Backpack
     , sendMessageEvent
     )
 
@@ -18,7 +18,7 @@ up-to-date.
 
 ## Use
 
-@docs Task, run
+@docs Task, run, Backpack
 
 
 ## Tasks
diff --git a/src/Types.elm b/src/Types.elm
index b461611..174c180 100644
--- a/src/Types.elm
+++ b/src/Types.elm
@@ -16,6 +16,7 @@ safely access all exposed data types without risking to create circular imports.
 
 -}
 
+import Internal.Api.Main as Api
 import Internal.Values.Envelope as Envelope
 import Internal.Values.Event as Event
 import Internal.Values.Room as Room
@@ -50,4 +51,4 @@ type Vault
 {-| Opaque type for Matrix VaultUpdate
 -}
 type VaultUpdate
-    = VaultUpdate (Envelope.EnvelopeUpdate Vault.VaultUpdate)
+    = VaultUpdate Api.Msg

From 42ca8f6c9c02e568cb7172b5534c26642f3c0483 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sat, 25 May 2024 19:48:29 +0200
Subject: [PATCH 20/36] Add Elm SDK logo

---
 docs/logo.png | Bin 0 -> 7847 bytes
 docs/logo.svg |  16 ++++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 docs/logo.png
 create mode 100644 docs/logo.svg

diff --git a/docs/logo.png b/docs/logo.png
new file mode 100644
index 0000000000000000000000000000000000000000..abe1a496a103e52a57456043a41d292abfaef7b0
GIT binary patch
literal 7847
zcmeHsYgCfkx3`r$HFqjrcA2{IZe(F(WsssI-Y_AwGAlJ{m)purfxIMIxC>Cz+-YK=
z5@pa$EA6JDyTsfUDSyQ*E!|lnU}|1S!O(Zvf4pamGsbzxc|V>H=L3Uvna}gg^_z3e
z-<)f)cHje+FI%-tM@MIQP#`u`M`zKLj?Q8){iR?;{4V<__%k>W7(v!qq+hh~TQp!=
z>;?ucDSmq>VF`yR$uUWXbdr;k;c>^0k`Kn5I0R2fioG)Gxk^Xp*Ns6~%+3_f$cMNK
z72&l0@p(nVwr#e{bE?e^Dsjz0YYdKjT)nt%B_!z1pEn&Jy!6q}`RfeifVHl^{<G1z
zW4rIB#B^>ru=vF<t4c(ReQmGe+)p}LEOOrvv&rrk)-#BygUOq~544GGwH<-gstL|4
zXUMah@VfrV2U_Oz&X5q=tfGOMaCy5ka@9s}@A>J``pLG0Z!{wv<@%ECZ8#Y1!5F#l
zLMZA`<(RLI&J`EAjzkBecY3KlN@t^wWD$1}-AHG-2}S4k)7&LKOLT2?R@wevk?m<I
zVrz(Z%3pd(4I_W`!YcIMH%t#3r@vOyU=>}8^IctCG)Q9qNMXmw?DSaX*QGiRo4vg=
zCttpNsi#4=#B2}6xxEwn^nAWj%_#}3jnBxK`=-!aP_T&kM0>g_;x%%tS9DOvr!y4S
zLU6vgb#vl;*k<b4hWh$?m!b6G!<%(Zzn<LsU+VV%q5l7h{MTmvpN7kUj_F0rw~yj`
z5#D<<KA$b<VA0CYVrKgKGruH`MeX0ee<X>bxN$dj$a)3ksR3-Fc*Tm7jkROsTnzB~
z)N9F6QBfI`HuW30@y6Zlv&|mbV>orb{WdA`mUW`aJLOBF+Xzb8JMF3Hwy*F=e%kt^
zg83oGu<p?}T3$~@VP5%m=j3ApbNrctQ%>l#uHHGvp(!!*iEylXN2B@ppH&~yhb)4F
zgG=Y2eHjy@(Lu0`yRSkHY}OUp^V-r1vo!-jbs4*)F)6yj4N##nKGPJ|mdotbpbb@K
z)B`w)>r{bjU&g`fDSMfyqqa()Ke*w+(g<Usp01DtUcf}<Ug3u07e*N4rc;YdsBe6w
zF&tf*Ew)r;LR|^Pxc#2k{$_~s)J1uRA!vG{pN1jB(DgM#LG5EnVbX~F1s&(r(UB4M
z%7TG)k;fNbaghHs$W#X^vUvEa(6mIBAi+DXn<wz~(iN^J@|W?9UYku>now`qDkU2+
z<pmQ&Lf?x^*UYHDU*fj!Xce^IbtcBfV{I-w%H21g*9??(Mo9)o8C4m>E3l=TfLI=P
z+BQJkUQzEWRTK$)!*qo%JiG;Xz)tREO1*WVBd0NAvNXJinU-B69dtgCLho}Y@=b?|
zn3{p-%X|H74*N=6ZIwH>Nn`%f6`Jz!PFS0z04aOr&Vl->{`z@`_Ka`ULv_{`)YZWf
zR|lok&U>0|mZ|h+qJCy@!vm!^vjj~S^wTPC5Tkoe^%&N@x1hcWkjAVAm?BAN`{;Gb
zsbFc0zOFEdhqrm@=f$6T0r!Zxqf67l`O`K{g!z>|gqf)-E*?+e3z}pG8XsWCu_*O7
zw`|l=7v&CD4Ag|kH=4$3b1N!>if{9b0H#a+tp~zmZ2sN?mbBB@QWO&<#Y*&W3kvzJ
z)200d6nbB$@{1hJMh!bCcPzm`pI9Tx?Xjh0gF|SUY^xX1D9uqG&o-m3`D#sM%;~3X
zT^8Wg&_4)&ZAz81xQ{CiNI%8dDer{b7w`-FC4<g2SV=GVGB;4Vg3zOd6B)i{Q=3_+
zO(s;f9VVez5VnNKu!KxKvdBpjzfR>@A9Yf$UqbI|uqV#{t=Fe<BF5TaZI+o$C7Mu=
zeC0H%O0`f3b+xag1sE@~P5q8%bVy(GgozTG{TK}ZqpgA=W_R*a17AD&Cr9N}<xXkw
zFDD}%mAM7n{O<kOFMHlsQ}-2L`{BKm07<}Fzw3eHQA9q0XY|2js=$nT#8!DPm7XUE
z`-#YS4WWR&xL~js2B_&0e_CAoo5>#r1Acx`w^T0>61S=O6t)!2Lft9nk^%5bc}Bwy
za_c_@VOgBXYAAWK6uJ(gGEa;tz9R9!4Bf+);=XTV3EbdcYWGOvSX?sphYRIxlOS(d
zVzrmx$#ItiO%Q$5(a;S_GBO7RFgdZ3-gdbtTf?YIYx(sDCPsE4&KK+dwbjkd%^Nk8
zezaKcNb5J@zHr{Ngv%3NnNd$`?#&8m<v-Ovs!1LmP7?Xi%CA|#NYew)EAN8lNm#`v
zmy4}7SDwtnUN@hc=<v$SIF&edF{*Dmf_t=5YPkjz>x(VD#6tNx%8#)Hoe!GNMy?p*
zM0HOi58Tx)4S`ViKB7!4FJ__u&c`kbIyVqwSL>GInW%MU)N?)(Mef27|0EsH|M8kl
zW)zf*vSz#VW)U|`v{4y+ig3!WKlV%|a0XLKb`XGZB7uckXG%TdAUAhX)*MrOwt@#C
z8y}64LDX?y!o$D%h0sU430wvf>-_I`%BQq{d<-;Vrmcm)|5^rroKUxUow#CVKlVGe
zxUR+}VE;Um@#1OX?!NxP(Sg=Fx5%E!>wm){I|ku*id-p&Z%K<Z4(+c`g_Av<?2jvw
ziXRnbs|#JJ8b`U9Bk0Vr-U>|&=7g=0h4Jvwx}{M}lzY*^p-W>e<WGmxqY<7!Mi0aH
zaJq&rA83V)e}E@j3M^aFanh1a7=CyKZ|*C3B3u^6vE-qTdo?eNJ7M_AJUqnfhmZvZ
zL^C{p4NEOuQ0_G>s&g9o`xS23aw6ZXs5$+J;(BB;3*}^h+6AF*uIOMBessEk7mnZP
zjCwa%De$QD5l7FI2#xn?z7K7s`GpYq<`_N>X7AV52vgqq*Tcw`^j>IR%J<*Yqw`ZE
z(DIr4@g99C+r#T1JiH|x{}6=4+LN!=jaSv?sXvg%8OVWLX8LGke{iF#Qi_+{+zSHg
z;1&lgO^(V}8+uny$4oEiezTk#CJZHde|-Oa7ZF-xk0_6RI*UP+zZ~jQ3BR<A?F^P!
z>Jo=A+0C9woQ#<&oVS}&ij!FWOdN^=NZi^l4HNwod3*z$-o|BW<SOgQn;VGH``=QZ
z3aW|pwttwK-*=f#!ianzU>kC+fztUVTA36sy}c_!4E!lgAC*;P-*F_b-$W&&)weAm
zLp7l+4Ut}%9$)uZG^sqVE);ZnV`9JJ0=xpg`xV#SdFMkyJAuF|iQ5L&G_)m58hiWz
zq8#U)**!f_8$BoW$RA1CC5<q|@GW_Lxo2K{M|)2<)sO8Z#=g-ly}{J{v)oG-=69{k
zAqn^vMiQ4NFn-hW*z=Ywwz_KHeL=fly}vYdJ%%5|LvNWDeV?j--*uoJQEo~->@NX3
z+Svd0kIptpT+c>j&Z)AgTkvE*q5C0HLw!2UX<;tgjB>fyKJ@z3abgwzDLY^;HZuOC
zV2{+H<&~ceCe|D)L><gg?<^3wmDUeyd3jv-RlKP4_g|zdhccejCh!HFn=r9Ev;Aq!
zuSAv4-X6@zH;>IhMVe9k`Fo_9c9|j4eEBMb_h~^V0ux(^rO7JaO$buT*xpP*ryVA?
z21`3E`W}ca&C^F+b5=I9)PVGDOep>YX%1u((D~*diQQ<vrlZeA3ovlVOS{VMSG77H
z1h^ifbDM;r*uCc|PX!5kpRxHa$qys$(uw84igaQ^F}G<Emewh%H$2O0Na<J(HBp^3
zKzRl#1bpUv@8EGiQGGD1ZI0NWMG<4~>e?7x{Y~15<Gec{ZLU9UtzP@@L0@V2>gKVW
zR3xu$uK~*Xi~#DF-QPd)_e^)>i|^`kO@d3CTfa5}(O531{)KK7V5ejdSIb&HxAGkZ
zVrzSjofVKb(v3hCV{9)Ino#qwl9=;YZ4{}`l{j=l*XB*kDpj+PukD2=>zPpzRlrRG
zUiM;XY%m4$yUt91C+ERsyGs1E&E@mo6C+3Ar8Tq5h)`z?WBJNRpeYVH5us>t88xTc
z>)LESwvo7E@)ipfMmM^$W25pWy_mJmWHP>7n3%&(4wkY^C~s@b3qn7?T9JSnSspoB
zb^<?_Rz-9(pR60r_Fje<;|Lt&l7hm?t(RG~Y~#?p^xfZQK9;Ta2&Eg@9I;oD&?gin
zJTxBktSI2?kVDsgh1`xD?O2XsEDmiO+tWktv8sE|!ALU+;(eiTC30}mS9;q)z9SH?
z9$5l1hWON-o{c_YuPefE9@?31^wV-jrPIMVQRU`$tBFuU4CDEl{91NCU66l<+w}9!
zRa6Ajf|yXsZOYyG3usp)5ebkoZJ#@aVR_3D=yT){ui?qPVH|M`*gIEcO+~n1g&}k!
zFF8y}YFmUAZUSwXrHVP@ZLE>Dh&WlSv|wGEw8F5A*@3>h^Odh&o3*t@6V!`{^KUN&
zG#iRIzOGi(DlK{|crX}}FpN^VlwD~=JT@f+A>q9b23~Tm1-0ikqCOgDV`;}9c1~~l
z=WEAr8{U0QCcJv}D!&cc-!ph-?*rP{o1(8FW=9Jh`f6(K4Uf>uKLv{F6Jcl@W9`Sr
z_lX)s@;6%H{UDf)cggnAw<0Y8VkN+`Tvc$ETK{v3Kg*R0a=xqf5B(#>0a&SCu;l87
zhkl?PDAfy+T;28%tL<ZFI*ZcNu{7XFYr2x9#!R)D2DQY?Oof3^1bd>1E6Ae`$}Bti
zj;9d;kzyoMU<`JQ&UNPFbt4}%H#+hiWY(7i;RH#HZIWnTF!&J2|J#|+@~;NOs*BvF
z)1R4-;e9o#JEpzKA1t8D5JU2^vav1WyawZE&vb3hIkxBx;d`_S``+7=D_%Ss>sV_1
z?O{<+#=d^WKL_YWz6GDM6rVpdK3Vzn?|q@8DQ`YCLT*no(uQ}jHOh%}&iKbz&cq5D
z^p7k9)XzRI;{saQgb)zw8p0+LS6;7zx3`p#qTDcymld3oqSm^(5CxksvhWr}34zyk
zMwG4tmc4nHO^8(IW=_1`=#jY>n||t2esGZ}-F5+ya54X+=j3>Q-cz;vHfhUtu^tux
zM_b^MfDo~s{{o_-g-(!IFK_|s1-cCI6YJq5S4|(jSm<EHdfO#e7dw#}#xzrZL%(bv
zqCQ+<r#wIGDTCPyXTksvR({*E0mEphNT+rq=AS{Y2Z-ioDA{lCkM&HA)%Bb=QTbc2
z)T!mQ;~xqp4QqQo|E+7IDV*q1T=&k1>qZc6kC!mFsLEQH(T%j&G;;VXgxANe^1pLZ
zlT<m~;u+P|<s9H5mlQ{czDFSkx^Y+<T81|!LLUH`viqODgf;ed9mo!JtDQ4!w3Af>
zQHJG<^jlbImFFyf{;|M#_kA|MF!Sc^kT-Zq%$qbOAStpNBH;qJX{~A{pgX7+BB7Am
zbZ4i@LT4Q!femH~bJUr6)E^K8h^<`YJNCX~&v(B50yvVX*4IZB?o0%nD2#^<xRTID
zbfb!&Z9&4)cf)+V$oh6{wt5Q?S<ht?K3J)u6-kq)1@l$#WF!g!g<=?$%h$`okOS+^
z@-qCH8Zk(JQp>+X8(}h)DMj9KdLgnm?cN}RD2gKEJG_AW#vhtFBcL7_hS7EA?Y%6p
z2ICyIgZy3)Y~a?Ox7r8rgFg&}{_(J_46BbihP%mbnVZ=@Wet{9)z^1$_or4;9=B=f
zc{`wK)Lo%*#Cd-Gd<6e}M;DiE45G)<T-d^l4Ps~!h`w>TAhUoZJk|D0-Htq-tvSa;
z>Om-b7>JhiHT*rMswftc;V8f7|I@*~+3I)Qw|7dz!#_=#s2pJClUA9*Vg}e&%a^r$
zFRa`gdlM`5p1Kn@w_j>}l<<_@;#%8t-5Zcaas?ZDS<o&nW88TW*35B$P_{g9?R-8O
zPs&K)MRC~GAV4x)WJev9%}nG`XZeZWNey^j9}*E83HZucX62|Xg^=HbNIrtya4{*n
zqBr?QGu$HpM9NrSU7JxCnN2IC*U(?PFLHFZzxdsH4C53twPl&VHuraT5FT&nqnN1(
zUc+I~G(a8fP8DZTLNrJ3d!wNa`2b^R5xdg>aCGQ(SDYyQ5E^X-F^r6V<Rdi>7AtbO
z?l@S7#r=E3>4<V0qBoP>3B$xvvYXT4=oO?4EH49!;FIZX0`v2!*%tv7mIzvkaiZ^j
z-TgDYcCu^E^4xRm?t>!Ye1~$b$R0s}MfG(#H#y34>FjQofMflS-G$d)y?%LZuA)op
zO3+G>gqe)+EK=JU-BMXaVED1<w_V!mcg^*N2`hu7&71*{Fohf}a~P`J++0t-3j$t=
z0frwzLa)9HB3p?iNRmkCz`G!XmcTH4Q1kwN7Yo`*3?D}7`{PgId^J4T*jKDL%kBIb
zk$@`@@LP{41UX0{gmT$d7NYc2hI?zJR}B4yf#UYr&*#Sg^4lbqo`{5=9lWTuGDu=Z
z_?4OviRB}Xx2^2;siuZfMQNnbNkB>bW%RZagWu0oT%4atM?lYZhXY>YucEiDXQ@|q
z0c-Ks(A&N;)$A@)&_>bQ?lF;Cuz;I?a^0;-ZCXusEjw%-CUzx&uXd`tIbCwt1_&OZ
z<F&YE&z#gHhfP)H<9>*R%I5>_h37yb*g3a(fGVT+ziXVR89g|6cKRF}<Xil`u;$rj
z&ZafLsI+Q30?cf({_gD%CX+oy)7es3IH2tX6>}0I)+VZPthVqG=VEk!*FRkZZ<Va_
zk-doXVE@%H8$@hV(*7r7wNsT1`H8DZ_&7R#mxvQ`dp+=|wfd+o6EZ4{C@sE38m%XM
zc;YLDg-CAF*_}_9@fvE($^9A6&xZ%(tx%;Jy}(EmrR=cn`GBYnhe#Af?6CdDpslf$
zPx*^WN-Tlh6gk{ZLqx3XunAZ&fsTjvxyYvMTh7i_hO8)J|3cO{%f&r|!G?9wcCsnw
z=3yLG+n#Z9jDXF%8#(qIq-@m`b;tA3Zi>xhm-W1ph@)C<qUul8JdehAOel~o9(C`}
zJ~X8quGk|ci@ZmVT!g?(RIY7l1Ic+M`_Q1^&*HiplJKS2(sTN#3Ko)TMqOnmFQlly
zfzp(T>~b|%749YkLqL>UVH6;N4Ni<0*1_dTJH)VCKGI|kO_@x-QwCFt>D(|n+kHE)
z?X&^Nj>+fNH4lFq*}ftf`D3or3Bk9hvY?*xmnd*Uh{jLeH$XI>3Y1!c(#p_})bPN%
z+>D&&to->Lw>pA^AI6qqOemXu#g>Ldej2^)+;!_>7Sh2%xidr(@wo8QgXW9L!W*wb
z5V7D;?1%wsICPCHxhiGz)+{^a&LBxd^`8g=a*kMBw`0$JL4aufOH%Q;3FQq|{L!{b
zsI8?06=!X2L#yg84jv+cP*Qr$l)R;e^J!CLfHpgGPBg|sS=q_03)oEsEYw32iczpQ
zCLUY5N*~2=l-)z~@cp`_SrwF<>?REhMKh)Ry1F9xaXF>wXdTC#`~oWlRwa8Q7@%;c
znNUXUWD?jy!DEA9Y)i`PexDIvTk|SpAwQ;l5m{%yguzXyhcOaB;4z>Ek1(0KZ%Sr^
zI&C8c>VRN?3faj(^OlL6!bxF%k^o1)2CVpMCJ%2wN1MVXoWQwdboZdlru#aen0p8w
zzFU{3i)&6#jS|PWV@u%%X`jHBv7d`6u3PWV!-wk%V@O6#7sB?Rm~Ep(6knP4^J*!s
zdtVVn?^}&v#I!=H;HIjgK|WKnML#V|WPL73`tD~;LN2@M9zexOz8pgSJxfpxq4(({
z7>}5!VJCU~lRe_AUKPBCBryUcueKOyL(XHjFSYkxVGxY8LZ)WSllIZgPv}KQA0rt#
zoXC`hDUXCndmZFWPO|m((^xOK1r>M~<K`s0zt&wlGN^uHC$hffq_k#njR^(p_JHr*
z%$b|;<TIlz6azeFFFP$D2h!2jB%}8(0rhG9568g~4o<?rh|gqIY{~3zOQ{l=*~xuv
zWq%bMbG1-ekMkqrL(90~YyI{+%Klnq&eAA9v%w-yfHT8Tksm-Ys(<hX+qV--`>ZS6
zMlw2fL6FbphWm@pgqW%dOsBG$NC|`pwZl|l3)q?VUc1FHpt$=@SGc&D)L<`LpTtAk
z)BCEQBj)QOM;B++!~-451&;}mQ{a2K_1mSrE^=C{B9dezz98_xOJ*;0);%guZ?dWd
zK679>Rv1G^A0-)qQ%V4GwWG|(1}ntS(XJ#Tsh`x!L0)Yu^C`{t^Rhp#JaX|NWU51C
zE!YR5_(m6{yR+P>Vup&)Tl&wT*~;_N$(E|y?Ha}W;|)mJ&4N#_BIA>Oi`!80`Fvk$
zYO4BQ$f138o+f~JeTc})w@Js3<@{|my4dPsC@Nz^$@}}P+46y9G+UANYIt*ST|;Q>
zNpMIivSwQnp=&W!9QG1-7iE^C+`^2^^#El#Jqm`<O9Mmpatl*3cNGu4k{)G=(7Odv
zb6dH^(~-+l7fD7t<5sCEu3HsN7>BWXD}%g|9&R$9=Foad|EB>OFNz=3uV-st8Dv~?
zCC4K`^mtTjxPxz=8QZ^&Q|B~rxgr1gl2k>wj=ZEe<0l>a=VRcO%HaQfOZ7kPI^(~&
zRQq3b|KnE5nFiI-*$X_;+5XpzzZlLfHp%Y|I<1gHYH+h?Ha7eDw+Tszx9qnKt>BQ=
zB@~w&|IOs={`Bt1WbJf=@gg6aJg;wWTkhVuQ@_TZbo}^e3}pO*VkoJtB|vmvFJ0~H
zFz{r_acD8Q!L1fnanNC4W(j)!0yAX~i(KW0Qxv|Ax;mf3@tD;5Ady4)et&S6m_Q(|
zuCDnZFyUHzlEVlNM$NbZSKIveH>Ll{sBEmrY8H((xY+ucFpFNIqhfD&?%x{`ks8}S
iwEE*{-Pl~;ydEdct$!ZdKmwP{IzfJTY~{8C^#21!Nl~T%

literal 0
HcmV?d00001

diff --git a/docs/logo.svg b/docs/logo.svg
new file mode 100644
index 0000000..0c3b565
--- /dev/null
+++ b/docs/logo.svg
@@ -0,0 +1,16 @@
+<svg version="1.1" viewBox="0 0 27.9 32" xmlns="http://www.w3.org/2000/svg" xmlns:cc="http://creativecommons.org/ns#" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+ <title>Matrix (protocol) logo</title>
+ <g transform="translate(-.095 .005)" fill="#040404">
+    <path d="m27.1 31.2v-30.5h-2.19v-0.732h3.04v32h-3.04v-0.732z"/>
+    <g transform="translate(13.95 16) scale(0.03,-0.03)">
+        <polygon fill="#F0AD00" points="-280,-90 0,190 280,-90" transform="translate(0 -210)"/>
+        <polygon fill="#7FD13B" points="-280,-90 0,190 280,-90" transform="translate(-210 0) rotate(-90)"/>
+        <polygon fill="#7FD13B" points="-198,-66 0,132 198,-66" transform="translate(207 207) rotate(-45)"/>
+        <polygon fill="#60B5CC" points="-130,0 0,-130 130,0 0,130" transform="translate(150 0)"/>
+        <polygon fill="#5A6378" points="-191,61 69,61 191,-61 -69,-61" transform="translate(-89 239)"/>
+        <polygon fill="#F0AD00" points="-130,-44 0,86 130,-44" transform="translate(0 106) rotate(-180)"/>
+        <polygon fill="#60B5CC" points="-130,-44 0,86 130,-44" transform="translate(256 -150) rotate(-270)"/>
+    </g>
+    <path d="m0.936 0.732v30.5h2.19v0.732h-3.04v-32h3.03v0.732z"/>
+ </g>
+</svg>
\ No newline at end of file

From 487c872d43c5bcebccc383d35ee5ada361e73073 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 26 May 2024 13:12:03 +0200
Subject: [PATCH 21/36] Add method to create a Vault

---
 src/Internal/Values/Context.elm | 20 ++++++++++--
 src/Internal/Values/Vault.elm   | 14 ++++++--
 src/Matrix.elm                  | 58 +++++++++++++++++++++++++++++++--
 src/Matrix/Settings.elm         | 39 +++++++++++++++++++++-
 4 files changed, 122 insertions(+), 9 deletions(-)

diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index aec1048..0adeaf9 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -1,5 +1,6 @@
 module Internal.Values.Context exposing
-    ( Context, AccessToken, init, coder, encode, decoder, mostPopularToken
+    ( Context, AccessToken, init, coder, encode, decoder
+    , mostPopularToken
     , APIContext, apiFormat, fromApiFormat
     , setAccessToken, getAccessToken
     , setBaseUrl, getBaseUrl
@@ -16,7 +17,11 @@ the Matrix API.
 
 ## Context
 
-@docs Context, AccessToken, init, coder, encode, decoder, mostPopularToken
+@docs Context, AccessToken, init, coder, encode, decoder
+
+Some functions are present to influence the general Context type itself.
+
+@docs mostPopularToken
 
 
 ## APIContext
@@ -94,6 +99,7 @@ type alias Context =
     , password : Maybe String
     , refreshToken : Maybe String
     , serverName : String
+    , suggestedAccessToken : Maybe String
     , transaction : Maybe String
     , username : Maybe String
     , versions : Maybe Versions
@@ -146,7 +152,7 @@ fromApiFormat (APIContext c) =
 -}
 coder : Json.Coder Context
 coder =
-    Json.object10
+    Json.object11
         { name = Text.docs.context.name
         , description = Text.docs.context.description
         , init = Context
@@ -200,6 +206,13 @@ coder =
             , coder = Json.string
             }
         )
+        (Json.field.optional.value
+            { fieldName = "suggestedAccessToken"
+            , toField = always Nothing -- Do not save
+            , description = Debug.todo "Needs docs"
+            , coder = Json.string
+            }
+        )
         (Json.field.optional.value
             { fieldName = "transaction"
             , toField = .transaction
@@ -294,6 +307,7 @@ init sn =
     , refreshToken = Nothing
     , password = Nothing
     , serverName = sn
+    , suggestedAccessToken = Nothing
     , transaction = Nothing
     , username = Nothing
     , versions = Nothing
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index fd3557c..1bfa25a 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -1,5 +1,5 @@
 module Internal.Values.Vault exposing
-    ( Vault
+    ( Vault, init
     , VaultUpdate(..), update
     , fromRoomId, mapRoom, updateRoom
     , getAccountData, setAccountData
@@ -12,7 +12,7 @@ can receive from the Matrix API.
 
 ## Vault type
 
-@docs Vault
+@docs Vault, init
 
 To update the Vault, one uses VaultUpdate types.
 
@@ -106,6 +106,16 @@ getAccountData key vault =
     Dict.get key vault.accountData
 
 
+{-| Initiate a new Vault type.
+-}
+init : User -> Vault
+init user =
+    { accountData = Dict.empty
+    , rooms = Hashdict.empty .roomId
+    , user = user
+    }
+
+
 {-| Update a room, if it exists. If the room isn´t known, this operation is
 ignored.
 -}
diff --git a/src/Matrix.elm b/src/Matrix.elm
index 8b06a30..5d54fb8 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -1,6 +1,7 @@
 module Matrix exposing
     ( Vault
     , VaultUpdate, update
+    , sendMessageEvent, fromUserId
     )
 
 {-|
@@ -18,18 +19,26 @@ support a monolithic public registry. (:
 
 ## Vault
 
-@docs Vault
+@docs Vault, fromUserId
 
 
 ## Keeping the Vault up-to-date
 
 @docs VaultUpdate, update
 
+
+## Debugging
+
+@docs sendMessageEvent
+
 -}
 
+import Internal.Api.Main as Api
 import Internal.Values.Envelope as Envelope
 import Internal.Values.Vault as Internal
+import Json.Encode as E
 import Types exposing (Vault(..), VaultUpdate(..))
+import Internal.Values.User as User
 
 
 {-| The Vault type stores all relevant information about the Matrix API.
@@ -47,6 +56,49 @@ type alias Vault =
 type alias VaultUpdate =
     Types.VaultUpdate
 
+addAccessToken : String -> Vault -> Vault
+addAccessToken token (Vault vault) =
+    
+
+{-| Use a fully-fledged Matrix ID to connect.
+
+    case Matrix.fromUserId "@alice:example.org" of
+        Just vault ->
+            "We got a vault!"
+        
+        Nothing ->
+            "Invalid username"
+-}
+fromUserId : String -> Maybe Vault
+fromUserId =
+    User.fromString
+        >> Maybe.map
+            (\u ->
+                Envelope.init
+                    { serverName = User.domain u
+                    , content = Internal.init u
+                    }
+            )
+        >> Maybe.map Vault
+
+{-| Send a message event to a room.
+
+This function can be used in a scenario where the user does not want to sync
+the client, or is unable to. This function doesn't check whether the given room
+exists and the user is able to send a message to, and instead just sends the
+request to the Matrix API.
+
+-}
+sendMessageEvent : Vault -> { content : E.Value, eventType : String, roomId : String, toMsg : VaultUpdate -> msg, transactionId : String } -> Cmd msg
+sendMessageEvent (Vault vault) data =
+    Api.sendMessageEvent vault
+        { content = data.content
+        , eventType = data.eventType
+        , roomId = data.roomId
+        , toMsg = Types.VaultUpdate >> data.toMsg
+        , transactionId = data.transactionId
+        }
+
 
 {-| Using new VaultUpdate information, update the Vault accordingly.
 
@@ -56,6 +108,6 @@ sent a new message? Did someone send us an invite for a new room?
 -}
 update : VaultUpdate -> Vault -> Vault
 update (VaultUpdate vu) (Vault vault) =
-    vault
-        |> Envelope.update Internal.update vu
+    vu.messages
+        |> List.foldl (Envelope.update Internal.update) vault
         |> Vault
diff --git a/src/Matrix/Settings.elm b/src/Matrix/Settings.elm
index 6a85e2f..bd0102d 100644
--- a/src/Matrix/Settings.elm
+++ b/src/Matrix/Settings.elm
@@ -1,5 +1,6 @@
 module Matrix.Settings exposing
-    ( getDeviceName, setDeviceName
+    ( setAccessToken, removeAccessToken
+    , getDeviceName, setDeviceName
     , getSyncTime, setSyncTime
     )
 
@@ -8,6 +9,18 @@ interact with. Usually, you configure these variables only when creating a new
 Vault, or when a user explicitly changes one of their preferred settings.
 
 
+## Access token
+
+The Vault is able to log in on its own, but sometimes you would rather have the
+Vault use an access token than log in to get one on its own. For this case, you
+can use this option to insert an access token into the Vault.
+
+As long as the access token remains valid, the Vault will use this provided
+access token.
+
+@docs setAccessToken, removeAccessToken
+
+
 ## Device name
 
 The default device name that is being communicated with the Matrix API.
@@ -43,6 +56,30 @@ import Internal.Values.Envelope as Envelope
 import Types exposing (Vault(..))
 
 
+{-| Insert a suggested access token.
+-}
+setAccessToken : String -> Vault -> Vault
+setAccessToken token (Vault vault) =
+    vault
+        |> Envelope.mapContext
+            (\c -> { c | suggestedAccessToken = Just token })
+        |> Vault
+
+
+{-| Remove an access token that has been inserted using the
+[setAccessToken](Matrix-Settings#setAccessToken) function.
+
+This should generally not be necessary, but it can be nice security-wise.
+
+-}
+removeAccessToken : Vault -> Vault
+removeAccessToken (Vault vault) =
+    vault
+        |> Envelope.mapContext
+            (\c -> { c | suggestedAccessToken = Nothing })
+        |> Vault
+
+
 {-| Determine the device name.
 -}
 getDeviceName : Vault -> String

From 4349a14a8702bc435bb2924da87a365bf9d11b5a Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 26 May 2024 18:12:37 +0200
Subject: [PATCH 22/36] BREAKING: Fix bug breaking Elm compiler

---
 .../Api/LoginWithUsernameAndPassword/Api.elm  | 625 +++++++++---------
 src/Internal/Api/Now/Api.elm                  |  31 +-
 2 files changed, 332 insertions(+), 324 deletions(-)

diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index 2472382..b19b406 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -159,333 +159,340 @@ type alias PhantomV1 a =
 
 
 loginWithUsernameAndPasswordV1 : LoginWithUsernameAndPasswordInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV1 { username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyString "password" password
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            ]
-        , coder = coderV1
-        , method = "POST"
-        , path = [ "_matrix", "client", "r0", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = Nothing
-                        , lastUsed = Context.getNow context
-                        , refresh = out.refreshToken
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV1 { username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyString "password" password
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                ]
+            , coder = coderV1
+            , method = "POST"
+            , path = [ "_matrix", "client", "r0", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = Nothing
+                            , lastUsed = Context.getNow context
+                            , refresh = out.refreshToken
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV2 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV2 { deviceId, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "device_id" deviceId
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "string" -- Yup. That's what it says.
-            ]
-        , coder = coderV2
-        , method = "POST"
-        , path = [ "_matrix", "client", "r0", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = Nothing
-                        , lastUsed = Context.getNow context
-                        , refresh = Nothing
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    , out.deviceId
-                        |> Maybe.map E.SetDeviceId
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV2 { deviceId, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "device_id" deviceId
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "string" -- Yup. That's what it says.
+                ]
+            , coder = coderV2
+            , method = "POST"
+            , path = [ "_matrix", "client", "r0", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = Nothing
+                            , lastUsed = Context.getNow context
+                            , refresh = Nothing
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        , out.deviceId
+                            |> Maybe.map E.SetDeviceId
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV3 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV3 { deviceId, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "address" Nothing
-            , R.bodyOpString "device_id" deviceId
-            , R.bodyValue "identifier"
-                (E.object
-                    [ ( "type", E.string "m.id.user" )
-                    , ( "user", E.string username )
-                    ]
-                )
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
-            ]
-        , coder = coderV3
-        , method = "POST"
-        , path = [ "_matrix", "client", "r0", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = Nothing
-                        , lastUsed = Context.getNow context
-                        , refresh = Nothing
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    , out.deviceId
-                        |> Maybe.map E.SetDeviceId
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV3 { deviceId, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "address" Nothing
+                , R.bodyOpString "device_id" deviceId
+                , R.bodyValue "identifier"
+                    (E.object
+                        [ ( "type", E.string "m.id.user" )
+                        , ( "user", E.string username )
+                        ]
+                    )
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+                ]
+            , coder = coderV3
+            , method = "POST"
+            , path = [ "_matrix", "client", "r0", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = Nothing
+                            , lastUsed = Context.getNow context
+                            , refresh = Nothing
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        , out.deviceId
+                            |> Maybe.map E.SetDeviceId
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV4 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV4 { deviceId, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "address" Nothing
-            , R.bodyOpString "device_id" deviceId
-            , R.bodyValue "identifier"
-                (E.object
-                    [ ( "type", E.string "m.id.user" )
-                    , ( "user", E.string username )
-                    ]
-                )
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
-            ]
-        , coder = coderV4
-        , method = "POST"
-        , path = [ "_matrix", "client", "r0", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = Nothing
-                        , lastUsed = Context.getNow context
-                        , refresh = Nothing
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    , out.wellKnown
-                        |> Maybe.map (.homeserver >> .baseUrl)
-                        |> Maybe.map E.SetBaseUrl
-                        |> E.Optional
-                    , out.deviceId
-                        |> Maybe.map E.SetDeviceId
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV4 { deviceId, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "address" Nothing
+                , R.bodyOpString "device_id" deviceId
+                , R.bodyValue "identifier"
+                    (E.object
+                        [ ( "type", E.string "m.id.user" )
+                        , ( "user", E.string username )
+                        ]
+                    )
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+                ]
+            , coder = coderV4
+            , method = "POST"
+            , path = [ "_matrix", "client", "r0", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = Nothing
+                            , lastUsed = Context.getNow context
+                            , refresh = Nothing
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        , out.wellKnown
+                            |> Maybe.map (.homeserver >> .baseUrl)
+                            |> Maybe.map E.SetBaseUrl
+                            |> E.Optional
+                        , out.deviceId
+                            |> Maybe.map E.SetDeviceId
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV5 : LoginWithUsernameAndPasswordInputV2 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV5 { deviceId, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "address" Nothing
-            , R.bodyOpString "device_id" deviceId
-            , R.bodyValue "identifier"
-                (E.object
-                    [ ( "type", E.string "m.id.user" )
-                    , ( "user", E.string username )
-                    ]
-                )
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
-            ]
-        , coder = coderV4
-        , method = "POST"
-        , path = [ "_matrix", "client", "v3", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = Nothing
-                        , lastUsed = Context.getNow context
-                        , refresh = Nothing
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    , out.wellKnown
-                        |> Maybe.map (.homeserver >> .baseUrl)
-                        |> Maybe.map E.SetBaseUrl
-                        |> E.Optional
-                    , out.deviceId
-                        |> Maybe.map E.SetDeviceId
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV5 { deviceId, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "address" Nothing
+                , R.bodyOpString "device_id" deviceId
+                , R.bodyValue "identifier"
+                    (E.object
+                        [ ( "type", E.string "m.id.user" )
+                        , ( "user", E.string username )
+                        ]
+                    )
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+                ]
+            , coder = coderV4
+            , method = "POST"
+            , path = [ "_matrix", "client", "v3", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = Nothing
+                            , lastUsed = Context.getNow context
+                            , refresh = Nothing
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        , out.wellKnown
+                            |> Maybe.map (.homeserver >> .baseUrl)
+                            |> Maybe.map E.SetBaseUrl
+                            |> E.Optional
+                        , out.deviceId
+                            |> Maybe.map E.SetDeviceId
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV6 : LoginWithUsernameAndPasswordInputV3 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV6 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "address" Nothing
-            , R.bodyOpString "device_id" deviceId
-            , R.bodyValue "identifier"
-                (E.object
-                    [ ( "type", E.string "m.id.user" )
-                    , ( "user", E.string username )
-                    ]
-                )
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyOpBool "refresh_token" enableRefreshToken
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
-            ]
-        , coder = coderV5
-        , method = "POST"
-        , path = [ "_matrix", "client", "v3", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = out.expiresInMs
-                        , lastUsed = Context.getNow context
-                        , refresh = out.refreshToken
-                        , value = out.accessToken
-                        }
-                    , out.user
-                        |> Maybe.map (V.SetUser >> E.ContentUpdate)
-                        |> E.Optional
-                    , out.wellKnown
-                        |> Maybe.map (.homeserver >> .baseUrl)
-                        |> Maybe.map E.SetBaseUrl
-                        |> E.Optional
-                    , out.deviceId
-                        |> Maybe.map E.SetDeviceId
-                        |> E.Optional
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV6 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "address" Nothing
+                , R.bodyOpString "device_id" deviceId
+                , R.bodyValue "identifier"
+                    (E.object
+                        [ ( "type", E.string "m.id.user" )
+                        , ( "user", E.string username )
+                        ]
+                    )
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyOpBool "refresh_token" enableRefreshToken
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+                ]
+            , coder = coderV5
+            , method = "POST"
+            , path = [ "_matrix", "client", "v3", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = out.expiresInMs
+                            , lastUsed = Context.getNow context
+                            , refresh = out.refreshToken
+                            , value = out.accessToken
+                            }
+                        , out.user
+                            |> Maybe.map (V.SetUser >> E.ContentUpdate)
+                            |> E.Optional
+                        , out.wellKnown
+                            |> Maybe.map (.homeserver >> .baseUrl)
+                            |> Maybe.map E.SetBaseUrl
+                            |> E.Optional
+                        , out.deviceId
+                            |> Maybe.map E.SetDeviceId
+                            |> E.Optional
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 loginWithUsernameAndPasswordV7 : LoginWithUsernameAndPasswordInputV3 i -> A.TaskChain (PhantomV1 a) (PhantomV1 { a | accessToken : () })
-loginWithUsernameAndPasswordV7 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } context =
-    A.request
-        { attributes =
-            [ R.bodyOpString "address" Nothing
-            , R.bodyOpString "device_id" deviceId
-            , R.bodyValue "identifier"
-                (E.object
-                    [ ( "type", E.string "m.id.user" )
-                    , ( "user", E.string username )
-                    ]
-                )
-            , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
-            , R.bodyString "password" password
-            , R.bodyOpBool "refresh_token" enableRefreshToken
-            , R.bodyString "type" "m.login.password"
-            , R.bodyString "user" username
-            , R.onStatusCode 400 "M_UNKNOWN"
-            , R.onStatusCode 403 "M_FORBIDDEN"
-            , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
-            ]
-        , coder = coderV6
-        , method = "POST"
-        , path = [ "_matrix", "client", "v3", "login" ]
-        , contextChange =
-            \out -> Context.setAccessToken out.accessToken
-        , toUpdate =
-            \out ->
-                ( E.More
-                    [ E.SetAccessToken
-                        { created = Context.getNow context
-                        , expiryMs = out.expiresInMs
-                        , lastUsed = Context.getNow context
-                        , refresh = out.refreshToken
-                        , value = out.accessToken
-                        }
-                    , E.ContentUpdate (V.SetUser out.user)
-                    , out.wellKnown
-                        |> Maybe.map (.homeserver >> .baseUrl)
-                        |> Maybe.map E.SetBaseUrl
-                        |> E.Optional
-                    , E.SetDeviceId out.deviceId
-                    ]
-                , []
-                )
-        }
-        context
+loginWithUsernameAndPasswordV7 { deviceId, enableRefreshToken, initialDeviceDisplayName, username, password } =
+    \context ->
+        A.request
+            { attributes =
+                [ R.bodyOpString "address" Nothing
+                , R.bodyOpString "device_id" deviceId
+                , R.bodyValue "identifier"
+                    (E.object
+                        [ ( "type", E.string "m.id.user" )
+                        , ( "user", E.string username )
+                        ]
+                    )
+                , R.bodyOpString "initial_device_display_name" initialDeviceDisplayName
+                , R.bodyString "password" password
+                , R.bodyOpBool "refresh_token" enableRefreshToken
+                , R.bodyString "type" "m.login.password"
+                , R.bodyString "user" username
+                , R.onStatusCode 400 "M_UNKNOWN"
+                , R.onStatusCode 403 "M_FORBIDDEN"
+                , R.onStatusCode 429 "M_LIMIT_EXCEEDED"
+                ]
+            , coder = coderV6
+            , method = "POST"
+            , path = [ "_matrix", "client", "v3", "login" ]
+            , contextChange =
+                \out -> Context.setAccessToken out.accessToken
+            , toUpdate =
+                \out ->
+                    ( E.More
+                        [ E.SetAccessToken
+                            { created = Context.getNow context
+                            , expiryMs = out.expiresInMs
+                            , lastUsed = Context.getNow context
+                            , refresh = out.refreshToken
+                            , value = out.accessToken
+                            }
+                        , E.ContentUpdate (V.SetUser out.user)
+                        , out.wellKnown
+                            |> Maybe.map (.homeserver >> .baseUrl)
+                            |> Maybe.map E.SetBaseUrl
+                            |> E.Optional
+                        , E.SetDeviceId out.deviceId
+                        ]
+                    , []
+                    )
+            }
+            context
 
 
 coderV1 : Json.Coder LoginWithUsernameAndPasswordOutputV1
diff --git a/src/Internal/Api/Now/Api.elm b/src/Internal/Api/Now/Api.elm
index 9a1a0ce..52c9722 100644
--- a/src/Internal/Api/Now/Api.elm
+++ b/src/Internal/Api/Now/Api.elm
@@ -20,18 +20,19 @@ import Time
 
 
 getNow : A.TaskChain a { a | now : () }
-getNow _ =
-    Task.map
-        (\now ->
-            { messages = [ E.SetNow now ]
-            , logs =
-                [ "Identified current time at Unix time "
-                , now |> Time.posixToMillis |> String.fromInt
-                ]
-                    |> String.concat
-                    |> log.debug
-                    |> List.singleton
-            , contextChange = Context.setNow now
-            }
-        )
-        Time.now
+getNow =
+    \_ ->
+        Task.map
+            (\now ->
+                { messages = [ E.SetNow now ]
+                , logs =
+                    [ "Identified current time at Unix time "
+                    , now |> Time.posixToMillis |> String.fromInt
+                    ]
+                        |> String.concat
+                        |> log.debug
+                        |> List.singleton
+                , contextChange = Context.setNow now
+                }
+            )
+            Time.now

From e335c150f069bab52ed6cb279884d981ae665f2a Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 26 May 2024 18:53:31 +0200
Subject: [PATCH 23/36] Fix compiler bugs

---
 src/Internal/Api/BaseUrl/Api.elm                      |  6 +++++-
 src/Internal/Api/LoginWithUsernameAndPassword/Api.elm |  6 +++++-
 src/Internal/Api/Main.elm                             |  2 ++
 src/Internal/Api/Now/Api.elm                          |  2 ++
 src/Internal/Api/SendMessageEvent/Api.elm             | 10 +++++++---
 src/Internal/Api/Task.elm                             |  2 +-
 src/Matrix.elm                                        |  4 ++--
 7 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/src/Internal/Api/BaseUrl/Api.elm b/src/Internal/Api/BaseUrl/Api.elm
index 0ff9392..1f95027 100644
--- a/src/Internal/Api/BaseUrl/Api.elm
+++ b/src/Internal/Api/BaseUrl/Api.elm
@@ -1,4 +1,4 @@
-module Internal.Api.BaseUrl.Api exposing (..)
+module Internal.Api.BaseUrl.Api exposing (baseUrl)
 
 {-|
 
@@ -7,6 +7,8 @@ module Internal.Api.BaseUrl.Api exposing (..)
 
 This module looks for the right homeserver address.
 
+@docs baseUrl
+
 -}
 
 import Internal.Api.Chain as C
@@ -19,6 +21,8 @@ import Internal.Values.Envelope as E
 import Internal.Values.Vault as V
 
 
+{-| Get the homeserver base URL of a given server name.
+-}
 baseUrl : BaseUrlInput -> C.TaskChain R.Error (E.EnvelopeUpdate V.VaultUpdate) ph { ph | baseUrl : () }
 baseUrl data =
     R.toChain
diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index b19b406..d35cdff 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -22,6 +22,8 @@ import Internal.Values.Vault as V
 import Json.Encode as E
 
 
+{-| Log in using a username and password.
+-}
 loginWithUsernameAndPassword : LoginWithUsernameAndPasswordInput -> A.TaskChain (Phantom a) (Phantom { a | accessToken : () })
 loginWithUsernameAndPassword =
     A.startWithVersion "r0.0.0" loginWithUsernameAndPasswordV1
@@ -46,8 +48,10 @@ loginWithUsernameAndPassword =
         |> A.versionChain
 
 
+{-| Context needed for logging in with a username and password
+-}
 type alias Phantom a =
-    { a | baseUrl : (), versions : () }
+    { a | baseUrl : (), now : (), versions : () }
 
 
 type alias LoginWithUsernameAndPasswordInput =
diff --git a/src/Internal/Api/Main.elm b/src/Internal/Api/Main.elm
index 95b9a3e..9807572 100644
--- a/src/Internal/Api/Main.elm
+++ b/src/Internal/Api/Main.elm
@@ -28,6 +28,8 @@ import Internal.Values.Context as Context
 import Internal.Values.Envelope as E
 
 
+{-| Update message type that is being returned.
+-}
 type alias Msg =
     Backpack
 
diff --git a/src/Internal/Api/Now/Api.elm b/src/Internal/Api/Now/Api.elm
index 52c9722..f367ae1 100644
--- a/src/Internal/Api/Now/Api.elm
+++ b/src/Internal/Api/Now/Api.elm
@@ -19,6 +19,8 @@ import Task
 import Time
 
 
+{-| Get the current time and place it in the context.
+-}
 getNow : A.TaskChain a { a | now : () }
 getNow =
     \_ ->
diff --git a/src/Internal/Api/SendMessageEvent/Api.elm b/src/Internal/Api/SendMessageEvent/Api.elm
index 99b19e7..eee7626 100644
--- a/src/Internal/Api/SendMessageEvent/Api.elm
+++ b/src/Internal/Api/SendMessageEvent/Api.elm
@@ -1,4 +1,4 @@
-module Internal.Api.SendMessageEvent.Api exposing (..)
+module Internal.Api.SendMessageEvent.Api exposing (Phantom, sendMessageEvent)
 
 {-|
 
@@ -7,7 +7,7 @@ module Internal.Api.SendMessageEvent.Api exposing (..)
 
 This module helps send message events to rooms on the Matrix API.
 
-@docs Phantom
+@docs Phantom, sendMessageEvent
 
 -}
 
@@ -19,6 +19,8 @@ import Internal.Tools.Json as Json
 import Internal.Values.Envelope as E
 
 
+{-| Send a message event to the Matrix room.
+-}
 sendMessageEvent : SendMessageEventInput -> A.TaskChain (Phantom a) (Phantom a)
 sendMessageEvent =
     A.startWithVersion "r0.0.0" sendMessageEventV1
@@ -44,8 +46,10 @@ sendMessageEvent =
         |> A.versionChain
 
 
+{-| Context needed for sending a message event
+-}
 type alias Phantom a =
-    a
+    { a | accessToken : (), baseUrl : (), versions : () }
 
 
 type alias PhantomV1 a =
diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 1a8385d..2ec4b71 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -65,7 +65,7 @@ type alias UFTask a b =
 
 {-| Get an access token to talk to the Matrix API
 -}
-getAccessToken : UFTask { a | now : () } { a | accessToken : (), now : () }
+getAccessToken : UFTask { a | baseUrl : (), now : (), versions : () } { a | accessToken : (), baseUrl : (), now : (), versions : () }
 getAccessToken c =
     case Context.fromApiFormat c of
         context ->
diff --git a/src/Matrix.elm b/src/Matrix.elm
index 8b06a30..71079c1 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -56,6 +56,6 @@ sent a new message? Did someone send us an invite for a new room?
 -}
 update : VaultUpdate -> Vault -> Vault
 update (VaultUpdate vu) (Vault vault) =
-    vault
-        |> Envelope.update Internal.update vu
+    vu.messages
+        |> List.foldl (Envelope.update Internal.update) vault
         |> Vault

From 9e761db4f95efc66b619d5489eb6b34c4a7ea2f7 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Sun, 26 May 2024 19:24:31 +0200
Subject: [PATCH 24/36] Fix (most) warnings

---
 src/Internal/Api/Chain.elm       | 4 ++--
 src/Internal/Filter/Timeline.elm | 2 --
 src/Internal/Values/Room.elm     | 4 ++--
 src/Internal/Values/Vault.elm    | 2 --
 tests/Test/Values/Timeline.elm   | 2 +-
 tests/Test/Values/Vault.elm      | 2 +-
 6 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/Internal/Api/Chain.elm b/src/Internal/Api/Chain.elm
index 826cc52..7dc0f08 100644
--- a/src/Internal/Api/Chain.elm
+++ b/src/Internal/Api/Chain.elm
@@ -1,7 +1,7 @@
 module Internal.Api.Chain exposing
     ( TaskChain, CompleteChain
     , IdemChain, toTask
-    , fail, succeed, andThen, catchWith
+    , fail, succeed, andThen, catchWith, maybe
     )
 
 {-|
@@ -27,7 +27,7 @@ avoid leaking values passing through the API in unexpected ways.
 
 ## Operations
 
-@docs fail, succeed, andThen, catchWith
+@docs fail, succeed, andThen, catchWith, maybe
 
 -}
 
diff --git a/src/Internal/Filter/Timeline.elm b/src/Internal/Filter/Timeline.elm
index e43ecce..71e59d8 100644
--- a/src/Internal/Filter/Timeline.elm
+++ b/src/Internal/Filter/Timeline.elm
@@ -50,8 +50,6 @@ for interacting with the Matrix API.
 import Internal.Config.Text as Text
 import Internal.Grammar.UserId as U
 import Internal.Tools.Json as Json
-import Json.Decode as D
-import Json.Encode as E
 import Set exposing (Set)
 
 
diff --git a/src/Internal/Values/Room.elm b/src/Internal/Values/Room.elm
index 9113cc0..1db7bf1 100644
--- a/src/Internal/Values/Room.elm
+++ b/src/Internal/Values/Room.elm
@@ -56,7 +56,7 @@ import Internal.Tools.Json as Json
 import Internal.Values.Event as Event exposing (Event)
 import Internal.Values.StateManager as StateManager exposing (StateManager)
 import Internal.Values.Timeline as Timeline exposing (Timeline)
-import Internal.Values.User as User exposing (User)
+import Internal.Values.User exposing (User)
 import Json.Encode as E
 
 
@@ -255,7 +255,7 @@ update ru room =
         AddSync batch ->
             addSync batch room
 
-        Invite user ->
+        Invite _ ->
             -- TODO: Invite user
             room
 
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index fd3557c..7ff2a23 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -33,8 +33,6 @@ Rooms are environments where people can have a conversation with each other.
 -}
 
 import FastDict as Dict exposing (Dict)
-import Internal.Api.Request as Request
-import Internal.Config.Log exposing (Log)
 import Internal.Config.Text as Text
 import Internal.Tools.Hashdict as Hashdict exposing (Hashdict)
 import Internal.Tools.Json as Json
diff --git a/tests/Test/Values/Timeline.elm b/tests/Test/Values/Timeline.elm
index e1a9fff..83a15dd 100644
--- a/tests/Test/Values/Timeline.elm
+++ b/tests/Test/Values/Timeline.elm
@@ -2,7 +2,7 @@ module Test.Values.Timeline exposing (..)
 
 import Expect
 import Fuzz exposing (Fuzzer)
-import Internal.Filter.Timeline as Filter exposing (Filter)
+import Internal.Filter.Timeline as Filter
 import Internal.Tools.Json as Json
 import Internal.Values.Timeline as Timeline exposing (Batch, Timeline)
 import Json.Decode as D
diff --git a/tests/Test/Values/Vault.elm b/tests/Test/Values/Vault.elm
index 8f202fd..e42f173 100644
--- a/tests/Test/Values/Vault.elm
+++ b/tests/Test/Values/Vault.elm
@@ -1,6 +1,6 @@
 module Test.Values.Vault exposing (..)
 
-import FastDict as Dict exposing (Dict)
+import FastDict as Dict
 import Fuzz exposing (Fuzzer)
 import Internal.Tools.Json as Json
 import Internal.Values.Vault exposing (Vault)

From b32e0ef123ea16330185279503fdc1aac8d506b7 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Mon, 27 May 2024 16:39:50 +0200
Subject: [PATCH 25/36] Fix test errors

---
 src/Internal/Values/User.elm   |  2 +-
 tests/Test/Values/Context.elm  | 33 +++++++++++++++++++++++++--------
 tests/Test/Values/Envelope.elm |  6 +++---
 tests/Test/Values/Room.elm     |  2 --
 tests/Test/Values/User.elm     | 13 +++++++++++++
 tests/Test/Values/Vault.elm    |  4 +++-
 6 files changed, 45 insertions(+), 15 deletions(-)
 create mode 100644 tests/Test/Values/User.elm

diff --git a/src/Internal/Values/User.elm b/src/Internal/Values/User.elm
index 806207d..ba69dc3 100644
--- a/src/Internal/Values/User.elm
+++ b/src/Internal/Values/User.elm
@@ -36,7 +36,7 @@ Since the username is safely parsed, one can get these parts of the username.
 
 -}
 
-import Internal.Config.Log as Log exposing (log)
+import Internal.Config.Log exposing (log)
 import Internal.Grammar.ServerName as ServerName
 import Internal.Grammar.UserId as UserId
 import Internal.Tools.Json as Json
diff --git a/tests/Test/Values/Context.elm b/tests/Test/Values/Context.elm
index c412daf..6575512 100644
--- a/tests/Test/Values/Context.elm
+++ b/tests/Test/Values/Context.elm
@@ -3,10 +3,13 @@ module Test.Values.Context exposing (..)
 import Expect
 import Fuzz exposing (Fuzzer)
 import Internal.Config.Leaks as Leaks
-import Internal.Values.Context as Context exposing (Context)
+import Internal.Tools.Hashdict as Hashdict
+import Internal.Values.Context as Context exposing (Context, Versions)
 import Json.Decode as D
 import Json.Encode as E
+import Set
 import Test exposing (..)
+import Test.Tools.Timestamp as TestTimestamp
 
 
 fuzzer : Fuzzer Context
@@ -16,14 +19,28 @@ fuzzer =
         maybeString =
             Fuzz.maybe Fuzz.string
     in
-    Fuzz.map7 Context
+    Fuzz.map8 (\a b c d e f ( g, h ) ( i, j ) -> Context a b c d e f g h i j)
+        (Fuzz.constant <| Hashdict.empty .value)
         maybeString
         maybeString
+        (Fuzz.maybe TestTimestamp.fuzzer)
         maybeString
         maybeString
-        maybeString
-        maybeString
-        (Fuzz.maybe <| Fuzz.list Fuzz.string)
+        (Fuzz.pair
+            Fuzz.string
+            maybeString
+        )
+        (Fuzz.pair
+            maybeString
+            (Fuzz.maybe <| versionsFuzzer)
+        )
+
+
+versionsFuzzer : Fuzzer Versions
+versionsFuzzer =
+    Fuzz.map2 Versions
+        (Fuzz.list Fuzz.string)
+        (Fuzz.map Set.fromList <| Fuzz.list Fuzz.string)
 
 
 {-| If a leak is spotted, make sure to change the leaking value and then test
@@ -64,7 +81,7 @@ leaks =
                     |> Expect.notEqual Leaks.transaction
             )
         , fuzz2 fuzzer
-            (Fuzz.list Fuzz.string)
+            versionsFuzzer
             "Versions"
             (\context value ->
                 context
@@ -110,7 +127,7 @@ apiContext =
                     |> Expect.equal value
             )
         , fuzz2 fuzzer
-            (Fuzz.list Fuzz.string)
+            versionsFuzzer
             "Versions"
             (\context value ->
                 context
@@ -126,7 +143,7 @@ json : Test
 json =
     describe "JSON encode + JSON decode"
         [ test "Empty is {}"
-            (Context.init
+            (Context.init ""
                 |> Context.encode
                 |> E.encode 0
                 |> Expect.equal "{}"
diff --git a/tests/Test/Values/Envelope.elm b/tests/Test/Values/Envelope.elm
index e147b8d..bfff781 100644
--- a/tests/Test/Values/Envelope.elm
+++ b/tests/Test/Values/Envelope.elm
@@ -28,7 +28,7 @@ suite =
                 [ fuzz Fuzz.string
                     "currentVersion"
                     (\s ->
-                        s
+                        { content = s, serverName = "" }
                             |> Envelope.init
                             |> Envelope.extractSettings .currentVersion
                             |> Expect.equal Default.currentVersion
@@ -36,7 +36,7 @@ suite =
                 , fuzz Fuzz.string
                     "deviceName"
                     (\s ->
-                        s
+                        { content = s, serverName = "" }
                             |> Envelope.init
                             |> Envelope.extractSettings .deviceName
                             |> Expect.equal Default.deviceName
@@ -44,7 +44,7 @@ suite =
                 , fuzz Fuzz.string
                     "syncTime"
                     (\s ->
-                        s
+                        { content = s, serverName = "" }
                             |> Envelope.init
                             |> Envelope.extractSettings .syncTime
                             |> Expect.equal Default.syncTime
diff --git a/tests/Test/Values/Room.elm b/tests/Test/Values/Room.elm
index 98e7228..a5f0a17 100644
--- a/tests/Test/Values/Room.elm
+++ b/tests/Test/Values/Room.elm
@@ -1,9 +1,7 @@
 module Test.Values.Room exposing (..)
 
-import Expect
 import Fuzz exposing (Fuzzer)
 import Internal.Values.Room as Room exposing (Room)
-import Json.Decode as D
 import Json.Encode as E
 import Test exposing (..)
 import Test.Filter.Timeline as TestFilter
diff --git a/tests/Test/Values/User.elm b/tests/Test/Values/User.elm
new file mode 100644
index 0000000..e76bf0e
--- /dev/null
+++ b/tests/Test/Values/User.elm
@@ -0,0 +1,13 @@
+module Test.Values.User exposing (..)
+
+import Fuzz exposing (Fuzzer)
+import Internal.Grammar.ServerName as SN
+import Internal.Values.User exposing (User)
+
+
+fuzzer : Fuzzer User
+fuzzer =
+    Fuzz.constant
+        { localpart = "temporary"
+        , domain = { host = SN.DNS "matrix.org", port_ = Nothing }
+        }
diff --git a/tests/Test/Values/Vault.elm b/tests/Test/Values/Vault.elm
index e42f173..96922a8 100644
--- a/tests/Test/Values/Vault.elm
+++ b/tests/Test/Values/Vault.elm
@@ -7,14 +7,16 @@ import Internal.Values.Vault exposing (Vault)
 import Test exposing (..)
 import Test.Tools.Hashdict as TestHashdict
 import Test.Values.Room as TestRoom
+import Test.Values.User as TestUser
 
 
 vault : Fuzzer Vault
 vault =
-    Fuzz.map2 Vault
+    Fuzz.map3 Vault
         (Fuzz.string
             |> Fuzz.map (\k -> ( k, Json.encode Json.int 0 ))
             |> Fuzz.list
             |> Fuzz.map Dict.fromList
         )
         (TestHashdict.fuzzer .roomId TestRoom.fuzzer)
+        TestUser.fuzzer

From 12c919b07107d7001169daa8056fae9456fdd635 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Mon, 27 May 2024 23:47:37 +0200
Subject: [PATCH 26/36] Finish addAccessToken function

---
 src/Matrix.elm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Matrix.elm b/src/Matrix.elm
index 5d54fb8..658341e 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -1,7 +1,7 @@
 module Matrix exposing
     ( Vault
     , VaultUpdate, update
-    , sendMessageEvent, fromUserId
+    , sendMessageEvent, fromUserId, addAccessToken
     )
 
 {-|
@@ -29,7 +29,7 @@ support a monolithic public registry. (:
 
 ## Debugging
 
-@docs sendMessageEvent
+@docs addAccessToken, sendMessageEvent
 
 -}
 
@@ -58,7 +58,8 @@ type alias VaultUpdate =
 
 addAccessToken : String -> Vault -> Vault
 addAccessToken token (Vault vault) =
-    
+    Envelope.mapContext (\c -> { c | suggestedAccessToken = Just token }) vault
+        |> Vault
 
 {-| Use a fully-fledged Matrix ID to connect.
 

From 2b9370f0c293fa2e7b3624b562e5b04a525c6d6c Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Tue, 28 May 2024 10:32:17 +0200
Subject: [PATCH 27/36] Fix bugs for MVP

This version now officially works. I have tested it and I will publish an example soon.
---
 src/Internal/Api/Request.elm              | 35 +++++++++++++++------
 src/Internal/Api/SendMessageEvent/Api.elm | 10 +++---
 src/Internal/Values/Context.elm           | 37 +++++++++++++----------
 src/Matrix.elm                            | 14 ++++++---
 4 files changed, 61 insertions(+), 35 deletions(-)

diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 0f911bc..7f8ba4e 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -287,7 +287,7 @@ fullBody value _ =
     FullBody value
 
 
-getBody : List ContextAttr -> Json.Value
+getBody : List ContextAttr -> Maybe Json.Value
 getBody attributes =
     attributes
         |> List.filterMap
@@ -301,8 +301,14 @@ getBody attributes =
             )
         |> List.reverse
         |> List.head
-        |> Maybe.withDefault
-            (List.filterMap
+        |> (\fb ->
+                case fb of
+                    Just _ ->
+                        fb
+
+                    Nothing ->
+                        case
+                            List.filterMap
                 (\attr ->
                     case attr of
                         BodyParam key value ->
@@ -312,7 +318,12 @@ getBody attributes =
                             Nothing
                 )
                 attributes
-                |> E.object
+                        of
+                            [] ->
+                                Nothing
+
+                            head :: tail ->
+                                Just <| E.object (head :: tail)
             )
 
 
@@ -479,21 +490,21 @@ rawApiCallResolver decoder statusCodeErrors =
                     Http.BadUrl s
                         |> InternetException
                         |> Tuple.pair
-                        |> (|>) []
+                        |> (|>) [ log.error ("Encountered bad URL " ++ s) ]
                         |> Err
 
                 Http.Timeout_ ->
                     Http.Timeout
                         |> InternetException
                         |> Tuple.pair
-                        |> (|>) []
+                        |> (|>) [ log.error "Encountered timeout - maybe the server is down?" ]
                         |> Err
 
                 Http.NetworkError_ ->
                     Http.NetworkError
                         |> InternetException
                         |> Tuple.pair
-                        |> (|>) []
+                        |> (|>) [ log.error "Encountered a network error - the user might be offline" ]
                         |> Err
 
                 Http.BadStatus_ metadata body ->
@@ -534,7 +545,10 @@ toChain data apiContext =
                         { method = call.method
                         , headers = getHeaders call.attributes
                         , url = getUrl call
-                        , body = Http.jsonBody (getBody call.attributes)
+                        , body =
+                            getBody call.attributes
+                                |> Maybe.map Http.jsonBody
+                                |> Maybe.withDefault Http.emptyBody
                         , resolver = rawApiCallResolver (Json.decode data.coder) (getStatusCodes call.attributes)
                         , timeout = getTimeout call.attributes
                         }
@@ -544,7 +558,10 @@ toChain data apiContext =
                         { method = call.method
                         , headers = getHeaders call.attributes
                         , url = getUrl call
-                        , body = Http.jsonBody (getBody call.attributes)
+                        , body =
+                            getBody call.attributes
+                                |> Maybe.map Http.jsonBody
+                                |> Maybe.withDefault Http.emptyBody
                         , resolver =
                             rawApiCallResolver
                                 (Json.decode data.coder
diff --git a/src/Internal/Api/SendMessageEvent/Api.elm b/src/Internal/Api/SendMessageEvent/Api.elm
index eee7626..3cc6ad9 100644
--- a/src/Internal/Api/SendMessageEvent/Api.elm
+++ b/src/Internal/Api/SendMessageEvent/Api.elm
@@ -84,7 +84,7 @@ type alias SendMessageEventOutputV2 =
 sendMessageEventV1 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
 sendMessageEventV1 { content, eventType, roomId, transactionId } =
     A.request
-        { attributes = [ R.fullBody content ]
+        { attributes = [ R.accessToken, R.fullBody content ]
         , coder = coderV1
         , contextChange = always identity
         , method = "PUT"
@@ -105,7 +105,7 @@ sendMessageEventV1 { content, eventType, roomId, transactionId } =
 sendMessageEventV2 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
 sendMessageEventV2 { content, eventType, roomId, transactionId } =
     A.request
-        { attributes = [ R.fullBody content ]
+        { attributes = [ R.accessToken, R.fullBody content ]
         , coder = coderV2
         , contextChange = always identity
         , method = "PUT"
@@ -124,7 +124,7 @@ sendMessageEventV2 { content, eventType, roomId, transactionId } =
 sendMessageEventV3 : SendMessageEventInputV1 i -> A.TaskChain (PhantomV1 a) (PhantomV1 a)
 sendMessageEventV3 { content, eventType, roomId, transactionId } =
     A.request
-        { attributes = [ R.fullBody content ]
+        { attributes = [ R.accessToken, R.fullBody content ]
         , coder = coderV2
         , contextChange = always identity
         , method = "PUT"
@@ -165,7 +165,7 @@ coderV1 =
         (Json.field.optional.value
             { fieldName = "event_id"
             , toField = .eventId
-            , description = Debug.todo "Needs docs"
+            , description = [ "A unique identifier for the event." ]
             , coder = Json.string
             }
         )
@@ -196,7 +196,7 @@ coderV2 =
         (Json.field.required
             { fieldName = "event_id"
             , toField = .eventId
-            , description = Debug.todo "Needs docs"
+            , description = [ "A unique identifier for the event." ]
             , coder = Json.string
             }
         )
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index 0adeaf9..01a595c 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -318,23 +318,28 @@ init sn =
 -}
 mostPopularToken : Context -> Maybe String
 mostPopularToken c =
-    c.accessTokens
-        |> Hashdict.values
-        |> List.sortBy
-            (\token ->
-                case token.expiryMs of
-                    Nothing ->
-                        ( 0, Timestamp.toMs token.created )
+    case c.suggestedAccessToken of
+        Just _ ->
+            c.suggestedAccessToken
 
-                    Just e ->
-                        ( 1
-                        , token.created
-                            |> Timestamp.add e
-                            |> Timestamp.toMs
-                        )
-            )
-        |> List.head
-        |> Maybe.map .value
+        Nothing ->
+            c.accessTokens
+                |> Hashdict.values
+                |> List.sortBy
+                    (\token ->
+                        case token.expiryMs of
+                            Nothing ->
+                                ( 0, Timestamp.toMs token.created )
+
+                            Just e ->
+                                ( 1
+                                , token.created
+                                    |> Timestamp.add e
+                                    |> Timestamp.toMs
+                                )
+                    )
+                |> List.head
+                |> Maybe.map .value
 
 
 {-| Reset the phantom type of the Context, effectively forgetting all values.
diff --git a/src/Matrix.elm b/src/Matrix.elm
index 658341e..b9da8e7 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -1,7 +1,7 @@
 module Matrix exposing
-    ( Vault
+    ( Vault, fromUserId
     , VaultUpdate, update
-    , sendMessageEvent, fromUserId, addAccessToken
+    , addAccessToken, sendMessageEvent
     )
 
 {-|
@@ -35,10 +35,10 @@ support a monolithic public registry. (:
 
 import Internal.Api.Main as Api
 import Internal.Values.Envelope as Envelope
+import Internal.Values.User as User
 import Internal.Values.Vault as Internal
 import Json.Encode as E
 import Types exposing (Vault(..), VaultUpdate(..))
-import Internal.Values.User as User
 
 
 {-| The Vault type stores all relevant information about the Matrix API.
@@ -56,19 +56,22 @@ type alias Vault =
 type alias VaultUpdate =
     Types.VaultUpdate
 
+
 addAccessToken : String -> Vault -> Vault
 addAccessToken token (Vault vault) =
     Envelope.mapContext (\c -> { c | suggestedAccessToken = Just token }) vault
         |> Vault
 
+
 {-| Use a fully-fledged Matrix ID to connect.
 
     case Matrix.fromUserId "@alice:example.org" of
         Just vault ->
             "We got a vault!"
-        
+
         Nothing ->
             "Invalid username"
+
 -}
 fromUserId : String -> Maybe Vault
 fromUserId =
@@ -76,12 +79,13 @@ fromUserId =
         >> Maybe.map
             (\u ->
                 Envelope.init
-                    { serverName = User.domain u
+                    { serverName = "https://" ++ User.domain u
                     , content = Internal.init u
                     }
             )
         >> Maybe.map Vault
 
+
 {-| Send a message event to a room.
 
 This function can be used in a scenario where the user does not want to sync

From 7fcef60ec6af92433050e41a98af304a383a5365 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Tue, 28 May 2024 16:46:33 +0200
Subject: [PATCH 28/36] Move logs to Text module

---
 src/Internal/Api/BaseUrl/Api.elm              | 16 ++------
 src/Internal/Api/GetEvent/Api.elm             |  5 ++-
 src/Internal/Api/Invite/Api.elm               | 17 ++-------
 .../Api/LoginWithUsernameAndPassword/Api.elm  | 30 +++++++++++----
 src/Internal/Api/Now/Api.elm                  |  8 ++--
 src/Internal/Api/Request.elm                  | 18 ++++-----
 src/Internal/Api/SendMessageEvent/Api.elm     | 13 ++++---
 src/Internal/Config/Text.elm                  | 37 ++++++++++++++++++-
 8 files changed, 87 insertions(+), 57 deletions(-)

diff --git a/src/Internal/Api/BaseUrl/Api.elm b/src/Internal/Api/BaseUrl/Api.elm
index 1f95027..0e9a930 100644
--- a/src/Internal/Api/BaseUrl/Api.elm
+++ b/src/Internal/Api/BaseUrl/Api.elm
@@ -15,6 +15,7 @@ import Internal.Api.Chain as C
 import Internal.Api.Request as R
 import Internal.Config.Leaks as L
 import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Values.Context as Context
 import Internal.Values.Envelope as E
@@ -29,13 +30,7 @@ baseUrl data =
         { logHttp =
             \r ->
                 ( E.HttpRequest r
-                , String.concat
-                    -- TODO: Move this to Internal.Config.Text module
-                    [ "Matrix HTTP: "
-                    , r.method
-                    , " "
-                    , r.url
-                    ]
+                , Text.logs.httpRequest r.method r.url
                     |> log.info
                     |> List.singleton
                 )
@@ -52,12 +47,7 @@ baseUrl data =
         , toUpdate =
             \info ->
                 ( E.SetBaseUrl info.homeserver.baseUrl
-                , String.concat
-                    [ "Found baseURL of "
-                    , data.url
-                    , " at address "
-                    , info.homeserver.baseUrl
-                    ]
+                , Text.logs.baseUrlFound data.url info.homeserver.baseUrl
                     |> log.debug
                     |> List.singleton
                 )
diff --git a/src/Internal/Api/GetEvent/Api.elm b/src/Internal/Api/GetEvent/Api.elm
index 4d07f04..dd10f0d 100644
--- a/src/Internal/Api/GetEvent/Api.elm
+++ b/src/Internal/Api/GetEvent/Api.elm
@@ -15,6 +15,7 @@ retrieve this event e.g. by being a member in the room for this event.
 import Internal.Api.Api as A
 import Internal.Api.Request as R
 import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Tools.Timestamp as Timestamp
 import Internal.Values.Envelope as E
@@ -85,7 +86,7 @@ getEventV1 { eventId, roomId } =
             \event ->
                 ( E.ContentUpdate <| V.MapRoom roomId (Room.AddEvent event)
                 , event.eventId
-                    |> (++) "Received event id "
+                    |> Text.logs.getEventId
                     |> log.debug
                     |> List.singleton
                 )
@@ -109,7 +110,7 @@ getEventV2 { eventId, roomId } =
             \event ->
                 ( E.ContentUpdate <| V.MapRoom roomId (Room.AddEvent event)
                 , event.eventId
-                    |> (++) "Received event id "
+                    |> Text.logs.getEventId
                     |> log.debug
                     |> List.singleton
                 )
diff --git a/src/Internal/Api/Invite/Api.elm b/src/Internal/Api/Invite/Api.elm
index 6bae710..e39c118 100644
--- a/src/Internal/Api/Invite/Api.elm
+++ b/src/Internal/Api/Invite/Api.elm
@@ -21,6 +21,7 @@ event to the room.
 import Internal.Api.Api as A
 import Internal.Api.Request as R
 import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Values.Envelope as E
 import Internal.Values.Room as Room
@@ -95,13 +96,7 @@ inviteV1 { roomId, user } =
         , toUpdate =
             always
                 ( E.ContentUpdate <| V.MapRoom roomId (Room.Invite user)
-                , String.concat
-                    -- TODO: Move to Internal.Config.Text
-                    [ "Invited user "
-                    , User.toString user
-                    , " to room "
-                    , roomId
-                    ]
+                , Text.logs.invitedUser (User.toString user) roomId
                     |> log.debug
                     |> List.singleton
                 )
@@ -125,13 +120,7 @@ inviteV2 { reason, roomId, user } =
         , toUpdate =
             always
                 ( E.ContentUpdate <| V.MapRoom roomId (Room.Invite user)
-                , String.concat
-                    -- TODO: Move to Internal.Config.Text
-                    [ "Invited user "
-                    , User.toString user
-                    , " to room "
-                    , roomId
-                    ]
+                , Text.logs.invitedUser (User.toString user) roomId
                     |> log.debug
                     |> List.singleton
                 )
diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index d35cdff..a839d2c 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -14,6 +14,8 @@ This module allows the user to log in using a username and password.
 import Internal.Api.Api as A
 import Internal.Api.Request as R
 import Internal.Config.Leaks as L
+import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Values.Context as Context
 import Internal.Values.Envelope as E
@@ -192,7 +194,9 @@ loginWithUsernameAndPasswordV1 { username, password } =
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -234,7 +238,9 @@ loginWithUsernameAndPasswordV2 { deviceId, initialDeviceDisplayName, username, p
                             |> Maybe.map E.SetDeviceId
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -283,7 +289,9 @@ loginWithUsernameAndPasswordV3 { deviceId, initialDeviceDisplayName, username, p
                             |> Maybe.map E.SetDeviceId
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -336,7 +344,9 @@ loginWithUsernameAndPasswordV4 { deviceId, initialDeviceDisplayName, username, p
                             |> Maybe.map E.SetDeviceId
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -389,7 +399,9 @@ loginWithUsernameAndPasswordV5 { deviceId, initialDeviceDisplayName, username, p
                             |> Maybe.map E.SetDeviceId
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -443,7 +455,9 @@ loginWithUsernameAndPasswordV6 { deviceId, enableRefreshToken, initialDeviceDisp
                             |> Maybe.map E.SetDeviceId
                             |> E.Optional
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
@@ -493,7 +507,9 @@ loginWithUsernameAndPasswordV7 { deviceId, enableRefreshToken, initialDeviceDisp
                             |> E.Optional
                         , E.SetDeviceId out.deviceId
                         ]
-                    , []
+                    , Text.logs.loggedInAs username
+                        |> log.debug
+                        |> List.singleton
                     )
             }
             context
diff --git a/src/Internal/Api/Now/Api.elm b/src/Internal/Api/Now/Api.elm
index f367ae1..da13831 100644
--- a/src/Internal/Api/Now/Api.elm
+++ b/src/Internal/Api/Now/Api.elm
@@ -13,6 +13,7 @@ Get the current time.
 
 import Internal.Api.Api as A
 import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Values.Context as Context
 import Internal.Values.Envelope as E
 import Task
@@ -28,10 +29,9 @@ getNow =
             (\now ->
                 { messages = [ E.SetNow now ]
                 , logs =
-                    [ "Identified current time at Unix time "
-                    , now |> Time.posixToMillis |> String.fromInt
-                    ]
-                        |> String.concat
+                    now
+                        |> Time.posixToMillis
+                        |> Text.logs.getNow
                         |> log.debug
                         |> List.singleton
                 , contextChange = Context.setNow now
diff --git a/src/Internal/Api/Request.elm b/src/Internal/Api/Request.elm
index 7f8ba4e..c4c8542 100644
--- a/src/Internal/Api/Request.elm
+++ b/src/Internal/Api/Request.elm
@@ -309,22 +309,22 @@ getBody attributes =
                     Nothing ->
                         case
                             List.filterMap
-                (\attr ->
-                    case attr of
-                        BodyParam key value ->
-                            Just ( key, value )
+                                (\attr ->
+                                    case attr of
+                                        BodyParam key value ->
+                                            Just ( key, value )
 
-                        _ ->
-                            Nothing
-                )
-                attributes
+                                        _ ->
+                                            Nothing
+                                )
+                                attributes
                         of
                             [] ->
                                 Nothing
 
                             head :: tail ->
                                 Just <| E.object (head :: tail)
-            )
+           )
 
 
 getHeaders : List ContextAttr -> List Http.Header
diff --git a/src/Internal/Api/SendMessageEvent/Api.elm b/src/Internal/Api/SendMessageEvent/Api.elm
index 3cc6ad9..a16491f 100644
--- a/src/Internal/Api/SendMessageEvent/Api.elm
+++ b/src/Internal/Api/SendMessageEvent/Api.elm
@@ -15,6 +15,7 @@ import Internal.Api.Api as A
 import Internal.Api.Request as R
 import Internal.Config.Leaks as L
 import Internal.Config.Log exposing (log)
+import Internal.Config.Text as Text
 import Internal.Tools.Json as Json
 import Internal.Values.Envelope as E
 
@@ -93,9 +94,7 @@ sendMessageEventV1 { content, eventType, roomId, transactionId } =
             \out ->
                 ( E.More []
                 , out.eventId
-                    |> Maybe.map ((++) ", received event id ")
-                    |> Maybe.withDefault ""
-                    |> (++) "Sent event"
+                    |> Text.logs.sendEvent
                     |> log.debug
                     |> List.singleton
                 )
@@ -114,7 +113,8 @@ sendMessageEventV2 { content, eventType, roomId, transactionId } =
             \out ->
                 ( E.More []
                 , out.eventId
-                    |> (++) "Sent event, received event id "
+                    |> Maybe.Just
+                    |> Text.logs.sendEvent
                     |> log.debug
                     |> List.singleton
                 )
@@ -133,7 +133,8 @@ sendMessageEventV3 { content, eventType, roomId, transactionId } =
             \out ->
                 ( E.More []
                 , out.eventId
-                    |> (++) "Sent event, received event id "
+                    |> Maybe.Just
+                    |> Text.logs.sendEvent
                     |> log.debug
                     |> List.singleton
                 )
@@ -178,7 +179,7 @@ coderV2 =
         , description =
             [ "This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room."
             , "The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event."
-            , "https://spec.matrix.org/legacy/r0.0.0/client_server.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid"
+            , "https://spec.matrix.org/legacy/client_server/r0.6.1.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid"
             ]
         , init = always SendMessageEventOutputV2
         }
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index c5c4932..431685a 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -545,18 +545,51 @@ happened. Most of these unexpected results, are taken account of by the Elm SDK,
 but logged so that the programmer can do something about it.
 -}
 logs :
-    { keyIsNotAnInt : String -> String
+    { baseUrlFound : String -> String -> String
+    , getEventId : String -> String
+    , getNow : Int -> String
+    , httpRequest : String -> String -> String
+    , invitedUser : String -> String -> String
+    , keyIsNotAnInt : String -> String
+    , loggedInAs : String -> String
+    , sendEvent : Maybe String -> String
     , serverReturnedInvalidJSON : String -> String
     , serverReturnedUnknownJSON : String -> String
     }
 logs =
-    { keyIsNotAnInt =
+    { baseUrlFound =
+        \url baseUrl ->
+            String.concat [ "Found baseURL of ", url, " at address ", baseUrl ]
+    , getEventId = (++) "Received event with id = "
+    , getNow =
+        \now ->
+            String.concat
+                [ "Identified current time at Unix time "
+                , String.fromInt now
+                ]
+    , httpRequest =
+        \method url -> String.concat [ "Matrix HTTP: ", method, " ", url ]
+    , invitedUser =
+        \userId roomId ->
+            String.concat [ "Invited user ", userId, " to room ", roomId ]
+    , keyIsNotAnInt =
         \key ->
             String.concat
                 [ "Encountered a key `"
                 , key
                 , "` that cannot be converted to an Int"
                 ]
+    , loggedInAs =
+        \username ->
+            String.concat [ "Successfully logged in as user ", username ]
+    , sendEvent =
+        \eventId ->
+            case eventId of
+                Just e ->
+                    "Sent event, received event id " ++ e
+
+                Nothing ->
+                    "Sent event, event id not known - make sure to check transaction id"
     , serverReturnedInvalidJSON = (++) "The server returned invalid JSON: "
     , serverReturnedUnknownJSON = (++) "The server returned JSON that doesn't seem to live up to spec rules: "
     }

From b0026617cf89d4289903483cdc923d88dcd9d75f Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Tue, 28 May 2024 18:20:01 +0200
Subject: [PATCH 29/36] Add JSON fields to Text module

---
 src/Internal/Api/Task.elm       | 42 +++++++++++++++++---
 src/Internal/Config/Text.elm    | 68 +++++++++++++++++++++++++++++++--
 src/Internal/Values/Context.elm | 28 +++++++-------
 src/Internal/Values/Vault.elm   |  2 +-
 4 files changed, 116 insertions(+), 24 deletions(-)

diff --git a/src/Internal/Api/Task.elm b/src/Internal/Api/Task.elm
index 2ec4b71..744b1d2 100644
--- a/src/Internal/Api/Task.elm
+++ b/src/Internal/Api/Task.elm
@@ -149,11 +149,43 @@ finishTask uftask =
                 }
             )
         |> C.catchWith
-            (\_ ->
-                { messages = [] -- TODO: Maybe categorize errors?
-                , logs = [ log.warn "Encountered unhandled error" ]
-                , contextChange = Context.reset
-                }
+            (\e ->
+                case e of
+                    Request.MissingPassword ->
+                        { messages = []
+                        , logs = [ log.error "Cannot log in - password is missing" ]
+                        , contextChange = Context.reset
+                        }
+
+                    Request.MissingUsername ->
+                        { messages = []
+                        , logs = [ log.error "Cannot log in - username is missing" ]
+                        , contextChange = Context.reset
+                        }
+
+                    Request.NoSupportedVersion ->
+                        { messages = []
+                        , logs = [ log.error "No supported version is available to complete the API interaction." ]
+                        , contextChange = Context.reset
+                        }
+
+                    Request.ServerReturnsBadJSON t ->
+                        { messages = []
+                        , logs = [ log.error ("The server returned invalid JSON: " ++ t) ]
+                        , contextChange = Context.reset
+                        }
+
+                    Request.ServerReturnsError name _ ->
+                        { messages = []
+                        , logs = [ log.error ("The server returns an error: " ++ name) ]
+                        , contextChange = Context.reset
+                        }
+
+                    _ ->
+                        { messages = [] -- TODO: Maybe categorize errors?
+                        , logs = [ log.warn "Encountered unhandled error" ]
+                        , contextChange = Context.reset
+                        }
             )
 
 
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index 431685a..256fb13 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -112,7 +112,8 @@ decodedDictSize from to =
 {-| Documentation used for all functions and data types in JSON coders
 -}
 docs :
-    { context : TypeDocs
+    { accessToken : TypeDocs
+    , context : TypeDocs
     , envelope : TypeDocs
     , event : TypeDocs
     , hashdict : TypeDocs
@@ -127,9 +128,16 @@ docs :
     , timelineFilter : TypeDocs
     , unsigned : TypeDocs
     , vault : TypeDocs
+    , versions : TypeDocs
     }
 docs =
-    { context =
+    { accessToken =
+        { name = "Access Token"
+        , description =
+            [ "The Access Token type stores information about an access token - its value, when it expires, and how one may get a new access token when the current value expires."
+            ]
+        }
+    , context =
         { name = "Context"
         , description =
             [ "The Context is the set of variables that the user (mostly) cannot control."
@@ -223,6 +231,12 @@ docs =
             [ "Main type storing all relevant information from the Matrix API."
             ]
         }
+    , versions =
+        { name = "Versions"
+        , description =
+            [ "Versions type describing the supported spec versions and MSC properties."
+            ]
+        }
     }
 
 
@@ -244,14 +258,24 @@ failures =
 what they do and what they are for.
 -}
 fields :
-    { context :
+    { accessToken :
+        { created : Desc
+        , expiryMs : Desc
+        , lastUsed : Desc
+        , refresh : Desc
+        , value : Desc
+        }
+    , context :
         { accessToken : Desc
         , baseUrl : Desc
+        , deviceId : Desc
         , experimental : Desc
+        , now : Desc
         , password : Desc
         , refreshToken : Desc
         , username : Desc
         , serverName : Desc
+        , suggestedAccessToken : Desc
         , transaction : Desc
         , versions : Desc
         }
@@ -321,25 +345,51 @@ fields :
     , vault :
         { accountData : Desc
         , rooms : Desc
+        , user : Desc
+        }
+    , versions :
+        { unstableFeatures : Desc
+        , versions : Desc
         }
     }
 fields =
-    { context =
+    { accessToken =
+        { created =
+            [ "Timestamp of when the access token was received." ]
+        , expiryMs =
+            [ "Given time in milliseconds of when the access token might expire." ]
+        , lastUsed =
+            [ "Timestamp of when the access token was last used." ]
+        , refresh =
+            [ "Refresh token used to gain a new access token." ]
+        , value =
+            [ "Secret access token value." ]
+        }
+    , context =
         { accessToken =
             [ "The access token used for authentication with the Matrix server."
             ]
         , baseUrl =
             [ "The base URL of the Matrix server."
             ]
+        , deviceId =
+            [ "The reported device ID according to the API."
+            ]
         , experimental =
             [ "Experimental features supported by the homeserver."
             ]
+        , now =
+            [ "The most recently found timestamp."
+            ]
         , password =
             [ "The user's password for authentication purposes."
             ]
         , refreshToken =
             [ "The token used to obtain a new access token upon expiration of the current access token."
             ]
+        , suggestedAccessToken =
+            [ "An access token provided with no context by the user."
+            ]
         , username =
             [ "The username of the Matrix account."
             ]
@@ -510,6 +560,16 @@ fields =
         , rooms =
             [ "Directory of joined rooms that the user is a member of."
             ]
+        , user =
+            [ "User that the Vault is logging in as."
+            ]
+        }
+    , versions =
+        { unstableFeatures =
+            [ "Unstable features such as experimental MSCs that are supported by a homeserver."
+            ]
+        , versions =
+            [ "Spec versions supported by a homeserver." ]
         }
     }
 
diff --git a/src/Internal/Values/Context.elm b/src/Internal/Values/Context.elm
index 01a595c..0449e7c 100644
--- a/src/Internal/Values/Context.elm
+++ b/src/Internal/Values/Context.elm
@@ -174,14 +174,14 @@ coder =
         (Json.field.optional.value
             { fieldName = "deviceId"
             , toField = .deviceId
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.context.deviceId
             , coder = Json.string
             }
         )
         (Json.field.optional.value
             { fieldName = "now"
             , toField = .now
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.context.now
             , coder = Timestamp.coder
             }
         )
@@ -209,7 +209,7 @@ coder =
         (Json.field.optional.value
             { fieldName = "suggestedAccessToken"
             , toField = always Nothing -- Do not save
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.context.suggestedAccessToken
             , coder = Json.string
             }
         )
@@ -241,42 +241,42 @@ coder =
 coderAccessToken : Json.Coder AccessToken
 coderAccessToken =
     Json.object5
-        { name = Debug.todo "Needs docs"
-        , description = Debug.todo "Needs docs"
+        { name = Text.docs.accessToken.name
+        , description = Text.docs.accessToken.description
         , init = AccessToken
         }
         (Json.field.required
             { fieldName = "created"
             , toField = .created
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.accessToken.created
             , coder = Timestamp.coder
             }
         )
         (Json.field.optional.value
             { fieldName = "expiryMs"
             , toField = .expiryMs
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.accessToken.expiryMs
             , coder = Json.int
             }
         )
         (Json.field.required
             { fieldName = "lastUsed"
             , toField = .lastUsed
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.accessToken.lastUsed
             , coder = Timestamp.coder
             }
         )
         (Json.field.optional.value
             { fieldName = "refresh"
             , toField = .refresh
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.accessToken.refresh
             , coder = Json.string
             }
         )
         (Json.field.required
             { fieldName = "value"
             , toField = .value
-            , description = Debug.todo "Needs docs"
+            , description = Text.fields.accessToken.value
             , coder = Json.string
             }
         )
@@ -422,21 +422,21 @@ setVersions value (APIContext c) =
 versionsCoder : Json.Coder Versions
 versionsCoder =
     Json.object2
-        { name = Debug.todo "Add name" -- Text.docs.versions.name
-        , description = Debug.todo "Add description" -- Text.docs.versions.description
+        { name = Text.docs.versions.name
+        , description = Text.docs.versions.description
         , init = Versions
         }
         (Json.field.required
             { fieldName = "versions"
             , toField = .versions
-            , description = Debug.todo "Add description"
+            , description = Text.fields.versions.versions
             , coder = Json.list Json.string
             }
         )
         (Json.field.optional.withDefault
             { fieldName = "unstableFeatures"
             , toField = .unstableFeatures
-            , description = Debug.todo "Add description"
+            , description = Text.fields.versions.unstableFeatures
             , coder = Json.set Json.string
             , default = ( Set.empty, [] )
             , defaultToString = Json.encode (Json.set Json.string) >> E.encode 0
diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index e62906c..5153553 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -84,7 +84,7 @@ coder =
         (Json.field.required
             { fieldName = "user"
             , toField = .user
-            , description = Debug.todo "Needs description"
+            , description = Text.fields.vault.user
             , coder = User.coder
             }
         )

From bec1ae4a3b23ac64849010170e3c94eabf1d9fee Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Tue, 28 May 2024 18:29:26 +0200
Subject: [PATCH 30/36] Fix merge conflict bug

---
 tests/Test/Values/Context.elm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests/Test/Values/Context.elm b/tests/Test/Values/Context.elm
index 6575512..47b142d 100644
--- a/tests/Test/Values/Context.elm
+++ b/tests/Test/Values/Context.elm
@@ -19,15 +19,18 @@ fuzzer =
         maybeString =
             Fuzz.maybe Fuzz.string
     in
-    Fuzz.map8 (\a b c d e f ( g, h ) ( i, j ) -> Context a b c d e f g h i j)
+    Fuzz.map8 (\a b c d e ( f, g ) ( h, i ) ( j, k ) -> Context a b c d e f g h i j k)
         (Fuzz.constant <| Hashdict.empty .value)
         maybeString
         maybeString
         (Fuzz.maybe TestTimestamp.fuzzer)
         maybeString
-        maybeString
         (Fuzz.pair
+            maybeString
             Fuzz.string
+        )
+        (Fuzz.pair
+            maybeString
             maybeString
         )
         (Fuzz.pair

From e8c0df004ebbcc8131521df240ff5886280af053 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 10:48:20 +0200
Subject: [PATCH 31/36] Add removePasswordOnLogin setting

---
 src/Internal/Config/Default.elm  | 16 +++++++
 src/Internal/Config/Text.elm     |  4 ++
 src/Internal/Values/Settings.elm | 19 +++++++-
 src/Matrix/Settings.elm          | 75 +++++++++++++++++++++++++-------
 4 files changed, 98 insertions(+), 16 deletions(-)

diff --git a/src/Internal/Config/Default.elm b/src/Internal/Config/Default.elm
index 737bb96..53a5db2 100644
--- a/src/Internal/Config/Default.elm
+++ b/src/Internal/Config/Default.elm
@@ -1,6 +1,7 @@
 module Internal.Config.Default exposing
     ( currentVersion, deviceName
     , syncTime
+    , removePasswordOnLogin
     )
 
 {-| This module hosts all default settings and configurations that the Vault
@@ -16,6 +17,11 @@ will assume until overriden by the user.
 
 @docs syncTime
 
+
+## Security
+
+@docs removePasswordOnLogin
+
 -}
 
 
@@ -52,3 +58,13 @@ The value is in miliseconds, so it is set at 30,000.
 syncTime : Int
 syncTime =
     30 * 1000
+
+
+{-| Once the Matrix API has logged in successfully, it does not need to remember
+the user's password. However, to keep the Vault logged in automatically, one may
+choose to remember the password in order to get a new access token when an old
+access token has expired.
+-}
+removePasswordOnLogin : Bool
+removePasswordOnLogin =
+    True
diff --git a/src/Internal/Config/Text.elm b/src/Internal/Config/Text.elm
index 256fb13..a63e936 100644
--- a/src/Internal/Config/Text.elm
+++ b/src/Internal/Config/Text.elm
@@ -321,6 +321,7 @@ fields :
     , settings :
         { currentVersion : Desc
         , deviceName : Desc
+        , removePasswordOnLogin : Desc
         , syncTime : Desc
         }
     , timeline :
@@ -501,6 +502,9 @@ fields =
         , deviceName =
             [ "Indicates the device name that is communicated to the Matrix API."
             ]
+        , removePasswordOnLogin =
+            [ "Remove the password as soon as a valid access token has been received."
+            ]
         , syncTime =
             [ "Indicates the frequency in miliseconds with which the Elm SDK should long-poll the /sync endpoint."
             ]
diff --git a/src/Internal/Values/Settings.elm b/src/Internal/Values/Settings.elm
index 4696b7a..eed039a 100644
--- a/src/Internal/Values/Settings.elm
+++ b/src/Internal/Values/Settings.elm
@@ -35,6 +35,7 @@ behave under the user's preferred settings.
 type alias Settings =
     { currentVersion : String
     , deviceName : String
+    , removePasswordOnLogin : Bool
     , syncTime : Int
     }
 
@@ -43,7 +44,7 @@ type alias Settings =
 -}
 coder : Json.Coder Settings
 coder =
-    Json.object3
+    Json.object4
         { name = Text.docs.settings.name
         , description = Text.docs.settings.description
         , init = Settings
@@ -66,6 +67,21 @@ coder =
             , defaultToString = identity
             }
         )
+        (Json.field.optional.withDefault
+            { fieldName = "removePasswordOnLogin"
+            , toField = .removePasswordOnLogin
+            , description = Text.fields.settings.removePasswordOnLogin
+            , coder = Json.bool
+            , default = Tuple.pair Default.removePasswordOnLogin []
+            , defaultToString =
+                \b ->
+                    if b then
+                        "true"
+
+                    else
+                        "false"
+            }
+        )
         (Json.field.optional.withDefault
             { fieldName = "syncTime"
             , toField = .syncTime
@@ -97,5 +113,6 @@ init : Settings
 init =
     { currentVersion = Default.currentVersion
     , deviceName = Default.deviceName
+    , removePasswordOnLogin = Default.removePasswordOnLogin
     , syncTime = Default.syncTime
     }
diff --git a/src/Matrix/Settings.elm b/src/Matrix/Settings.elm
index bd0102d..7c84e3b 100644
--- a/src/Matrix/Settings.elm
+++ b/src/Matrix/Settings.elm
@@ -2,6 +2,8 @@ module Matrix.Settings exposing
     ( setAccessToken, removeAccessToken
     , getDeviceName, setDeviceName
     , getSyncTime, setSyncTime
+    , setPassword
+    , removePassword, removePasswordOnLogin
     )
 
 {-| The Matrix Vault has lots of configurable variables that you rarely want to
@@ -50,20 +52,39 @@ The value is in miliseconds, so it is set at 30,000.
 
 @docs getSyncTime, setSyncTime
 
+
+## Password
+
+When a Vault wants to access the Matrix API, it needs an access token. This can
+either be provided directly, or the Vault can get one itself by using a password
+to log in.
+
+@docs setPassword
+
+For security reasons, it is not possible to read whatever password is stored in
+the Vault. An attacker with access to the memory might be able to find it,
+however, so the Vault offers ways to remove the password from memory.
+
+@docs removePassword, removePasswordOnLogin
+
 -}
 
 import Internal.Values.Envelope as Envelope
 import Types exposing (Vault(..))
 
 
-{-| Insert a suggested access token.
+{-| Determine the device name.
 -}
-setAccessToken : String -> Vault -> Vault
-setAccessToken token (Vault vault) =
-    vault
-        |> Envelope.mapContext
-            (\c -> { c | suggestedAccessToken = Just token })
-        |> Vault
+getDeviceName : Vault -> String
+getDeviceName (Vault vault) =
+    Envelope.extractSettings .deviceName vault
+
+
+{-| Determine the sync timeout value.
+-}
+getSyncTime : Vault -> Int
+getSyncTime (Vault vault) =
+    Envelope.extractSettings .syncTime vault
 
 
 {-| Remove an access token that has been inserted using the
@@ -80,11 +101,32 @@ removeAccessToken (Vault vault) =
         |> Vault
 
 
-{-| Determine the device name.
+{-| Remove a password that is stored in the Matrix Vault.
 -}
-getDeviceName : Vault -> String
-getDeviceName (Vault vault) =
-    Envelope.extractSettings .deviceName vault
+removePassword : Vault -> Vault
+removePassword (Vault vault) =
+    vault
+        |> Envelope.mapContext
+            (\c -> { c | password = Nothing })
+        |> Vault
+
+
+{-| Remove password from the Vault as soon as a valid access token has been
+received from the Matrix API.
+-}
+removePasswordOnLogin : Bool -> Vault -> Vault
+removePasswordOnLogin b (Vault vault) =
+    Vault <| Envelope.mapSettings (\s -> { s | removePasswordOnLogin = b }) vault
+
+
+{-| Insert a suggested access token.
+-}
+setAccessToken : String -> Vault -> Vault
+setAccessToken token (Vault vault) =
+    vault
+        |> Envelope.mapContext
+            (\c -> { c | suggestedAccessToken = Just token })
+        |> Vault
 
 
 {-| Override the device name.
@@ -94,11 +136,14 @@ setDeviceName name (Vault vault) =
     Vault <| Envelope.mapSettings (\s -> { s | deviceName = name }) vault
 
 
-{-| Determine the sync timeout value.
+{-| Set a password for the given user.
 -}
-getSyncTime : Vault -> Int
-getSyncTime (Vault vault) =
-    Envelope.extractSettings .syncTime vault
+setPassword : String -> Vault -> Vault
+setPassword password (Vault vault) =
+    vault
+        |> Envelope.mapContext
+            (\c -> { c | password = Just password })
+        |> Vault
 
 
 {-| Override the sync timeout value.

From b465ad1f4781669f76cd3c4632347cb1f4b99795 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 10:52:48 +0200
Subject: [PATCH 32/36] Remove password after login, if necessary

---
 src/Internal/Api/LoginWithUsernameAndPassword/Api.elm | 1 +
 src/Internal/Values/Envelope.elm                      | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index a839d2c..5ae8f29 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -190,6 +190,7 @@ loginWithUsernameAndPasswordV1 { username, password } =
                             , refresh = out.refreshToken
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
diff --git a/src/Internal/Values/Envelope.elm b/src/Internal/Values/Envelope.elm
index 9ecbef1..7823e62 100644
--- a/src/Internal/Values/Envelope.elm
+++ b/src/Internal/Values/Envelope.elm
@@ -78,6 +78,7 @@ type EnvelopeUpdate a
     | More (List (EnvelopeUpdate a))
     | Optional (Maybe (EnvelopeUpdate a))
     | RemoveAccessToken String
+    | RemovePasswordIfNecessary
     | SetAccessToken AccessToken
     | SetBaseUrl String
     | SetDeviceId String
@@ -311,6 +312,13 @@ update updateContent eu ({ context } as data) =
         RemoveAccessToken token ->
             { data | context = { context | accessTokens = Hashdict.removeKey token context.accessTokens } }
 
+        RemovePasswordIfNecessary ->
+            if data.settings.removePasswordOnLogin then
+                { data | context = { context | password = Nothing } }
+
+            else
+                data
+
         SetAccessToken a ->
             { data | context = { context | accessTokens = Hashdict.insert a context.accessTokens } }
 

From 994c99af1566a7922773d804c1684da784f60f74 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 13:53:56 +0200
Subject: [PATCH 33/36] Add RemovePasswordOnLogin feature

---
 index.html                                    | 16499 ++++++++++++++++
 .../Api/LoginWithUsernameAndPassword/Api.elm  |     6 +
 src/Matrix.elm                                |    15 +-
 3 files changed, 16515 insertions(+), 5 deletions(-)
 create mode 100644 index.html

diff --git a/index.html b/index.html
new file mode 100644
index 0000000..8d00860
--- /dev/null
+++ b/index.html
@@ -0,0 +1,16499 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+  <style>body { padding: 0; margin: 0; }</style>
+</head>
+
+<body>
+
+<pre id="elm"></pre>
+
+<script>
+try {
+(function(scope){
+'use strict';
+
+function F(arity, fun, wrapper) {
+  wrapper.a = arity;
+  wrapper.f = fun;
+  return wrapper;
+}
+
+function F2(fun) {
+  return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
+}
+function F3(fun) {
+  return F(3, fun, function(a) {
+    return function(b) { return function(c) { return fun(a, b, c); }; };
+  });
+}
+function F4(fun) {
+  return F(4, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return fun(a, b, c, d); }; }; };
+  });
+}
+function F5(fun) {
+  return F(5, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
+  });
+}
+function F6(fun) {
+  return F(6, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return fun(a, b, c, d, e, f); }; }; }; }; };
+  });
+}
+function F7(fun) {
+  return F(7, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
+  });
+}
+function F8(fun) {
+  return F(8, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return function(h) {
+    return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
+  });
+}
+function F9(fun) {
+  return F(9, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return function(h) { return function(i) {
+    return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
+  });
+}
+
+function A2(fun, a, b) {
+  return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
+}
+function A3(fun, a, b, c) {
+  return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
+}
+function A4(fun, a, b, c, d) {
+  return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
+}
+function A5(fun, a, b, c, d, e) {
+  return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
+}
+function A6(fun, a, b, c, d, e, f) {
+  return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
+}
+function A7(fun, a, b, c, d, e, f, g) {
+  return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
+}
+function A8(fun, a, b, c, d, e, f, g, h) {
+  return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
+}
+function A9(fun, a, b, c, d, e, f, g, h, i) {
+  return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
+}
+
+console.warn('Compiled in DEBUG mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
+
+
+// EQUALITY
+
+function _Utils_eq(x, y)
+{
+	for (
+		var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
+		isEqual && (pair = stack.pop());
+		isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
+		)
+	{}
+
+	return isEqual;
+}
+
+function _Utils_eqHelp(x, y, depth, stack)
+{
+	if (x === y)
+	{
+		return true;
+	}
+
+	if (typeof x !== 'object' || x === null || y === null)
+	{
+		typeof x === 'function' && _Debug_crash(5);
+		return false;
+	}
+
+	if (depth > 100)
+	{
+		stack.push(_Utils_Tuple2(x,y));
+		return true;
+	}
+
+	/**/
+	if (x.$ === 'Set_elm_builtin')
+	{
+		x = $elm$core$Set$toList(x);
+		y = $elm$core$Set$toList(y);
+	}
+	if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
+	{
+		x = $elm$core$Dict$toList(x);
+		y = $elm$core$Dict$toList(y);
+	}
+	//*/
+
+	/**_UNUSED/
+	if (x.$ < 0)
+	{
+		x = $elm$core$Dict$toList(x);
+		y = $elm$core$Dict$toList(y);
+	}
+	//*/
+
+	for (var key in x)
+	{
+		if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
+		{
+			return false;
+		}
+	}
+	return true;
+}
+
+var _Utils_equal = F2(_Utils_eq);
+var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
+
+
+
+// COMPARISONS
+
+// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
+// the particular integer values assigned to LT, EQ, and GT.
+
+function _Utils_cmp(x, y, ord)
+{
+	if (typeof x !== 'object')
+	{
+		return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
+	}
+
+	/**/
+	if (x instanceof String)
+	{
+		var a = x.valueOf();
+		var b = y.valueOf();
+		return a === b ? 0 : a < b ? -1 : 1;
+	}
+	//*/
+
+	/**_UNUSED/
+	if (typeof x.$ === 'undefined')
+	//*/
+	/**/
+	if (x.$[0] === '#')
+	//*/
+	{
+		return (ord = _Utils_cmp(x.a, y.a))
+			? ord
+			: (ord = _Utils_cmp(x.b, y.b))
+				? ord
+				: _Utils_cmp(x.c, y.c);
+	}
+
+	// traverse conses until end of a list or a mismatch
+	for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
+	return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
+}
+
+var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
+var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
+var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
+var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
+
+var _Utils_compare = F2(function(x, y)
+{
+	var n = _Utils_cmp(x, y);
+	return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
+});
+
+
+// COMMON VALUES
+
+var _Utils_Tuple0_UNUSED = 0;
+var _Utils_Tuple0 = { $: '#0' };
+
+function _Utils_Tuple2_UNUSED(a, b) { return { a: a, b: b }; }
+function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
+
+function _Utils_Tuple3_UNUSED(a, b, c) { return { a: a, b: b, c: c }; }
+function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
+
+function _Utils_chr_UNUSED(c) { return c; }
+function _Utils_chr(c) { return new String(c); }
+
+
+// RECORDS
+
+function _Utils_update(oldRecord, updatedFields)
+{
+	var newRecord = {};
+
+	for (var key in oldRecord)
+	{
+		newRecord[key] = oldRecord[key];
+	}
+
+	for (var key in updatedFields)
+	{
+		newRecord[key] = updatedFields[key];
+	}
+
+	return newRecord;
+}
+
+
+// APPEND
+
+var _Utils_append = F2(_Utils_ap);
+
+function _Utils_ap(xs, ys)
+{
+	// append Strings
+	if (typeof xs === 'string')
+	{
+		return xs + ys;
+	}
+
+	// append Lists
+	if (!xs.b)
+	{
+		return ys;
+	}
+	var root = _List_Cons(xs.a, ys);
+	xs = xs.b
+	for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
+	{
+		curr = curr.b = _List_Cons(xs.a, ys);
+	}
+	return root;
+}
+
+
+
+var _List_Nil_UNUSED = { $: 0 };
+var _List_Nil = { $: '[]' };
+
+function _List_Cons_UNUSED(hd, tl) { return { $: 1, a: hd, b: tl }; }
+function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
+
+
+var _List_cons = F2(_List_Cons);
+
+function _List_fromArray(arr)
+{
+	var out = _List_Nil;
+	for (var i = arr.length; i--; )
+	{
+		out = _List_Cons(arr[i], out);
+	}
+	return out;
+}
+
+function _List_toArray(xs)
+{
+	for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
+	{
+		out.push(xs.a);
+	}
+	return out;
+}
+
+var _List_map2 = F3(function(f, xs, ys)
+{
+	for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
+	{
+		arr.push(A2(f, xs.a, ys.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map3 = F4(function(f, xs, ys, zs)
+{
+	for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A3(f, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map4 = F5(function(f, ws, xs, ys, zs)
+{
+	for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
+{
+	for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_sortBy = F2(function(f, xs)
+{
+	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
+		return _Utils_cmp(f(a), f(b));
+	}));
+});
+
+var _List_sortWith = F2(function(f, xs)
+{
+	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
+		var ord = A2(f, a, b);
+		return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
+	}));
+});
+
+
+
+var _JsArray_empty = [];
+
+function _JsArray_singleton(value)
+{
+    return [value];
+}
+
+function _JsArray_length(array)
+{
+    return array.length;
+}
+
+var _JsArray_initialize = F3(function(size, offset, func)
+{
+    var result = new Array(size);
+
+    for (var i = 0; i < size; i++)
+    {
+        result[i] = func(offset + i);
+    }
+
+    return result;
+});
+
+var _JsArray_initializeFromList = F2(function (max, ls)
+{
+    var result = new Array(max);
+
+    for (var i = 0; i < max && ls.b; i++)
+    {
+        result[i] = ls.a;
+        ls = ls.b;
+    }
+
+    result.length = i;
+    return _Utils_Tuple2(result, ls);
+});
+
+var _JsArray_unsafeGet = F2(function(index, array)
+{
+    return array[index];
+});
+
+var _JsArray_unsafeSet = F3(function(index, value, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = array[i];
+    }
+
+    result[index] = value;
+    return result;
+});
+
+var _JsArray_push = F2(function(value, array)
+{
+    var length = array.length;
+    var result = new Array(length + 1);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = array[i];
+    }
+
+    result[length] = value;
+    return result;
+});
+
+var _JsArray_foldl = F3(function(func, acc, array)
+{
+    var length = array.length;
+
+    for (var i = 0; i < length; i++)
+    {
+        acc = A2(func, array[i], acc);
+    }
+
+    return acc;
+});
+
+var _JsArray_foldr = F3(function(func, acc, array)
+{
+    for (var i = array.length - 1; i >= 0; i--)
+    {
+        acc = A2(func, array[i], acc);
+    }
+
+    return acc;
+});
+
+var _JsArray_map = F2(function(func, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = func(array[i]);
+    }
+
+    return result;
+});
+
+var _JsArray_indexedMap = F3(function(func, offset, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = A2(func, offset + i, array[i]);
+    }
+
+    return result;
+});
+
+var _JsArray_slice = F3(function(from, to, array)
+{
+    return array.slice(from, to);
+});
+
+var _JsArray_appendN = F3(function(n, dest, source)
+{
+    var destLen = dest.length;
+    var itemsToCopy = n - destLen;
+
+    if (itemsToCopy > source.length)
+    {
+        itemsToCopy = source.length;
+    }
+
+    var size = destLen + itemsToCopy;
+    var result = new Array(size);
+
+    for (var i = 0; i < destLen; i++)
+    {
+        result[i] = dest[i];
+    }
+
+    for (var i = 0; i < itemsToCopy; i++)
+    {
+        result[i + destLen] = source[i];
+    }
+
+    return result;
+});
+
+
+
+// LOG
+
+var _Debug_log_UNUSED = F2(function(tag, value)
+{
+	return value;
+});
+
+var _Debug_log = F2(function(tag, value)
+{
+	console.log(tag + ': ' + _Debug_toString(value));
+	return value;
+});
+
+
+// TODOS
+
+function _Debug_todo(moduleName, region)
+{
+	return function(message) {
+		_Debug_crash(8, moduleName, region, message);
+	};
+}
+
+function _Debug_todoCase(moduleName, region, value)
+{
+	return function(message) {
+		_Debug_crash(9, moduleName, region, value, message);
+	};
+}
+
+
+// TO STRING
+
+function _Debug_toString_UNUSED(value)
+{
+	return '<internals>';
+}
+
+function _Debug_toString(value)
+{
+	return _Debug_toAnsiString(false, value);
+}
+
+function _Debug_toAnsiString(ansi, value)
+{
+	if (typeof value === 'function')
+	{
+		return _Debug_internalColor(ansi, '<function>');
+	}
+
+	if (typeof value === 'boolean')
+	{
+		return _Debug_ctorColor(ansi, value ? 'True' : 'False');
+	}
+
+	if (typeof value === 'number')
+	{
+		return _Debug_numberColor(ansi, value + '');
+	}
+
+	if (value instanceof String)
+	{
+		return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
+	}
+
+	if (typeof value === 'string')
+	{
+		return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
+	}
+
+	if (typeof value === 'object' && '$' in value)
+	{
+		var tag = value.$;
+
+		if (typeof tag === 'number')
+		{
+			return _Debug_internalColor(ansi, '<internals>');
+		}
+
+		if (tag[0] === '#')
+		{
+			var output = [];
+			for (var k in value)
+			{
+				if (k === '$') continue;
+				output.push(_Debug_toAnsiString(ansi, value[k]));
+			}
+			return '(' + output.join(',') + ')';
+		}
+
+		if (tag === 'Set_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Set')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
+		}
+
+		if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Dict')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
+		}
+
+		if (tag === 'Array_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Array')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
+		}
+
+		if (tag === '::' || tag === '[]')
+		{
+			var output = '[';
+
+			value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
+
+			for (; value.b; value = value.b) // WHILE_CONS
+			{
+				output += ',' + _Debug_toAnsiString(ansi, value.a);
+			}
+			return output + ']';
+		}
+
+		var output = '';
+		for (var i in value)
+		{
+			if (i === '$') continue;
+			var str = _Debug_toAnsiString(ansi, value[i]);
+			var c0 = str[0];
+			var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
+			output += ' ' + (parenless ? str : '(' + str + ')');
+		}
+		return _Debug_ctorColor(ansi, tag) + output;
+	}
+
+	if (typeof DataView === 'function' && value instanceof DataView)
+	{
+		return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
+	}
+
+	if (typeof File !== 'undefined' && value instanceof File)
+	{
+		return _Debug_internalColor(ansi, '<' + value.name + '>');
+	}
+
+	if (typeof value === 'object')
+	{
+		var output = [];
+		for (var key in value)
+		{
+			var field = key[0] === '_' ? key.slice(1) : key;
+			output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
+		}
+		if (output.length === 0)
+		{
+			return '{}';
+		}
+		return '{ ' + output.join(', ') + ' }';
+	}
+
+	return _Debug_internalColor(ansi, '<internals>');
+}
+
+function _Debug_addSlashes(str, isChar)
+{
+	var s = str
+		.replace(/\\/g, '\\\\')
+		.replace(/\n/g, '\\n')
+		.replace(/\t/g, '\\t')
+		.replace(/\r/g, '\\r')
+		.replace(/\v/g, '\\v')
+		.replace(/\0/g, '\\0');
+
+	if (isChar)
+	{
+		return s.replace(/\'/g, '\\\'');
+	}
+	else
+	{
+		return s.replace(/\"/g, '\\"');
+	}
+}
+
+function _Debug_ctorColor(ansi, string)
+{
+	return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_numberColor(ansi, string)
+{
+	return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_stringColor(ansi, string)
+{
+	return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_charColor(ansi, string)
+{
+	return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_fadeColor(ansi, string)
+{
+	return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_internalColor(ansi, string)
+{
+	return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_toHexDigit(n)
+{
+	return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
+}
+
+
+// CRASH
+
+
+function _Debug_crash_UNUSED(identifier)
+{
+	throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md');
+}
+
+
+function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
+{
+	switch(identifier)
+	{
+		case 0:
+			throw new Error('What node should I take over? In JavaScript I need something like:\n\n    Elm.Main.init({\n        node: document.getElementById("elm-node")\n    })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
+
+		case 1:
+			throw new Error('Browser.application programs cannot handle URLs like this:\n\n    ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
+
+		case 2:
+			var jsonErrorString = fact1;
+			throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
+
+		case 3:
+			var portName = fact1;
+			throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
+
+		case 4:
+			var portName = fact1;
+			var problem = fact2;
+			throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
+
+		case 5:
+			throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
+
+		case 6:
+			var moduleName = fact1;
+			throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
+
+		case 8:
+			var moduleName = fact1;
+			var region = fact2;
+			var message = fact3;
+			throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
+
+		case 9:
+			var moduleName = fact1;
+			var region = fact2;
+			var value = fact3;
+			var message = fact4;
+			throw new Error(
+				'TODO in module `' + moduleName + '` from the `case` expression '
+				+ _Debug_regionToString(region) + '\n\nIt received the following value:\n\n    '
+				+ _Debug_toString(value).replace('\n', '\n    ')
+				+ '\n\nBut the branch that handles it says:\n\n    ' + message.replace('\n', '\n    ')
+			);
+
+		case 10:
+			throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
+
+		case 11:
+			throw new Error('Cannot perform mod 0. Division by zero error.');
+	}
+}
+
+function _Debug_regionToString(region)
+{
+	if (region.start.line === region.end.line)
+	{
+		return 'on line ' + region.start.line;
+	}
+	return 'on lines ' + region.start.line + ' through ' + region.end.line;
+}
+
+
+
+// MATH
+
+var _Basics_add = F2(function(a, b) { return a + b; });
+var _Basics_sub = F2(function(a, b) { return a - b; });
+var _Basics_mul = F2(function(a, b) { return a * b; });
+var _Basics_fdiv = F2(function(a, b) { return a / b; });
+var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
+var _Basics_pow = F2(Math.pow);
+
+var _Basics_remainderBy = F2(function(b, a) { return a % b; });
+
+// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
+var _Basics_modBy = F2(function(modulus, x)
+{
+	var answer = x % modulus;
+	return modulus === 0
+		? _Debug_crash(11)
+		:
+	((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
+		? answer + modulus
+		: answer;
+});
+
+
+// TRIGONOMETRY
+
+var _Basics_pi = Math.PI;
+var _Basics_e = Math.E;
+var _Basics_cos = Math.cos;
+var _Basics_sin = Math.sin;
+var _Basics_tan = Math.tan;
+var _Basics_acos = Math.acos;
+var _Basics_asin = Math.asin;
+var _Basics_atan = Math.atan;
+var _Basics_atan2 = F2(Math.atan2);
+
+
+// MORE MATH
+
+function _Basics_toFloat(x) { return x; }
+function _Basics_truncate(n) { return n | 0; }
+function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
+
+var _Basics_ceiling = Math.ceil;
+var _Basics_floor = Math.floor;
+var _Basics_round = Math.round;
+var _Basics_sqrt = Math.sqrt;
+var _Basics_log = Math.log;
+var _Basics_isNaN = isNaN;
+
+
+// BOOLEANS
+
+function _Basics_not(bool) { return !bool; }
+var _Basics_and = F2(function(a, b) { return a && b; });
+var _Basics_or  = F2(function(a, b) { return a || b; });
+var _Basics_xor = F2(function(a, b) { return a !== b; });
+
+
+
+var _String_cons = F2(function(chr, str)
+{
+	return chr + str;
+});
+
+function _String_uncons(string)
+{
+	var word = string.charCodeAt(0);
+	return !isNaN(word)
+		? $elm$core$Maybe$Just(
+			0xD800 <= word && word <= 0xDBFF
+				? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
+				: _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
+		)
+		: $elm$core$Maybe$Nothing;
+}
+
+var _String_append = F2(function(a, b)
+{
+	return a + b;
+});
+
+function _String_length(str)
+{
+	return str.length;
+}
+
+var _String_map = F2(function(func, string)
+{
+	var len = string.length;
+	var array = new Array(len);
+	var i = 0;
+	while (i < len)
+	{
+		var word = string.charCodeAt(i);
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			array[i] = func(_Utils_chr(string[i] + string[i+1]));
+			i += 2;
+			continue;
+		}
+		array[i] = func(_Utils_chr(string[i]));
+		i++;
+	}
+	return array.join('');
+});
+
+var _String_filter = F2(function(isGood, str)
+{
+	var arr = [];
+	var len = str.length;
+	var i = 0;
+	while (i < len)
+	{
+		var char = str[i];
+		var word = str.charCodeAt(i);
+		i++;
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			char += str[i];
+			i++;
+		}
+
+		if (isGood(_Utils_chr(char)))
+		{
+			arr.push(char);
+		}
+	}
+	return arr.join('');
+});
+
+function _String_reverse(str)
+{
+	var len = str.length;
+	var arr = new Array(len);
+	var i = 0;
+	while (i < len)
+	{
+		var word = str.charCodeAt(i);
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			arr[len - i] = str[i + 1];
+			i++;
+			arr[len - i] = str[i - 1];
+			i++;
+		}
+		else
+		{
+			arr[len - i] = str[i];
+			i++;
+		}
+	}
+	return arr.join('');
+}
+
+var _String_foldl = F3(function(func, state, string)
+{
+	var len = string.length;
+	var i = 0;
+	while (i < len)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		i++;
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			char += string[i];
+			i++;
+		}
+		state = A2(func, _Utils_chr(char), state);
+	}
+	return state;
+});
+
+var _String_foldr = F3(function(func, state, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		state = A2(func, _Utils_chr(char), state);
+	}
+	return state;
+});
+
+var _String_split = F2(function(sep, str)
+{
+	return str.split(sep);
+});
+
+var _String_join = F2(function(sep, strs)
+{
+	return strs.join(sep);
+});
+
+var _String_slice = F3(function(start, end, str) {
+	return str.slice(start, end);
+});
+
+function _String_trim(str)
+{
+	return str.trim();
+}
+
+function _String_trimLeft(str)
+{
+	return str.replace(/^\s+/, '');
+}
+
+function _String_trimRight(str)
+{
+	return str.replace(/\s+$/, '');
+}
+
+function _String_words(str)
+{
+	return _List_fromArray(str.trim().split(/\s+/g));
+}
+
+function _String_lines(str)
+{
+	return _List_fromArray(str.split(/\r\n|\r|\n/g));
+}
+
+function _String_toUpper(str)
+{
+	return str.toUpperCase();
+}
+
+function _String_toLower(str)
+{
+	return str.toLowerCase();
+}
+
+var _String_any = F2(function(isGood, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		if (isGood(_Utils_chr(char)))
+		{
+			return true;
+		}
+	}
+	return false;
+});
+
+var _String_all = F2(function(isGood, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		if (!isGood(_Utils_chr(char)))
+		{
+			return false;
+		}
+	}
+	return true;
+});
+
+var _String_contains = F2(function(sub, str)
+{
+	return str.indexOf(sub) > -1;
+});
+
+var _String_startsWith = F2(function(sub, str)
+{
+	return str.indexOf(sub) === 0;
+});
+
+var _String_endsWith = F2(function(sub, str)
+{
+	return str.length >= sub.length &&
+		str.lastIndexOf(sub) === str.length - sub.length;
+});
+
+var _String_indexes = F2(function(sub, str)
+{
+	var subLen = sub.length;
+
+	if (subLen < 1)
+	{
+		return _List_Nil;
+	}
+
+	var i = 0;
+	var is = [];
+
+	while ((i = str.indexOf(sub, i)) > -1)
+	{
+		is.push(i);
+		i = i + subLen;
+	}
+
+	return _List_fromArray(is);
+});
+
+
+// TO STRING
+
+function _String_fromNumber(number)
+{
+	return number + '';
+}
+
+
+// INT CONVERSIONS
+
+function _String_toInt(str)
+{
+	var total = 0;
+	var code0 = str.charCodeAt(0);
+	var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
+
+	for (var i = start; i < str.length; ++i)
+	{
+		var code = str.charCodeAt(i);
+		if (code < 0x30 || 0x39 < code)
+		{
+			return $elm$core$Maybe$Nothing;
+		}
+		total = 10 * total + code - 0x30;
+	}
+
+	return i == start
+		? $elm$core$Maybe$Nothing
+		: $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
+}
+
+
+// FLOAT CONVERSIONS
+
+function _String_toFloat(s)
+{
+	// check if it is a hex, octal, or binary number
+	if (s.length === 0 || /[\sxbo]/.test(s))
+	{
+		return $elm$core$Maybe$Nothing;
+	}
+	var n = +s;
+	// faster isNaN check
+	return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
+}
+
+function _String_fromList(chars)
+{
+	return _List_toArray(chars).join('');
+}
+
+
+
+
+function _Char_toCode(char)
+{
+	var code = char.charCodeAt(0);
+	if (0xD800 <= code && code <= 0xDBFF)
+	{
+		return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
+	}
+	return code;
+}
+
+function _Char_fromCode(code)
+{
+	return _Utils_chr(
+		(code < 0 || 0x10FFFF < code)
+			? '\uFFFD'
+			:
+		(code <= 0xFFFF)
+			? String.fromCharCode(code)
+			:
+		(code -= 0x10000,
+			String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
+		)
+	);
+}
+
+function _Char_toUpper(char)
+{
+	return _Utils_chr(char.toUpperCase());
+}
+
+function _Char_toLower(char)
+{
+	return _Utils_chr(char.toLowerCase());
+}
+
+function _Char_toLocaleUpper(char)
+{
+	return _Utils_chr(char.toLocaleUpperCase());
+}
+
+function _Char_toLocaleLower(char)
+{
+	return _Utils_chr(char.toLocaleLowerCase());
+}
+
+
+
+/**/
+function _Json_errorToString(error)
+{
+	return $elm$json$Json$Decode$errorToString(error);
+}
+//*/
+
+
+// CORE DECODERS
+
+function _Json_succeed(msg)
+{
+	return {
+		$: 0,
+		a: msg
+	};
+}
+
+function _Json_fail(msg)
+{
+	return {
+		$: 1,
+		a: msg
+	};
+}
+
+function _Json_decodePrim(decoder)
+{
+	return { $: 2, b: decoder };
+}
+
+var _Json_decodeInt = _Json_decodePrim(function(value) {
+	return (typeof value !== 'number')
+		? _Json_expecting('an INT', value)
+		:
+	(-2147483647 < value && value < 2147483647 && (value | 0) === value)
+		? $elm$core$Result$Ok(value)
+		:
+	(isFinite(value) && !(value % 1))
+		? $elm$core$Result$Ok(value)
+		: _Json_expecting('an INT', value);
+});
+
+var _Json_decodeBool = _Json_decodePrim(function(value) {
+	return (typeof value === 'boolean')
+		? $elm$core$Result$Ok(value)
+		: _Json_expecting('a BOOL', value);
+});
+
+var _Json_decodeFloat = _Json_decodePrim(function(value) {
+	return (typeof value === 'number')
+		? $elm$core$Result$Ok(value)
+		: _Json_expecting('a FLOAT', value);
+});
+
+var _Json_decodeValue = _Json_decodePrim(function(value) {
+	return $elm$core$Result$Ok(_Json_wrap(value));
+});
+
+var _Json_decodeString = _Json_decodePrim(function(value) {
+	return (typeof value === 'string')
+		? $elm$core$Result$Ok(value)
+		: (value instanceof String)
+			? $elm$core$Result$Ok(value + '')
+			: _Json_expecting('a STRING', value);
+});
+
+function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
+function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
+
+function _Json_decodeNull(value) { return { $: 5, c: value }; }
+
+var _Json_decodeField = F2(function(field, decoder)
+{
+	return {
+		$: 6,
+		d: field,
+		b: decoder
+	};
+});
+
+var _Json_decodeIndex = F2(function(index, decoder)
+{
+	return {
+		$: 7,
+		e: index,
+		b: decoder
+	};
+});
+
+function _Json_decodeKeyValuePairs(decoder)
+{
+	return {
+		$: 8,
+		b: decoder
+	};
+}
+
+function _Json_mapMany(f, decoders)
+{
+	return {
+		$: 9,
+		f: f,
+		g: decoders
+	};
+}
+
+var _Json_andThen = F2(function(callback, decoder)
+{
+	return {
+		$: 10,
+		b: decoder,
+		h: callback
+	};
+});
+
+function _Json_oneOf(decoders)
+{
+	return {
+		$: 11,
+		g: decoders
+	};
+}
+
+
+// DECODING OBJECTS
+
+var _Json_map1 = F2(function(f, d1)
+{
+	return _Json_mapMany(f, [d1]);
+});
+
+var _Json_map2 = F3(function(f, d1, d2)
+{
+	return _Json_mapMany(f, [d1, d2]);
+});
+
+var _Json_map3 = F4(function(f, d1, d2, d3)
+{
+	return _Json_mapMany(f, [d1, d2, d3]);
+});
+
+var _Json_map4 = F5(function(f, d1, d2, d3, d4)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4]);
+});
+
+var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
+});
+
+var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
+});
+
+var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
+});
+
+var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
+});
+
+
+// DECODE
+
+var _Json_runOnString = F2(function(decoder, string)
+{
+	try
+	{
+		var value = JSON.parse(string);
+		return _Json_runHelp(decoder, value);
+	}
+	catch (e)
+	{
+		return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
+	}
+});
+
+var _Json_run = F2(function(decoder, value)
+{
+	return _Json_runHelp(decoder, _Json_unwrap(value));
+});
+
+function _Json_runHelp(decoder, value)
+{
+	switch (decoder.$)
+	{
+		case 2:
+			return decoder.b(value);
+
+		case 5:
+			return (value === null)
+				? $elm$core$Result$Ok(decoder.c)
+				: _Json_expecting('null', value);
+
+		case 3:
+			if (!_Json_isArray(value))
+			{
+				return _Json_expecting('a LIST', value);
+			}
+			return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
+
+		case 4:
+			if (!_Json_isArray(value))
+			{
+				return _Json_expecting('an ARRAY', value);
+			}
+			return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
+
+		case 6:
+			var field = decoder.d;
+			if (typeof value !== 'object' || value === null || !(field in value))
+			{
+				return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
+			}
+			var result = _Json_runHelp(decoder.b, value[field]);
+			return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
+
+		case 7:
+			var index = decoder.e;
+			if (!_Json_isArray(value))
+			{
+				return _Json_expecting('an ARRAY', value);
+			}
+			if (index >= value.length)
+			{
+				return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
+			}
+			var result = _Json_runHelp(decoder.b, value[index]);
+			return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
+
+		case 8:
+			if (typeof value !== 'object' || value === null || _Json_isArray(value))
+			{
+				return _Json_expecting('an OBJECT', value);
+			}
+
+			var keyValuePairs = _List_Nil;
+			// TODO test perf of Object.keys and switch when support is good enough
+			for (var key in value)
+			{
+				if (value.hasOwnProperty(key))
+				{
+					var result = _Json_runHelp(decoder.b, value[key]);
+					if (!$elm$core$Result$isOk(result))
+					{
+						return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
+					}
+					keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
+				}
+			}
+			return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
+
+		case 9:
+			var answer = decoder.f;
+			var decoders = decoder.g;
+			for (var i = 0; i < decoders.length; i++)
+			{
+				var result = _Json_runHelp(decoders[i], value);
+				if (!$elm$core$Result$isOk(result))
+				{
+					return result;
+				}
+				answer = answer(result.a);
+			}
+			return $elm$core$Result$Ok(answer);
+
+		case 10:
+			var result = _Json_runHelp(decoder.b, value);
+			return (!$elm$core$Result$isOk(result))
+				? result
+				: _Json_runHelp(decoder.h(result.a), value);
+
+		case 11:
+			var errors = _List_Nil;
+			for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
+			{
+				var result = _Json_runHelp(temp.a, value);
+				if ($elm$core$Result$isOk(result))
+				{
+					return result;
+				}
+				errors = _List_Cons(result.a, errors);
+			}
+			return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
+
+		case 1:
+			return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
+
+		case 0:
+			return $elm$core$Result$Ok(decoder.a);
+	}
+}
+
+function _Json_runArrayDecoder(decoder, value, toElmValue)
+{
+	var len = value.length;
+	var array = new Array(len);
+	for (var i = 0; i < len; i++)
+	{
+		var result = _Json_runHelp(decoder, value[i]);
+		if (!$elm$core$Result$isOk(result))
+		{
+			return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
+		}
+		array[i] = result.a;
+	}
+	return $elm$core$Result$Ok(toElmValue(array));
+}
+
+function _Json_isArray(value)
+{
+	return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
+}
+
+function _Json_toElmArray(array)
+{
+	return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
+}
+
+function _Json_expecting(type, value)
+{
+	return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
+}
+
+
+// EQUALITY
+
+function _Json_equality(x, y)
+{
+	if (x === y)
+	{
+		return true;
+	}
+
+	if (x.$ !== y.$)
+	{
+		return false;
+	}
+
+	switch (x.$)
+	{
+		case 0:
+		case 1:
+			return x.a === y.a;
+
+		case 2:
+			return x.b === y.b;
+
+		case 5:
+			return x.c === y.c;
+
+		case 3:
+		case 4:
+		case 8:
+			return _Json_equality(x.b, y.b);
+
+		case 6:
+			return x.d === y.d && _Json_equality(x.b, y.b);
+
+		case 7:
+			return x.e === y.e && _Json_equality(x.b, y.b);
+
+		case 9:
+			return x.f === y.f && _Json_listEquality(x.g, y.g);
+
+		case 10:
+			return x.h === y.h && _Json_equality(x.b, y.b);
+
+		case 11:
+			return _Json_listEquality(x.g, y.g);
+	}
+}
+
+function _Json_listEquality(aDecoders, bDecoders)
+{
+	var len = aDecoders.length;
+	if (len !== bDecoders.length)
+	{
+		return false;
+	}
+	for (var i = 0; i < len; i++)
+	{
+		if (!_Json_equality(aDecoders[i], bDecoders[i]))
+		{
+			return false;
+		}
+	}
+	return true;
+}
+
+
+// ENCODE
+
+var _Json_encode = F2(function(indentLevel, value)
+{
+	return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
+});
+
+function _Json_wrap(value) { return { $: 0, a: value }; }
+function _Json_unwrap(value) { return value.a; }
+
+function _Json_wrap_UNUSED(value) { return value; }
+function _Json_unwrap_UNUSED(value) { return value; }
+
+function _Json_emptyArray() { return []; }
+function _Json_emptyObject() { return {}; }
+
+var _Json_addField = F3(function(key, value, object)
+{
+	object[key] = _Json_unwrap(value);
+	return object;
+});
+
+function _Json_addEntry(func)
+{
+	return F2(function(entry, array)
+	{
+		array.push(_Json_unwrap(func(entry)));
+		return array;
+	});
+}
+
+var _Json_encodeNull = _Json_wrap(null);
+
+
+
+// TASKS
+
+function _Scheduler_succeed(value)
+{
+	return {
+		$: 0,
+		a: value
+	};
+}
+
+function _Scheduler_fail(error)
+{
+	return {
+		$: 1,
+		a: error
+	};
+}
+
+function _Scheduler_binding(callback)
+{
+	return {
+		$: 2,
+		b: callback,
+		c: null
+	};
+}
+
+var _Scheduler_andThen = F2(function(callback, task)
+{
+	return {
+		$: 3,
+		b: callback,
+		d: task
+	};
+});
+
+var _Scheduler_onError = F2(function(callback, task)
+{
+	return {
+		$: 4,
+		b: callback,
+		d: task
+	};
+});
+
+function _Scheduler_receive(callback)
+{
+	return {
+		$: 5,
+		b: callback
+	};
+}
+
+
+// PROCESSES
+
+var _Scheduler_guid = 0;
+
+function _Scheduler_rawSpawn(task)
+{
+	var proc = {
+		$: 0,
+		e: _Scheduler_guid++,
+		f: task,
+		g: null,
+		h: []
+	};
+
+	_Scheduler_enqueue(proc);
+
+	return proc;
+}
+
+function _Scheduler_spawn(task)
+{
+	return _Scheduler_binding(function(callback) {
+		callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
+	});
+}
+
+function _Scheduler_rawSend(proc, msg)
+{
+	proc.h.push(msg);
+	_Scheduler_enqueue(proc);
+}
+
+var _Scheduler_send = F2(function(proc, msg)
+{
+	return _Scheduler_binding(function(callback) {
+		_Scheduler_rawSend(proc, msg);
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+});
+
+function _Scheduler_kill(proc)
+{
+	return _Scheduler_binding(function(callback) {
+		var task = proc.f;
+		if (task.$ === 2 && task.c)
+		{
+			task.c();
+		}
+
+		proc.f = null;
+
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+}
+
+
+/* STEP PROCESSES
+
+type alias Process =
+  { $ : tag
+  , id : unique_id
+  , root : Task
+  , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
+  , mailbox : [msg]
+  }
+
+*/
+
+
+var _Scheduler_working = false;
+var _Scheduler_queue = [];
+
+
+function _Scheduler_enqueue(proc)
+{
+	_Scheduler_queue.push(proc);
+	if (_Scheduler_working)
+	{
+		return;
+	}
+	_Scheduler_working = true;
+	while (proc = _Scheduler_queue.shift())
+	{
+		_Scheduler_step(proc);
+	}
+	_Scheduler_working = false;
+}
+
+
+function _Scheduler_step(proc)
+{
+	while (proc.f)
+	{
+		var rootTag = proc.f.$;
+		if (rootTag === 0 || rootTag === 1)
+		{
+			while (proc.g && proc.g.$ !== rootTag)
+			{
+				proc.g = proc.g.i;
+			}
+			if (!proc.g)
+			{
+				return;
+			}
+			proc.f = proc.g.b(proc.f.a);
+			proc.g = proc.g.i;
+		}
+		else if (rootTag === 2)
+		{
+			proc.f.c = proc.f.b(function(newRoot) {
+				proc.f = newRoot;
+				_Scheduler_enqueue(proc);
+			});
+			return;
+		}
+		else if (rootTag === 5)
+		{
+			if (proc.h.length === 0)
+			{
+				return;
+			}
+			proc.f = proc.f.b(proc.h.shift());
+		}
+		else // if (rootTag === 3 || rootTag === 4)
+		{
+			proc.g = {
+				$: rootTag === 3 ? 0 : 1,
+				b: proc.f.b,
+				i: proc.g
+			};
+			proc.f = proc.f.d;
+		}
+	}
+}
+
+
+
+function _Process_sleep(time)
+{
+	return _Scheduler_binding(function(callback) {
+		var id = setTimeout(function() {
+			callback(_Scheduler_succeed(_Utils_Tuple0));
+		}, time);
+
+		return function() { clearTimeout(id); };
+	});
+}
+
+
+
+
+// PROGRAMS
+
+
+var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function() { return function() {} }
+	);
+});
+
+
+
+// INITIALIZE A PROGRAM
+
+
+function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
+{
+	var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
+	$elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
+	var managers = {};
+	var initPair = init(result.a);
+	var model = initPair.a;
+	var stepper = stepperBuilder(sendToApp, model);
+	var ports = _Platform_setupEffects(managers, sendToApp);
+
+	function sendToApp(msg, viewMetadata)
+	{
+		var pair = A2(update, msg, model);
+		stepper(model = pair.a, viewMetadata);
+		_Platform_enqueueEffects(managers, pair.b, subscriptions(model));
+	}
+
+	_Platform_enqueueEffects(managers, initPair.b, subscriptions(model));
+
+	return ports ? { ports: ports } : {};
+}
+
+
+
+// TRACK PRELOADS
+//
+// This is used by code in elm/browser and elm/http
+// to register any HTTP requests that are triggered by init.
+//
+
+
+var _Platform_preload;
+
+
+function _Platform_registerPreload(url)
+{
+	_Platform_preload.add(url);
+}
+
+
+
+// EFFECT MANAGERS
+
+
+var _Platform_effectManagers = {};
+
+
+function _Platform_setupEffects(managers, sendToApp)
+{
+	var ports;
+
+	// setup all necessary effect managers
+	for (var key in _Platform_effectManagers)
+	{
+		var manager = _Platform_effectManagers[key];
+
+		if (manager.a)
+		{
+			ports = ports || {};
+			ports[key] = manager.a(key, sendToApp);
+		}
+
+		managers[key] = _Platform_instantiateManager(manager, sendToApp);
+	}
+
+	return ports;
+}
+
+
+function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
+{
+	return {
+		b: init,
+		c: onEffects,
+		d: onSelfMsg,
+		e: cmdMap,
+		f: subMap
+	};
+}
+
+
+function _Platform_instantiateManager(info, sendToApp)
+{
+	var router = {
+		g: sendToApp,
+		h: undefined
+	};
+
+	var onEffects = info.c;
+	var onSelfMsg = info.d;
+	var cmdMap = info.e;
+	var subMap = info.f;
+
+	function loop(state)
+	{
+		return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
+		{
+			var value = msg.a;
+
+			if (msg.$ === 0)
+			{
+				return A3(onSelfMsg, router, value, state);
+			}
+
+			return cmdMap && subMap
+				? A4(onEffects, router, value.i, value.j, state)
+				: A3(onEffects, router, cmdMap ? value.i : value.j, state);
+		}));
+	}
+
+	return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
+}
+
+
+
+// ROUTING
+
+
+var _Platform_sendToApp = F2(function(router, msg)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		router.g(msg);
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+});
+
+
+var _Platform_sendToSelf = F2(function(router, msg)
+{
+	return A2(_Scheduler_send, router.h, {
+		$: 0,
+		a: msg
+	});
+});
+
+
+
+// BAGS
+
+
+function _Platform_leaf(home)
+{
+	return function(value)
+	{
+		return {
+			$: 1,
+			k: home,
+			l: value
+		};
+	};
+}
+
+
+function _Platform_batch(list)
+{
+	return {
+		$: 2,
+		m: list
+	};
+}
+
+
+var _Platform_map = F2(function(tagger, bag)
+{
+	return {
+		$: 3,
+		n: tagger,
+		o: bag
+	}
+});
+
+
+
+// PIPE BAGS INTO EFFECT MANAGERS
+//
+// Effects must be queued!
+//
+// Say your init contains a synchronous command, like Time.now or Time.here
+//
+//   - This will produce a batch of effects (FX_1)
+//   - The synchronous task triggers the subsequent `update` call
+//   - This will produce a batch of effects (FX_2)
+//
+// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
+// before subscriptions from FX_1. No good! Earlier versions of this code had
+// this problem, leading to these reports:
+//
+//   https://github.com/elm/core/issues/980
+//   https://github.com/elm/core/pull/981
+//   https://github.com/elm/compiler/issues/1776
+//
+// The queue is necessary to avoid ordering issues for synchronous commands.
+
+
+// Why use true/false here? Why not just check the length of the queue?
+// The goal is to detect "are we currently dispatching effects?" If we
+// are, we need to bail and let the ongoing while loop handle things.
+//
+// Now say the queue has 1 element. When we dequeue the final element,
+// the queue will be empty, but we are still actively dispatching effects.
+// So you could get queue jumping in a really tricky category of cases.
+//
+var _Platform_effectsQueue = [];
+var _Platform_effectsActive = false;
+
+
+function _Platform_enqueueEffects(managers, cmdBag, subBag)
+{
+	_Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });
+
+	if (_Platform_effectsActive) return;
+
+	_Platform_effectsActive = true;
+	for (var fx; fx = _Platform_effectsQueue.shift(); )
+	{
+		_Platform_dispatchEffects(fx.p, fx.q, fx.r);
+	}
+	_Platform_effectsActive = false;
+}
+
+
+function _Platform_dispatchEffects(managers, cmdBag, subBag)
+{
+	var effectsDict = {};
+	_Platform_gatherEffects(true, cmdBag, effectsDict, null);
+	_Platform_gatherEffects(false, subBag, effectsDict, null);
+
+	for (var home in managers)
+	{
+		_Scheduler_rawSend(managers[home], {
+			$: 'fx',
+			a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
+		});
+	}
+}
+
+
+function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
+{
+	switch (bag.$)
+	{
+		case 1:
+			var home = bag.k;
+			var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
+			effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
+			return;
+
+		case 2:
+			for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
+			{
+				_Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
+			}
+			return;
+
+		case 3:
+			_Platform_gatherEffects(isCmd, bag.o, effectsDict, {
+				s: bag.n,
+				t: taggers
+			});
+			return;
+	}
+}
+
+
+function _Platform_toEffect(isCmd, home, taggers, value)
+{
+	function applyTaggers(x)
+	{
+		for (var temp = taggers; temp; temp = temp.t)
+		{
+			x = temp.s(x);
+		}
+		return x;
+	}
+
+	var map = isCmd
+		? _Platform_effectManagers[home].e
+		: _Platform_effectManagers[home].f;
+
+	return A2(map, applyTaggers, value)
+}
+
+
+function _Platform_insert(isCmd, newEffect, effects)
+{
+	effects = effects || { i: _List_Nil, j: _List_Nil };
+
+	isCmd
+		? (effects.i = _List_Cons(newEffect, effects.i))
+		: (effects.j = _List_Cons(newEffect, effects.j));
+
+	return effects;
+}
+
+
+
+// PORTS
+
+
+function _Platform_checkPortName(name)
+{
+	if (_Platform_effectManagers[name])
+	{
+		_Debug_crash(3, name)
+	}
+}
+
+
+
+// OUTGOING PORTS
+
+
+function _Platform_outgoingPort(name, converter)
+{
+	_Platform_checkPortName(name);
+	_Platform_effectManagers[name] = {
+		e: _Platform_outgoingPortMap,
+		u: converter,
+		a: _Platform_setupOutgoingPort
+	};
+	return _Platform_leaf(name);
+}
+
+
+var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
+
+
+function _Platform_setupOutgoingPort(name)
+{
+	var subs = [];
+	var converter = _Platform_effectManagers[name].u;
+
+	// CREATE MANAGER
+
+	var init = _Process_sleep(0);
+
+	_Platform_effectManagers[name].b = init;
+	_Platform_effectManagers[name].c = F3(function(router, cmdList, state)
+	{
+		for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
+		{
+			// grab a separate reference to subs in case unsubscribe is called
+			var currentSubs = subs;
+			var value = _Json_unwrap(converter(cmdList.a));
+			for (var i = 0; i < currentSubs.length; i++)
+			{
+				currentSubs[i](value);
+			}
+		}
+		return init;
+	});
+
+	// PUBLIC API
+
+	function subscribe(callback)
+	{
+		subs.push(callback);
+	}
+
+	function unsubscribe(callback)
+	{
+		// copy subs into a new array in case unsubscribe is called within a
+		// subscribed callback
+		subs = subs.slice();
+		var index = subs.indexOf(callback);
+		if (index >= 0)
+		{
+			subs.splice(index, 1);
+		}
+	}
+
+	return {
+		subscribe: subscribe,
+		unsubscribe: unsubscribe
+	};
+}
+
+
+
+// INCOMING PORTS
+
+
+function _Platform_incomingPort(name, converter)
+{
+	_Platform_checkPortName(name);
+	_Platform_effectManagers[name] = {
+		f: _Platform_incomingPortMap,
+		u: converter,
+		a: _Platform_setupIncomingPort
+	};
+	return _Platform_leaf(name);
+}
+
+
+var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
+{
+	return function(value)
+	{
+		return tagger(finalTagger(value));
+	};
+});
+
+
+function _Platform_setupIncomingPort(name, sendToApp)
+{
+	var subs = _List_Nil;
+	var converter = _Platform_effectManagers[name].u;
+
+	// CREATE MANAGER
+
+	var init = _Scheduler_succeed(null);
+
+	_Platform_effectManagers[name].b = init;
+	_Platform_effectManagers[name].c = F3(function(router, subList, state)
+	{
+		subs = subList;
+		return init;
+	});
+
+	// PUBLIC API
+
+	function send(incomingValue)
+	{
+		var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
+
+		$elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
+
+		var value = result.a;
+		for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
+		{
+			sendToApp(temp.a(value));
+		}
+	}
+
+	return { send: send };
+}
+
+
+
+// EXPORT ELM MODULES
+//
+// Have DEBUG and PROD versions so that we can (1) give nicer errors in
+// debug mode and (2) not pay for the bits needed for that in prod mode.
+//
+
+
+function _Platform_export_UNUSED(exports)
+{
+	scope['Elm']
+		? _Platform_mergeExportsProd(scope['Elm'], exports)
+		: scope['Elm'] = exports;
+}
+
+
+function _Platform_mergeExportsProd(obj, exports)
+{
+	for (var name in exports)
+	{
+		(name in obj)
+			? (name == 'init')
+				? _Debug_crash(6)
+				: _Platform_mergeExportsProd(obj[name], exports[name])
+			: (obj[name] = exports[name]);
+	}
+}
+
+
+function _Platform_export(exports)
+{
+	scope['Elm']
+		? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
+		: scope['Elm'] = exports;
+}
+
+
+function _Platform_mergeExportsDebug(moduleName, obj, exports)
+{
+	for (var name in exports)
+	{
+		(name in obj)
+			? (name == 'init')
+				? _Debug_crash(6, moduleName)
+				: _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
+			: (obj[name] = exports[name]);
+	}
+}
+
+
+
+
+// HELPERS
+
+
+var _VirtualDom_divertHrefToApp;
+
+var _VirtualDom_doc = typeof document !== 'undefined' ? document : {};
+
+
+function _VirtualDom_appendChild(parent, child)
+{
+	parent.appendChild(child);
+}
+
+var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
+{
+	// NOTE: this function needs _Platform_export available to work
+
+	/**_UNUSED/
+	var node = args['node'];
+	//*/
+	/**/
+	var node = args && args['node'] ? args['node'] : _Debug_crash(0);
+	//*/
+
+	node.parentNode.replaceChild(
+		_VirtualDom_render(virtualNode, function() {}),
+		node
+	);
+
+	return {};
+});
+
+
+
+// TEXT
+
+
+function _VirtualDom_text(string)
+{
+	return {
+		$: 0,
+		a: string
+	};
+}
+
+
+
+// NODE
+
+
+var _VirtualDom_nodeNS = F2(function(namespace, tag)
+{
+	return F2(function(factList, kidList)
+	{
+		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
+		{
+			var kid = kidList.a;
+			descendantsCount += (kid.b || 0);
+			kids.push(kid);
+		}
+		descendantsCount += kids.length;
+
+		return {
+			$: 1,
+			c: tag,
+			d: _VirtualDom_organizeFacts(factList),
+			e: kids,
+			f: namespace,
+			b: descendantsCount
+		};
+	});
+});
+
+
+var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
+
+
+
+// KEYED NODE
+
+
+var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
+{
+	return F2(function(factList, kidList)
+	{
+		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
+		{
+			var kid = kidList.a;
+			descendantsCount += (kid.b.b || 0);
+			kids.push(kid);
+		}
+		descendantsCount += kids.length;
+
+		return {
+			$: 2,
+			c: tag,
+			d: _VirtualDom_organizeFacts(factList),
+			e: kids,
+			f: namespace,
+			b: descendantsCount
+		};
+	});
+});
+
+
+var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
+
+
+
+// CUSTOM
+
+
+function _VirtualDom_custom(factList, model, render, diff)
+{
+	return {
+		$: 3,
+		d: _VirtualDom_organizeFacts(factList),
+		g: model,
+		h: render,
+		i: diff
+	};
+}
+
+
+
+// MAP
+
+
+var _VirtualDom_map = F2(function(tagger, node)
+{
+	return {
+		$: 4,
+		j: tagger,
+		k: node,
+		b: 1 + (node.b || 0)
+	};
+});
+
+
+
+// LAZY
+
+
+function _VirtualDom_thunk(refs, thunk)
+{
+	return {
+		$: 5,
+		l: refs,
+		m: thunk,
+		k: undefined
+	};
+}
+
+var _VirtualDom_lazy = F2(function(func, a)
+{
+	return _VirtualDom_thunk([func, a], function() {
+		return func(a);
+	});
+});
+
+var _VirtualDom_lazy2 = F3(function(func, a, b)
+{
+	return _VirtualDom_thunk([func, a, b], function() {
+		return A2(func, a, b);
+	});
+});
+
+var _VirtualDom_lazy3 = F4(function(func, a, b, c)
+{
+	return _VirtualDom_thunk([func, a, b, c], function() {
+		return A3(func, a, b, c);
+	});
+});
+
+var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
+{
+	return _VirtualDom_thunk([func, a, b, c, d], function() {
+		return A4(func, a, b, c, d);
+	});
+});
+
+var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e], function() {
+		return A5(func, a, b, c, d, e);
+	});
+});
+
+var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
+		return A6(func, a, b, c, d, e, f);
+	});
+});
+
+var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
+		return A7(func, a, b, c, d, e, f, g);
+	});
+});
+
+var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
+		return A8(func, a, b, c, d, e, f, g, h);
+	});
+});
+
+
+
+// FACTS
+
+
+var _VirtualDom_on = F2(function(key, handler)
+{
+	return {
+		$: 'a0',
+		n: key,
+		o: handler
+	};
+});
+var _VirtualDom_style = F2(function(key, value)
+{
+	return {
+		$: 'a1',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_property = F2(function(key, value)
+{
+	return {
+		$: 'a2',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_attribute = F2(function(key, value)
+{
+	return {
+		$: 'a3',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_attributeNS = F3(function(namespace, key, value)
+{
+	return {
+		$: 'a4',
+		n: key,
+		o: { f: namespace, o: value }
+	};
+});
+
+
+
+// XSS ATTACK VECTOR CHECKS
+//
+// For some reason, tabs can appear in href protocols and it still works.
+// So '\tjava\tSCRIPT:alert("!!!")' and 'javascript:alert("!!!")' are the same
+// in practice. That is why _VirtualDom_RE_js and _VirtualDom_RE_js_html look
+// so freaky.
+//
+// Pulling the regular expressions out to the top level gives a slight speed
+// boost in small benchmarks (4-10%) but hoisting values to reduce allocation
+// can be unpredictable in large programs where JIT may have a harder time with
+// functions are not fully self-contained. The benefit is more that the js and
+// js_html ones are so weird that I prefer to see them near each other.
+
+
+var _VirtualDom_RE_script = /^script$/i;
+var _VirtualDom_RE_on_formAction = /^(on|formAction$)/i;
+var _VirtualDom_RE_js = /^\s*j\s*a\s*v\s*a\s*s\s*c\s*r\s*i\s*p\s*t\s*:/i;
+var _VirtualDom_RE_js_html = /^\s*(j\s*a\s*v\s*a\s*s\s*c\s*r\s*i\s*p\s*t\s*:|d\s*a\s*t\s*a\s*:\s*t\s*e\s*x\s*t\s*\/\s*h\s*t\s*m\s*l\s*(,|;))/i;
+
+
+function _VirtualDom_noScript(tag)
+{
+	return _VirtualDom_RE_script.test(tag) ? 'p' : tag;
+}
+
+function _VirtualDom_noOnOrFormAction(key)
+{
+	return _VirtualDom_RE_on_formAction.test(key) ? 'data-' + key : key;
+}
+
+function _VirtualDom_noInnerHtmlOrFormAction(key)
+{
+	return key == 'innerHTML' || key == 'formAction' ? 'data-' + key : key;
+}
+
+function _VirtualDom_noJavaScriptUri(value)
+{
+	return _VirtualDom_RE_js.test(value)
+		? /**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
+		: value;
+}
+
+function _VirtualDom_noJavaScriptOrHtmlUri(value)
+{
+	return _VirtualDom_RE_js_html.test(value)
+		? /**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
+		: value;
+}
+
+function _VirtualDom_noJavaScriptOrHtmlJson(value)
+{
+	return (typeof _Json_unwrap(value) === 'string' && _VirtualDom_RE_js_html.test(_Json_unwrap(value)))
+		? _Json_wrap(
+			/**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
+		) : value;
+}
+
+
+
+// MAP FACTS
+
+
+var _VirtualDom_mapAttribute = F2(function(func, attr)
+{
+	return (attr.$ === 'a0')
+		? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
+		: attr;
+});
+
+function _VirtualDom_mapHandler(func, handler)
+{
+	var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
+
+	// 0 = Normal
+	// 1 = MayStopPropagation
+	// 2 = MayPreventDefault
+	// 3 = Custom
+
+	return {
+		$: handler.$,
+		a:
+			!tag
+				? A2($elm$json$Json$Decode$map, func, handler.a)
+				:
+			A3($elm$json$Json$Decode$map2,
+				tag < 3
+					? _VirtualDom_mapEventTuple
+					: _VirtualDom_mapEventRecord,
+				$elm$json$Json$Decode$succeed(func),
+				handler.a
+			)
+	};
+}
+
+var _VirtualDom_mapEventTuple = F2(function(func, tuple)
+{
+	return _Utils_Tuple2(func(tuple.a), tuple.b);
+});
+
+var _VirtualDom_mapEventRecord = F2(function(func, record)
+{
+	return {
+		message: func(record.message),
+		stopPropagation: record.stopPropagation,
+		preventDefault: record.preventDefault
+	}
+});
+
+
+
+// ORGANIZE FACTS
+
+
+function _VirtualDom_organizeFacts(factList)
+{
+	for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
+	{
+		var entry = factList.a;
+
+		var tag = entry.$;
+		var key = entry.n;
+		var value = entry.o;
+
+		if (tag === 'a2')
+		{
+			(key === 'className')
+				? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
+				: facts[key] = _Json_unwrap(value);
+
+			continue;
+		}
+
+		var subFacts = facts[tag] || (facts[tag] = {});
+		(tag === 'a3' && key === 'class')
+			? _VirtualDom_addClass(subFacts, key, value)
+			: subFacts[key] = value;
+	}
+
+	return facts;
+}
+
+function _VirtualDom_addClass(object, key, newClass)
+{
+	var classes = object[key];
+	object[key] = classes ? classes + ' ' + newClass : newClass;
+}
+
+
+
+// RENDER
+
+
+function _VirtualDom_render(vNode, eventNode)
+{
+	var tag = vNode.$;
+
+	if (tag === 5)
+	{
+		return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
+	}
+
+	if (tag === 0)
+	{
+		return _VirtualDom_doc.createTextNode(vNode.a);
+	}
+
+	if (tag === 4)
+	{
+		var subNode = vNode.k;
+		var tagger = vNode.j;
+
+		while (subNode.$ === 4)
+		{
+			typeof tagger !== 'object'
+				? tagger = [tagger, subNode.j]
+				: tagger.push(subNode.j);
+
+			subNode = subNode.k;
+		}
+
+		var subEventRoot = { j: tagger, p: eventNode };
+		var domNode = _VirtualDom_render(subNode, subEventRoot);
+		domNode.elm_event_node_ref = subEventRoot;
+		return domNode;
+	}
+
+	if (tag === 3)
+	{
+		var domNode = vNode.h(vNode.g);
+		_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
+		return domNode;
+	}
+
+	// at this point `tag` must be 1 or 2
+
+	var domNode = vNode.f
+		? _VirtualDom_doc.createElementNS(vNode.f, vNode.c)
+		: _VirtualDom_doc.createElement(vNode.c);
+
+	if (_VirtualDom_divertHrefToApp && vNode.c == 'a')
+	{
+		domNode.addEventListener('click', _VirtualDom_divertHrefToApp(domNode));
+	}
+
+	_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
+
+	for (var kids = vNode.e, i = 0; i < kids.length; i++)
+	{
+		_VirtualDom_appendChild(domNode, _VirtualDom_render(tag === 1 ? kids[i] : kids[i].b, eventNode));
+	}
+
+	return domNode;
+}
+
+
+
+// APPLY FACTS
+
+
+function _VirtualDom_applyFacts(domNode, eventNode, facts)
+{
+	for (var key in facts)
+	{
+		var value = facts[key];
+
+		key === 'a1'
+			? _VirtualDom_applyStyles(domNode, value)
+			:
+		key === 'a0'
+			? _VirtualDom_applyEvents(domNode, eventNode, value)
+			:
+		key === 'a3'
+			? _VirtualDom_applyAttrs(domNode, value)
+			:
+		key === 'a4'
+			? _VirtualDom_applyAttrsNS(domNode, value)
+			:
+		((key !== 'value' && key !== 'checked') || domNode[key] !== value) && (domNode[key] = value);
+	}
+}
+
+
+
+// APPLY STYLES
+
+
+function _VirtualDom_applyStyles(domNode, styles)
+{
+	var domNodeStyle = domNode.style;
+
+	for (var key in styles)
+	{
+		domNodeStyle[key] = styles[key];
+	}
+}
+
+
+
+// APPLY ATTRS
+
+
+function _VirtualDom_applyAttrs(domNode, attrs)
+{
+	for (var key in attrs)
+	{
+		var value = attrs[key];
+		typeof value !== 'undefined'
+			? domNode.setAttribute(key, value)
+			: domNode.removeAttribute(key);
+	}
+}
+
+
+
+// APPLY NAMESPACED ATTRS
+
+
+function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
+{
+	for (var key in nsAttrs)
+	{
+		var pair = nsAttrs[key];
+		var namespace = pair.f;
+		var value = pair.o;
+
+		typeof value !== 'undefined'
+			? domNode.setAttributeNS(namespace, key, value)
+			: domNode.removeAttributeNS(namespace, key);
+	}
+}
+
+
+
+// APPLY EVENTS
+
+
+function _VirtualDom_applyEvents(domNode, eventNode, events)
+{
+	var allCallbacks = domNode.elmFs || (domNode.elmFs = {});
+
+	for (var key in events)
+	{
+		var newHandler = events[key];
+		var oldCallback = allCallbacks[key];
+
+		if (!newHandler)
+		{
+			domNode.removeEventListener(key, oldCallback);
+			allCallbacks[key] = undefined;
+			continue;
+		}
+
+		if (oldCallback)
+		{
+			var oldHandler = oldCallback.q;
+			if (oldHandler.$ === newHandler.$)
+			{
+				oldCallback.q = newHandler;
+				continue;
+			}
+			domNode.removeEventListener(key, oldCallback);
+		}
+
+		oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
+		domNode.addEventListener(key, oldCallback,
+			_VirtualDom_passiveSupported
+			&& { passive: $elm$virtual_dom$VirtualDom$toHandlerInt(newHandler) < 2 }
+		);
+		allCallbacks[key] = oldCallback;
+	}
+}
+
+
+
+// PASSIVE EVENTS
+
+
+var _VirtualDom_passiveSupported;
+
+try
+{
+	window.addEventListener('t', null, Object.defineProperty({}, 'passive', {
+		get: function() { _VirtualDom_passiveSupported = true; }
+	}));
+}
+catch(e) {}
+
+
+
+// EVENT HANDLERS
+
+
+function _VirtualDom_makeCallback(eventNode, initialHandler)
+{
+	function callback(event)
+	{
+		var handler = callback.q;
+		var result = _Json_runHelp(handler.a, event);
+
+		if (!$elm$core$Result$isOk(result))
+		{
+			return;
+		}
+
+		var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
+
+		// 0 = Normal
+		// 1 = MayStopPropagation
+		// 2 = MayPreventDefault
+		// 3 = Custom
+
+		var value = result.a;
+		var message = !tag ? value : tag < 3 ? value.a : value.message;
+		var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
+		var currentEventNode = (
+			stopPropagation && event.stopPropagation(),
+			(tag == 2 ? value.b : tag == 3 && value.preventDefault) && event.preventDefault(),
+			eventNode
+		);
+		var tagger;
+		var i;
+		while (tagger = currentEventNode.j)
+		{
+			if (typeof tagger == 'function')
+			{
+				message = tagger(message);
+			}
+			else
+			{
+				for (var i = tagger.length; i--; )
+				{
+					message = tagger[i](message);
+				}
+			}
+			currentEventNode = currentEventNode.p;
+		}
+		currentEventNode(message, stopPropagation); // stopPropagation implies isSync
+	}
+
+	callback.q = initialHandler;
+
+	return callback;
+}
+
+function _VirtualDom_equalEvents(x, y)
+{
+	return x.$ == y.$ && _Json_equality(x.a, y.a);
+}
+
+
+
+// DIFF
+
+
+// TODO: Should we do patches like in iOS?
+//
+// type Patch
+//   = At Int Patch
+//   | Batch (List Patch)
+//   | Change ...
+//
+// How could it not be better?
+//
+function _VirtualDom_diff(x, y)
+{
+	var patches = [];
+	_VirtualDom_diffHelp(x, y, patches, 0);
+	return patches;
+}
+
+
+function _VirtualDom_pushPatch(patches, type, index, data)
+{
+	var patch = {
+		$: type,
+		r: index,
+		s: data,
+		t: undefined,
+		u: undefined
+	};
+	patches.push(patch);
+	return patch;
+}
+
+
+function _VirtualDom_diffHelp(x, y, patches, index)
+{
+	if (x === y)
+	{
+		return;
+	}
+
+	var xType = x.$;
+	var yType = y.$;
+
+	// Bail if you run into different types of nodes. Implies that the
+	// structure has changed significantly and it's not worth a diff.
+	if (xType !== yType)
+	{
+		if (xType === 1 && yType === 2)
+		{
+			y = _VirtualDom_dekey(y);
+			yType = 1;
+		}
+		else
+		{
+			_VirtualDom_pushPatch(patches, 0, index, y);
+			return;
+		}
+	}
+
+	// Now we know that both nodes are the same $.
+	switch (yType)
+	{
+		case 5:
+			var xRefs = x.l;
+			var yRefs = y.l;
+			var i = xRefs.length;
+			var same = i === yRefs.length;
+			while (same && i--)
+			{
+				same = xRefs[i] === yRefs[i];
+			}
+			if (same)
+			{
+				y.k = x.k;
+				return;
+			}
+			y.k = y.m();
+			var subPatches = [];
+			_VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
+			subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
+			return;
+
+		case 4:
+			// gather nested taggers
+			var xTaggers = x.j;
+			var yTaggers = y.j;
+			var nesting = false;
+
+			var xSubNode = x.k;
+			while (xSubNode.$ === 4)
+			{
+				nesting = true;
+
+				typeof xTaggers !== 'object'
+					? xTaggers = [xTaggers, xSubNode.j]
+					: xTaggers.push(xSubNode.j);
+
+				xSubNode = xSubNode.k;
+			}
+
+			var ySubNode = y.k;
+			while (ySubNode.$ === 4)
+			{
+				nesting = true;
+
+				typeof yTaggers !== 'object'
+					? yTaggers = [yTaggers, ySubNode.j]
+					: yTaggers.push(ySubNode.j);
+
+				ySubNode = ySubNode.k;
+			}
+
+			// Just bail if different numbers of taggers. This implies the
+			// structure of the virtual DOM has changed.
+			if (nesting && xTaggers.length !== yTaggers.length)
+			{
+				_VirtualDom_pushPatch(patches, 0, index, y);
+				return;
+			}
+
+			// check if taggers are "the same"
+			if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
+			{
+				_VirtualDom_pushPatch(patches, 2, index, yTaggers);
+			}
+
+			// diff everything below the taggers
+			_VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
+			return;
+
+		case 0:
+			if (x.a !== y.a)
+			{
+				_VirtualDom_pushPatch(patches, 3, index, y.a);
+			}
+			return;
+
+		case 1:
+			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
+			return;
+
+		case 2:
+			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
+			return;
+
+		case 3:
+			if (x.h !== y.h)
+			{
+				_VirtualDom_pushPatch(patches, 0, index, y);
+				return;
+			}
+
+			var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
+			factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
+
+			var patch = y.i(x.g, y.g);
+			patch && _VirtualDom_pushPatch(patches, 5, index, patch);
+
+			return;
+	}
+}
+
+// assumes the incoming arrays are the same length
+function _VirtualDom_pairwiseRefEqual(as, bs)
+{
+	for (var i = 0; i < as.length; i++)
+	{
+		if (as[i] !== bs[i])
+		{
+			return false;
+		}
+	}
+
+	return true;
+}
+
+function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
+{
+	// Bail if obvious indicators have changed. Implies more serious
+	// structural changes such that it's not worth it to diff.
+	if (x.c !== y.c || x.f !== y.f)
+	{
+		_VirtualDom_pushPatch(patches, 0, index, y);
+		return;
+	}
+
+	var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
+	factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
+
+	diffKids(x, y, patches, index);
+}
+
+
+
+// DIFF FACTS
+
+
+// TODO Instead of creating a new diff object, it's possible to just test if
+// there *is* a diff. During the actual patch, do the diff again and make the
+// modifications directly. This way, there's no new allocations. Worth it?
+function _VirtualDom_diffFacts(x, y, category)
+{
+	var diff;
+
+	// look for changes and removals
+	for (var xKey in x)
+	{
+		if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
+		{
+			var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
+			if (subDiff)
+			{
+				diff = diff || {};
+				diff[xKey] = subDiff;
+			}
+			continue;
+		}
+
+		// remove if not in the new facts
+		if (!(xKey in y))
+		{
+			diff = diff || {};
+			diff[xKey] =
+				!category
+					? (typeof x[xKey] === 'string' ? '' : null)
+					:
+				(category === 'a1')
+					? ''
+					:
+				(category === 'a0' || category === 'a3')
+					? undefined
+					:
+				{ f: x[xKey].f, o: undefined };
+
+			continue;
+		}
+
+		var xValue = x[xKey];
+		var yValue = y[xKey];
+
+		// reference equal, so don't worry about it
+		if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
+			|| category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
+		{
+			continue;
+		}
+
+		diff = diff || {};
+		diff[xKey] = yValue;
+	}
+
+	// add new stuff
+	for (var yKey in y)
+	{
+		if (!(yKey in x))
+		{
+			diff = diff || {};
+			diff[yKey] = y[yKey];
+		}
+	}
+
+	return diff;
+}
+
+
+
+// DIFF KIDS
+
+
+function _VirtualDom_diffKids(xParent, yParent, patches, index)
+{
+	var xKids = xParent.e;
+	var yKids = yParent.e;
+
+	var xLen = xKids.length;
+	var yLen = yKids.length;
+
+	// FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
+
+	if (xLen > yLen)
+	{
+		_VirtualDom_pushPatch(patches, 6, index, {
+			v: yLen,
+			i: xLen - yLen
+		});
+	}
+	else if (xLen < yLen)
+	{
+		_VirtualDom_pushPatch(patches, 7, index, {
+			v: xLen,
+			e: yKids
+		});
+	}
+
+	// PAIRWISE DIFF EVERYTHING ELSE
+
+	for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
+	{
+		var xKid = xKids[i];
+		_VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
+		index += xKid.b || 0;
+	}
+}
+
+
+
+// KEYED DIFF
+
+
+function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
+{
+	var localPatches = [];
+
+	var changes = {}; // Dict String Entry
+	var inserts = []; // Array { index : Int, entry : Entry }
+	// type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
+
+	var xKids = xParent.e;
+	var yKids = yParent.e;
+	var xLen = xKids.length;
+	var yLen = yKids.length;
+	var xIndex = 0;
+	var yIndex = 0;
+
+	var index = rootIndex;
+
+	while (xIndex < xLen && yIndex < yLen)
+	{
+		var x = xKids[xIndex];
+		var y = yKids[yIndex];
+
+		var xKey = x.a;
+		var yKey = y.a;
+		var xNode = x.b;
+		var yNode = y.b;
+
+		var newMatch = undefined;
+		var oldMatch = undefined;
+
+		// check if keys match
+
+		if (xKey === yKey)
+		{
+			index++;
+			_VirtualDom_diffHelp(xNode, yNode, localPatches, index);
+			index += xNode.b || 0;
+
+			xIndex++;
+			yIndex++;
+			continue;
+		}
+
+		// look ahead 1 to detect insertions and removals.
+
+		var xNext = xKids[xIndex + 1];
+		var yNext = yKids[yIndex + 1];
+
+		if (xNext)
+		{
+			var xNextKey = xNext.a;
+			var xNextNode = xNext.b;
+			oldMatch = yKey === xNextKey;
+		}
+
+		if (yNext)
+		{
+			var yNextKey = yNext.a;
+			var yNextNode = yNext.b;
+			newMatch = xKey === yNextKey;
+		}
+
+
+		// swap x and y
+		if (newMatch && oldMatch)
+		{
+			index++;
+			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
+			_VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 2;
+			continue;
+		}
+
+		// insert y
+		if (newMatch)
+		{
+			index++;
+			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
+			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
+			index += xNode.b || 0;
+
+			xIndex += 1;
+			yIndex += 2;
+			continue;
+		}
+
+		// remove x
+		if (oldMatch)
+		{
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 1;
+			continue;
+		}
+
+		// remove x, insert y
+		if (xNext && xNextKey === yNextKey)
+		{
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
+			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 2;
+			continue;
+		}
+
+		break;
+	}
+
+	// eat up any remaining nodes with removeNode and insertNode
+
+	while (xIndex < xLen)
+	{
+		index++;
+		var x = xKids[xIndex];
+		var xNode = x.b;
+		_VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
+		index += xNode.b || 0;
+		xIndex++;
+	}
+
+	while (yIndex < yLen)
+	{
+		var endInserts = endInserts || [];
+		var y = yKids[yIndex];
+		_VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
+		yIndex++;
+	}
+
+	if (localPatches.length > 0 || inserts.length > 0 || endInserts)
+	{
+		_VirtualDom_pushPatch(patches, 8, rootIndex, {
+			w: localPatches,
+			x: inserts,
+			y: endInserts
+		});
+	}
+}
+
+
+
+// CHANGES FROM KEYED DIFF
+
+
+var _VirtualDom_POSTFIX = '_elmW6BL';
+
+
+function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
+{
+	var entry = changes[key];
+
+	// never seen this key before
+	if (!entry)
+	{
+		entry = {
+			c: 0,
+			z: vnode,
+			r: yIndex,
+			s: undefined
+		};
+
+		inserts.push({ r: yIndex, A: entry });
+		changes[key] = entry;
+
+		return;
+	}
+
+	// this key was removed earlier, a match!
+	if (entry.c === 1)
+	{
+		inserts.push({ r: yIndex, A: entry });
+
+		entry.c = 2;
+		var subPatches = [];
+		_VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
+		entry.r = yIndex;
+		entry.s.s = {
+			w: subPatches,
+			A: entry
+		};
+
+		return;
+	}
+
+	// this key has already been inserted or moved, a duplicate!
+	_VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
+}
+
+
+function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
+{
+	var entry = changes[key];
+
+	// never seen this key before
+	if (!entry)
+	{
+		var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
+
+		changes[key] = {
+			c: 1,
+			z: vnode,
+			r: index,
+			s: patch
+		};
+
+		return;
+	}
+
+	// this key was inserted earlier, a match!
+	if (entry.c === 0)
+	{
+		entry.c = 2;
+		var subPatches = [];
+		_VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
+
+		_VirtualDom_pushPatch(localPatches, 9, index, {
+			w: subPatches,
+			A: entry
+		});
+
+		return;
+	}
+
+	// this key has already been removed or moved, a duplicate!
+	_VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
+}
+
+
+
+// ADD DOM NODES
+//
+// Each DOM node has an "index" assigned in order of traversal. It is important
+// to minimize our crawl over the actual DOM, so these indexes (along with the
+// descendantsCount of virtual nodes) let us skip touching entire subtrees of
+// the DOM if we know there are no patches there.
+
+
+function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
+{
+	_VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
+}
+
+
+// assumes `patches` is non-empty and indexes increase monotonically.
+function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
+{
+	var patch = patches[i];
+	var index = patch.r;
+
+	while (index === low)
+	{
+		var patchType = patch.$;
+
+		if (patchType === 1)
+		{
+			_VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
+		}
+		else if (patchType === 8)
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+
+			var subPatches = patch.s.w;
+			if (subPatches.length > 0)
+			{
+				_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
+			}
+		}
+		else if (patchType === 9)
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+
+			var data = patch.s;
+			if (data)
+			{
+				data.A.s = domNode;
+				var subPatches = data.w;
+				if (subPatches.length > 0)
+				{
+					_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
+				}
+			}
+		}
+		else
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+		}
+
+		i++;
+
+		if (!(patch = patches[i]) || (index = patch.r) > high)
+		{
+			return i;
+		}
+	}
+
+	var tag = vNode.$;
+
+	if (tag === 4)
+	{
+		var subNode = vNode.k;
+
+		while (subNode.$ === 4)
+		{
+			subNode = subNode.k;
+		}
+
+		return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, domNode.elm_event_node_ref);
+	}
+
+	// tag must be 1 or 2 at this point
+
+	var vKids = vNode.e;
+	var childNodes = domNode.childNodes;
+	for (var j = 0; j < vKids.length; j++)
+	{
+		low++;
+		var vKid = tag === 1 ? vKids[j] : vKids[j].b;
+		var nextLow = low + (vKid.b || 0);
+		if (low <= index && index <= nextLow)
+		{
+			i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
+			if (!(patch = patches[i]) || (index = patch.r) > high)
+			{
+				return i;
+			}
+		}
+		low = nextLow;
+	}
+	return i;
+}
+
+
+
+// APPLY PATCHES
+
+
+function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
+{
+	if (patches.length === 0)
+	{
+		return rootDomNode;
+	}
+
+	_VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
+	return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
+}
+
+function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
+{
+	for (var i = 0; i < patches.length; i++)
+	{
+		var patch = patches[i];
+		var localDomNode = patch.t
+		var newNode = _VirtualDom_applyPatch(localDomNode, patch);
+		if (localDomNode === rootDomNode)
+		{
+			rootDomNode = newNode;
+		}
+	}
+	return rootDomNode;
+}
+
+function _VirtualDom_applyPatch(domNode, patch)
+{
+	switch (patch.$)
+	{
+		case 0:
+			return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
+
+		case 4:
+			_VirtualDom_applyFacts(domNode, patch.u, patch.s);
+			return domNode;
+
+		case 3:
+			domNode.replaceData(0, domNode.length, patch.s);
+			return domNode;
+
+		case 1:
+			return _VirtualDom_applyPatchesHelp(domNode, patch.s);
+
+		case 2:
+			if (domNode.elm_event_node_ref)
+			{
+				domNode.elm_event_node_ref.j = patch.s;
+			}
+			else
+			{
+				domNode.elm_event_node_ref = { j: patch.s, p: patch.u };
+			}
+			return domNode;
+
+		case 6:
+			var data = patch.s;
+			for (var i = 0; i < data.i; i++)
+			{
+				domNode.removeChild(domNode.childNodes[data.v]);
+			}
+			return domNode;
+
+		case 7:
+			var data = patch.s;
+			var kids = data.e;
+			var i = data.v;
+			var theEnd = domNode.childNodes[i];
+			for (; i < kids.length; i++)
+			{
+				domNode.insertBefore(_VirtualDom_render(kids[i], patch.u), theEnd);
+			}
+			return domNode;
+
+		case 9:
+			var data = patch.s;
+			if (!data)
+			{
+				domNode.parentNode.removeChild(domNode);
+				return domNode;
+			}
+			var entry = data.A;
+			if (typeof entry.r !== 'undefined')
+			{
+				domNode.parentNode.removeChild(domNode);
+			}
+			entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
+			return domNode;
+
+		case 8:
+			return _VirtualDom_applyPatchReorder(domNode, patch);
+
+		case 5:
+			return patch.s(domNode);
+
+		default:
+			_Debug_crash(10); // 'Ran into an unknown patch!'
+	}
+}
+
+
+function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
+{
+	var parentNode = domNode.parentNode;
+	var newNode = _VirtualDom_render(vNode, eventNode);
+
+	if (!newNode.elm_event_node_ref)
+	{
+		newNode.elm_event_node_ref = domNode.elm_event_node_ref;
+	}
+
+	if (parentNode && newNode !== domNode)
+	{
+		parentNode.replaceChild(newNode, domNode);
+	}
+	return newNode;
+}
+
+
+function _VirtualDom_applyPatchReorder(domNode, patch)
+{
+	var data = patch.s;
+
+	// remove end inserts
+	var frag = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
+
+	// removals
+	domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
+
+	// inserts
+	var inserts = data.x;
+	for (var i = 0; i < inserts.length; i++)
+	{
+		var insert = inserts[i];
+		var entry = insert.A;
+		var node = entry.c === 2
+			? entry.s
+			: _VirtualDom_render(entry.z, patch.u);
+		domNode.insertBefore(node, domNode.childNodes[insert.r]);
+	}
+
+	// add end inserts
+	if (frag)
+	{
+		_VirtualDom_appendChild(domNode, frag);
+	}
+
+	return domNode;
+}
+
+
+function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
+{
+	if (!endInserts)
+	{
+		return;
+	}
+
+	var frag = _VirtualDom_doc.createDocumentFragment();
+	for (var i = 0; i < endInserts.length; i++)
+	{
+		var insert = endInserts[i];
+		var entry = insert.A;
+		_VirtualDom_appendChild(frag, entry.c === 2
+			? entry.s
+			: _VirtualDom_render(entry.z, patch.u)
+		);
+	}
+	return frag;
+}
+
+
+function _VirtualDom_virtualize(node)
+{
+	// TEXT NODES
+
+	if (node.nodeType === 3)
+	{
+		return _VirtualDom_text(node.textContent);
+	}
+
+
+	// WEIRD NODES
+
+	if (node.nodeType !== 1)
+	{
+		return _VirtualDom_text('');
+	}
+
+
+	// ELEMENT NODES
+
+	var attrList = _List_Nil;
+	var attrs = node.attributes;
+	for (var i = attrs.length; i--; )
+	{
+		var attr = attrs[i];
+		var name = attr.name;
+		var value = attr.value;
+		attrList = _List_Cons( A2(_VirtualDom_attribute, name, value), attrList );
+	}
+
+	var tag = node.tagName.toLowerCase();
+	var kidList = _List_Nil;
+	var kids = node.childNodes;
+
+	for (var i = kids.length; i--; )
+	{
+		kidList = _List_Cons(_VirtualDom_virtualize(kids[i]), kidList);
+	}
+	return A3(_VirtualDom_node, tag, attrList, kidList);
+}
+
+function _VirtualDom_dekey(keyedNode)
+{
+	var keyedKids = keyedNode.e;
+	var len = keyedKids.length;
+	var kids = new Array(len);
+	for (var i = 0; i < len; i++)
+	{
+		kids[i] = keyedKids[i].b;
+	}
+
+	return {
+		$: 1,
+		c: keyedNode.c,
+		d: keyedNode.d,
+		e: kids,
+		f: keyedNode.f,
+		b: keyedNode.b
+	};
+}
+
+
+
+var _Bitwise_and = F2(function(a, b)
+{
+	return a & b;
+});
+
+var _Bitwise_or = F2(function(a, b)
+{
+	return a | b;
+});
+
+var _Bitwise_xor = F2(function(a, b)
+{
+	return a ^ b;
+});
+
+function _Bitwise_complement(a)
+{
+	return ~a;
+};
+
+var _Bitwise_shiftLeftBy = F2(function(offset, a)
+{
+	return a << offset;
+});
+
+var _Bitwise_shiftRightBy = F2(function(offset, a)
+{
+	return a >> offset;
+});
+
+var _Bitwise_shiftRightZfBy = F2(function(offset, a)
+{
+	return a >>> offset;
+});
+
+
+
+
+// HELPERS
+
+
+function _Debugger_unsafeCoerce(value)
+{
+	return value;
+}
+
+
+
+// PROGRAMS
+
+
+var _Debugger_element = F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		A3($elm$browser$Debugger$Main$wrapInit, _Json_wrap(debugMetadata), _Debugger_popout(), impl.init),
+		$elm$browser$Debugger$Main$wrapUpdate(impl.update),
+		$elm$browser$Debugger$Main$wrapSubs(impl.subscriptions),
+		function(sendToApp, initialModel)
+		{
+			var view = impl.view;
+			var title = _VirtualDom_doc.title;
+			var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
+			var currNode = _VirtualDom_virtualize(domNode);
+			var currBlocker = $elm$browser$Debugger$Main$toBlockerType(initialModel);
+			var currPopout;
+
+			var cornerNode = _VirtualDom_doc.createElement('div');
+			domNode.parentNode.insertBefore(cornerNode, domNode.nextSibling);
+			var cornerCurr = _VirtualDom_virtualize(cornerNode);
+
+			initialModel.popout.a = sendToApp;
+
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				var nextNode = A2(_VirtualDom_map, $elm$browser$Debugger$Main$UserMsg, view($elm$browser$Debugger$Main$getUserModel(model)));
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+
+				// update blocker
+
+				var nextBlocker = $elm$browser$Debugger$Main$toBlockerType(model);
+				_Debugger_updateBlocker(currBlocker, nextBlocker);
+				currBlocker = nextBlocker;
+
+				// view corner
+
+				var cornerNext = $elm$browser$Debugger$Main$cornerView(model);
+				var cornerPatches = _VirtualDom_diff(cornerCurr, cornerNext);
+				cornerNode = _VirtualDom_applyPatches(cornerNode, cornerCurr, cornerPatches, sendToApp);
+				cornerCurr = cornerNext;
+
+				if (!model.popout.b)
+				{
+					currPopout = undefined;
+					return;
+				}
+
+				// view popout
+
+				_VirtualDom_doc = model.popout.b; // SWITCH TO POPOUT DOC
+				currPopout || (currPopout = _VirtualDom_virtualize(model.popout.b));
+				var nextPopout = $elm$browser$Debugger$Main$popoutView(model);
+				var popoutPatches = _VirtualDom_diff(currPopout, nextPopout);
+				_VirtualDom_applyPatches(model.popout.b.body, currPopout, popoutPatches, sendToApp);
+				currPopout = nextPopout;
+				_VirtualDom_doc = document; // SWITCH BACK TO NORMAL DOC
+			});
+		}
+	);
+});
+
+
+var _Debugger_document = F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		A3($elm$browser$Debugger$Main$wrapInit, _Json_wrap(debugMetadata), _Debugger_popout(), impl.init),
+		$elm$browser$Debugger$Main$wrapUpdate(impl.update),
+		$elm$browser$Debugger$Main$wrapSubs(impl.subscriptions),
+		function(sendToApp, initialModel)
+		{
+			var divertHrefToApp = impl.setup && impl.setup(function(x) { return sendToApp($elm$browser$Debugger$Main$UserMsg(x)); });
+			var view = impl.view;
+			var title = _VirtualDom_doc.title;
+			var bodyNode = _VirtualDom_doc.body;
+			var currNode = _VirtualDom_virtualize(bodyNode);
+			var currBlocker = $elm$browser$Debugger$Main$toBlockerType(initialModel);
+			var currPopout;
+
+			initialModel.popout.a = sendToApp;
+
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				_VirtualDom_divertHrefToApp = divertHrefToApp;
+				var doc = view($elm$browser$Debugger$Main$getUserModel(model));
+				var nextNode = _VirtualDom_node('body')(_List_Nil)(
+					_Utils_ap(
+						A2($elm$core$List$map, _VirtualDom_map($elm$browser$Debugger$Main$UserMsg), doc.body),
+						_List_Cons($elm$browser$Debugger$Main$cornerView(model), _List_Nil)
+					)
+				);
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+				_VirtualDom_divertHrefToApp = 0;
+				(title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
+
+				// update blocker
+
+				var nextBlocker = $elm$browser$Debugger$Main$toBlockerType(model);
+				_Debugger_updateBlocker(currBlocker, nextBlocker);
+				currBlocker = nextBlocker;
+
+				// view popout
+
+				if (!model.popout.b) { currPopout = undefined; return; }
+
+				_VirtualDom_doc = model.popout.b; // SWITCH TO POPOUT DOC
+				currPopout || (currPopout = _VirtualDom_virtualize(model.popout.b));
+				var nextPopout = $elm$browser$Debugger$Main$popoutView(model);
+				var popoutPatches = _VirtualDom_diff(currPopout, nextPopout);
+				_VirtualDom_applyPatches(model.popout.b.body, currPopout, popoutPatches, sendToApp);
+				currPopout = nextPopout;
+				_VirtualDom_doc = document; // SWITCH BACK TO NORMAL DOC
+			});
+		}
+	);
+});
+
+
+function _Debugger_popout()
+{
+	return {
+		b: undefined,
+		a: undefined
+	};
+}
+
+function _Debugger_isOpen(popout)
+{
+	return !!popout.b;
+}
+
+function _Debugger_open(popout)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		_Debugger_openWindow(popout);
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+}
+
+function _Debugger_openWindow(popout)
+{
+	var w = $elm$browser$Debugger$Main$initialWindowWidth,
+		h = $elm$browser$Debugger$Main$initialWindowHeight,
+	 	x = screen.width - w,
+		y = screen.height - h;
+
+	var debuggerWindow = window.open('', '', 'width=' + w + ',height=' + h + ',left=' + x + ',top=' + y);
+	var doc = debuggerWindow.document;
+	doc.title = 'Elm Debugger';
+
+	// handle arrow keys
+	doc.addEventListener('keydown', function(event) {
+		event.metaKey && event.which === 82 && window.location.reload();
+		event.key === 'ArrowUp'   && (popout.a($elm$browser$Debugger$Main$Up  ), event.preventDefault());
+		event.key === 'ArrowDown' && (popout.a($elm$browser$Debugger$Main$Down), event.preventDefault());
+	});
+
+	// handle window close
+	window.addEventListener('unload', close);
+	debuggerWindow.addEventListener('unload', function() {
+		popout.b = undefined;
+		popout.a($elm$browser$Debugger$Main$NoOp);
+		window.removeEventListener('unload', close);
+	});
+
+	function close() {
+		popout.b = undefined;
+		popout.a($elm$browser$Debugger$Main$NoOp);
+		debuggerWindow.close();
+	}
+
+	// register new window
+	popout.b = doc;
+}
+
+
+
+// SCROLL
+
+
+function _Debugger_scroll(popout)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		if (popout.b)
+		{
+			var msgs = popout.b.getElementById('elm-debugger-sidebar');
+			if (msgs && msgs.scrollTop !== 0)
+			{
+				msgs.scrollTop = 0;
+			}
+		}
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+}
+
+
+var _Debugger_scrollTo = F2(function(id, popout)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		if (popout.b)
+		{
+			var msg = popout.b.getElementById(id);
+			if (msg)
+			{
+				msg.scrollIntoView(false);
+			}
+		}
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+});
+
+
+
+// UPLOAD
+
+
+function _Debugger_upload(popout)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		var doc = popout.b || document;
+		var element = doc.createElement('input');
+		element.setAttribute('type', 'file');
+		element.setAttribute('accept', 'text/json');
+		element.style.display = 'none';
+		element.addEventListener('change', function(event)
+		{
+			var fileReader = new FileReader();
+			fileReader.onload = function(e)
+			{
+				callback(_Scheduler_succeed(e.target.result));
+			};
+			fileReader.readAsText(event.target.files[0]);
+			doc.body.removeChild(element);
+		});
+		doc.body.appendChild(element);
+		element.click();
+	});
+}
+
+
+
+// DOWNLOAD
+
+
+var _Debugger_download = F2(function(historyLength, json)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		var fileName = 'history-' + historyLength + '.txt';
+		var jsonString = JSON.stringify(json);
+		var mime = 'text/plain;charset=utf-8';
+		var done = _Scheduler_succeed(_Utils_Tuple0);
+
+		// for IE10+
+		if (navigator.msSaveBlob)
+		{
+			navigator.msSaveBlob(new Blob([jsonString], {type: mime}), fileName);
+			return callback(done);
+		}
+
+		// for HTML5
+		var element = document.createElement('a');
+		element.setAttribute('href', 'data:' + mime + ',' + encodeURIComponent(jsonString));
+		element.setAttribute('download', fileName);
+		element.style.display = 'none';
+		document.body.appendChild(element);
+		element.click();
+		document.body.removeChild(element);
+		callback(done);
+	});
+});
+
+
+
+// POPOUT CONTENT
+
+
+function _Debugger_messageToString(value)
+{
+	if (typeof value === 'boolean')
+	{
+		return value ? 'True' : 'False';
+	}
+
+	if (typeof value === 'number')
+	{
+		return value + '';
+	}
+
+	if (typeof value === 'string')
+	{
+		return '"' + _Debugger_addSlashes(value, false) + '"';
+	}
+
+	if (value instanceof String)
+	{
+		return "'" + _Debugger_addSlashes(value, true) + "'";
+	}
+
+	if (typeof value !== 'object' || value === null || !('$' in value))
+	{
+		return '…';
+	}
+
+	if (typeof value.$ === 'number')
+	{
+		return '…';
+	}
+
+	var code = value.$.charCodeAt(0);
+	if (code === 0x23 /* # */ || /* a */ 0x61 <= code && code <= 0x7A /* z */)
+	{
+		return '…';
+	}
+
+	if (['Array_elm_builtin', 'Set_elm_builtin', 'RBNode_elm_builtin', 'RBEmpty_elm_builtin'].indexOf(value.$) >= 0)
+	{
+		return '…';
+	}
+
+	var keys = Object.keys(value);
+	switch (keys.length)
+	{
+		case 1:
+			return value.$;
+		case 2:
+			return value.$ + ' ' + _Debugger_messageToString(value.a);
+		default:
+			return value.$ + ' … ' + _Debugger_messageToString(value[keys[keys.length - 1]]);
+	}
+}
+
+
+function _Debugger_init(value)
+{
+	if (typeof value === 'boolean')
+	{
+		return A3($elm$browser$Debugger$Expando$Constructor, $elm$core$Maybe$Just(value ? 'True' : 'False'), true, _List_Nil);
+	}
+
+	if (typeof value === 'number')
+	{
+		return $elm$browser$Debugger$Expando$Primitive(value + '');
+	}
+
+	if (typeof value === 'string')
+	{
+		return $elm$browser$Debugger$Expando$S('"' + _Debugger_addSlashes(value, false) + '"');
+	}
+
+	if (value instanceof String)
+	{
+		return $elm$browser$Debugger$Expando$S("'" + _Debugger_addSlashes(value, true) + "'");
+	}
+
+	if (typeof value === 'object' && '$' in value)
+	{
+		var tag = value.$;
+
+		if (tag === '::' || tag === '[]')
+		{
+			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$ListSeq, true,
+				A2($elm$core$List$map, _Debugger_init, value)
+			);
+		}
+
+		if (tag === 'Set_elm_builtin')
+		{
+			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$SetSeq, true,
+				A3($elm$core$Set$foldr, _Debugger_initCons, _List_Nil, value)
+			);
+		}
+
+		if (tag === 'RBNode_elm_builtin' || tag == 'RBEmpty_elm_builtin')
+		{
+			return A2($elm$browser$Debugger$Expando$Dictionary, true,
+				A3($elm$core$Dict$foldr, _Debugger_initKeyValueCons, _List_Nil, value)
+			);
+		}
+
+		if (tag === 'Array_elm_builtin')
+		{
+			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$ArraySeq, true,
+				A3($elm$core$Array$foldr, _Debugger_initCons, _List_Nil, value)
+			);
+		}
+
+		if (typeof tag === 'number')
+		{
+			return $elm$browser$Debugger$Expando$Primitive('<internals>');
+		}
+
+		var char = tag.charCodeAt(0);
+		if (char === 35 || 65 <= char && char <= 90)
+		{
+			var list = _List_Nil;
+			for (var i in value)
+			{
+				if (i === '$') continue;
+				list = _List_Cons(_Debugger_init(value[i]), list);
+			}
+			return A3($elm$browser$Debugger$Expando$Constructor, char === 35 ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(tag), true, $elm$core$List$reverse(list));
+		}
+
+		return $elm$browser$Debugger$Expando$Primitive('<internals>');
+	}
+
+	if (typeof value === 'object')
+	{
+		var dict = $elm$core$Dict$empty;
+		for (var i in value)
+		{
+			dict = A3($elm$core$Dict$insert, i, _Debugger_init(value[i]), dict);
+		}
+		return A2($elm$browser$Debugger$Expando$Record, true, dict);
+	}
+
+	return $elm$browser$Debugger$Expando$Primitive('<internals>');
+}
+
+var _Debugger_initCons = F2(function initConsHelp(value, list)
+{
+	return _List_Cons(_Debugger_init(value), list);
+});
+
+var _Debugger_initKeyValueCons = F3(function(key, value, list)
+{
+	return _List_Cons(
+		_Utils_Tuple2(_Debugger_init(key), _Debugger_init(value)),
+		list
+	);
+});
+
+function _Debugger_addSlashes(str, isChar)
+{
+	var s = str
+		.replace(/\\/g, '\\\\')
+		.replace(/\n/g, '\\n')
+		.replace(/\t/g, '\\t')
+		.replace(/\r/g, '\\r')
+		.replace(/\v/g, '\\v')
+		.replace(/\0/g, '\\0');
+	if (isChar)
+	{
+		return s.replace(/\'/g, '\\\'');
+	}
+	else
+	{
+		return s.replace(/\"/g, '\\"');
+	}
+}
+
+
+
+// BLOCK EVENTS
+
+
+function _Debugger_updateBlocker(oldBlocker, newBlocker)
+{
+	if (oldBlocker === newBlocker) return;
+
+	var oldEvents = _Debugger_blockerToEvents(oldBlocker);
+	var newEvents = _Debugger_blockerToEvents(newBlocker);
+
+	// remove old blockers
+	for (var i = 0; i < oldEvents.length; i++)
+	{
+		document.removeEventListener(oldEvents[i], _Debugger_blocker, true);
+	}
+
+	// add new blockers
+	for (var i = 0; i < newEvents.length; i++)
+	{
+		document.addEventListener(newEvents[i], _Debugger_blocker, true);
+	}
+}
+
+
+function _Debugger_blocker(event)
+{
+	if (event.type === 'keydown' && event.metaKey && event.which === 82)
+	{
+		return;
+	}
+
+	var isScroll = event.type === 'scroll' || event.type === 'wheel';
+	for (var node = event.target; node; node = node.parentNode)
+	{
+		if (isScroll ? node.id === 'elm-debugger-details' : node.id === 'elm-debugger-overlay')
+		{
+			return;
+		}
+	}
+
+	event.stopPropagation();
+	event.preventDefault();
+}
+
+function _Debugger_blockerToEvents(blocker)
+{
+	return blocker === $elm$browser$Debugger$Overlay$BlockNone
+		? []
+		: blocker === $elm$browser$Debugger$Overlay$BlockMost
+			? _Debugger_mostEvents
+			: _Debugger_allEvents;
+}
+
+var _Debugger_mostEvents = [
+	'click', 'dblclick', 'mousemove',
+	'mouseup', 'mousedown', 'mouseenter', 'mouseleave',
+	'touchstart', 'touchend', 'touchcancel', 'touchmove',
+	'pointerdown', 'pointerup', 'pointerover', 'pointerout',
+	'pointerenter', 'pointerleave', 'pointermove', 'pointercancel',
+	'dragstart', 'drag', 'dragend', 'dragenter', 'dragover', 'dragleave', 'drop',
+	'keyup', 'keydown', 'keypress',
+	'input', 'change',
+	'focus', 'blur'
+];
+
+var _Debugger_allEvents = _Debugger_mostEvents.concat('wheel', 'scroll');
+
+
+
+
+// ELEMENT
+
+
+var _Debugger_element;
+
+var _Browser_element = _Debugger_element || F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function(sendToApp, initialModel) {
+			var view = impl.view;
+			/**_UNUSED/
+			var domNode = args['node'];
+			//*/
+			/**/
+			var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
+			//*/
+			var currNode = _VirtualDom_virtualize(domNode);
+
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				var nextNode = view(model);
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+			});
+		}
+	);
+});
+
+
+
+// DOCUMENT
+
+
+var _Debugger_document;
+
+var _Browser_document = _Debugger_document || F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function(sendToApp, initialModel) {
+			var divertHrefToApp = impl.setup && impl.setup(sendToApp)
+			var view = impl.view;
+			var title = _VirtualDom_doc.title;
+			var bodyNode = _VirtualDom_doc.body;
+			var currNode = _VirtualDom_virtualize(bodyNode);
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				_VirtualDom_divertHrefToApp = divertHrefToApp;
+				var doc = view(model);
+				var nextNode = _VirtualDom_node('body')(_List_Nil)(doc.body);
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+				_VirtualDom_divertHrefToApp = 0;
+				(title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
+			});
+		}
+	);
+});
+
+
+
+// ANIMATION
+
+
+var _Browser_cancelAnimationFrame =
+	typeof cancelAnimationFrame !== 'undefined'
+		? cancelAnimationFrame
+		: function(id) { clearTimeout(id); };
+
+var _Browser_requestAnimationFrame =
+	typeof requestAnimationFrame !== 'undefined'
+		? requestAnimationFrame
+		: function(callback) { return setTimeout(callback, 1000 / 60); };
+
+
+function _Browser_makeAnimator(model, draw)
+{
+	draw(model);
+
+	var state = 0;
+
+	function updateIfNeeded()
+	{
+		state = state === 1
+			? 0
+			: ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
+	}
+
+	return function(nextModel, isSync)
+	{
+		model = nextModel;
+
+		isSync
+			? ( draw(model),
+				state === 2 && (state = 1)
+				)
+			: ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
+				state = 2
+				);
+	};
+}
+
+
+
+// APPLICATION
+
+
+function _Browser_application(impl)
+{
+	var onUrlChange = impl.onUrlChange;
+	var onUrlRequest = impl.onUrlRequest;
+	var key = function() { key.a(onUrlChange(_Browser_getUrl())); };
+
+	return _Browser_document({
+		setup: function(sendToApp)
+		{
+			key.a = sendToApp;
+			_Browser_window.addEventListener('popstate', key);
+			_Browser_window.navigator.userAgent.indexOf('Trident') < 0 || _Browser_window.addEventListener('hashchange', key);
+
+			return F2(function(domNode, event)
+			{
+				if (!event.ctrlKey && !event.metaKey && !event.shiftKey && event.button < 1 && !domNode.target && !domNode.hasAttribute('download'))
+				{
+					event.preventDefault();
+					var href = domNode.href;
+					var curr = _Browser_getUrl();
+					var next = $elm$url$Url$fromString(href).a;
+					sendToApp(onUrlRequest(
+						(next
+							&& curr.protocol === next.protocol
+							&& curr.host === next.host
+							&& curr.port_.a === next.port_.a
+						)
+							? $elm$browser$Browser$Internal(next)
+							: $elm$browser$Browser$External(href)
+					));
+				}
+			});
+		},
+		init: function(flags)
+		{
+			return A3(impl.init, flags, _Browser_getUrl(), key);
+		},
+		view: impl.view,
+		update: impl.update,
+		subscriptions: impl.subscriptions
+	});
+}
+
+function _Browser_getUrl()
+{
+	return $elm$url$Url$fromString(_VirtualDom_doc.location.href).a || _Debug_crash(1);
+}
+
+var _Browser_go = F2(function(key, n)
+{
+	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
+		n && history.go(n);
+		key();
+	}));
+});
+
+var _Browser_pushUrl = F2(function(key, url)
+{
+	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
+		history.pushState({}, '', url);
+		key();
+	}));
+});
+
+var _Browser_replaceUrl = F2(function(key, url)
+{
+	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
+		history.replaceState({}, '', url);
+		key();
+	}));
+});
+
+
+
+// GLOBAL EVENTS
+
+
+var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
+var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
+var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
+
+var _Browser_on = F3(function(node, eventName, sendToSelf)
+{
+	return _Scheduler_spawn(_Scheduler_binding(function(callback)
+	{
+		function handler(event)	{ _Scheduler_rawSpawn(sendToSelf(event)); }
+		node.addEventListener(eventName, handler, _VirtualDom_passiveSupported && { passive: true });
+		return function() { node.removeEventListener(eventName, handler); };
+	}));
+});
+
+var _Browser_decodeEvent = F2(function(decoder, event)
+{
+	var result = _Json_runHelp(decoder, event);
+	return $elm$core$Result$isOk(result) ? $elm$core$Maybe$Just(result.a) : $elm$core$Maybe$Nothing;
+});
+
+
+
+// PAGE VISIBILITY
+
+
+function _Browser_visibilityInfo()
+{
+	return (typeof _VirtualDom_doc.hidden !== 'undefined')
+		? { hidden: 'hidden', change: 'visibilitychange' }
+		:
+	(typeof _VirtualDom_doc.mozHidden !== 'undefined')
+		? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
+		:
+	(typeof _VirtualDom_doc.msHidden !== 'undefined')
+		? { hidden: 'msHidden', change: 'msvisibilitychange' }
+		:
+	(typeof _VirtualDom_doc.webkitHidden !== 'undefined')
+		? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
+		: { hidden: 'hidden', change: 'visibilitychange' };
+}
+
+
+
+// ANIMATION FRAMES
+
+
+function _Browser_rAF()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		var id = _Browser_requestAnimationFrame(function() {
+			callback(_Scheduler_succeed(Date.now()));
+		});
+
+		return function() {
+			_Browser_cancelAnimationFrame(id);
+		};
+	});
+}
+
+
+function _Browser_now()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		callback(_Scheduler_succeed(Date.now()));
+	});
+}
+
+
+
+// DOM STUFF
+
+
+function _Browser_withNode(id, doStuff)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		_Browser_requestAnimationFrame(function() {
+			var node = document.getElementById(id);
+			callback(node
+				? _Scheduler_succeed(doStuff(node))
+				: _Scheduler_fail($elm$browser$Browser$Dom$NotFound(id))
+			);
+		});
+	});
+}
+
+
+function _Browser_withWindow(doStuff)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		_Browser_requestAnimationFrame(function() {
+			callback(_Scheduler_succeed(doStuff()));
+		});
+	});
+}
+
+
+// FOCUS and BLUR
+
+
+var _Browser_call = F2(function(functionName, id)
+{
+	return _Browser_withNode(id, function(node) {
+		node[functionName]();
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// WINDOW VIEWPORT
+
+
+function _Browser_getViewport()
+{
+	return {
+		scene: _Browser_getScene(),
+		viewport: {
+			x: _Browser_window.pageXOffset,
+			y: _Browser_window.pageYOffset,
+			width: _Browser_doc.documentElement.clientWidth,
+			height: _Browser_doc.documentElement.clientHeight
+		}
+	};
+}
+
+function _Browser_getScene()
+{
+	var body = _Browser_doc.body;
+	var elem = _Browser_doc.documentElement;
+	return {
+		width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
+		height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
+	};
+}
+
+var _Browser_setViewport = F2(function(x, y)
+{
+	return _Browser_withWindow(function()
+	{
+		_Browser_window.scroll(x, y);
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// ELEMENT VIEWPORT
+
+
+function _Browser_getViewportOf(id)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		return {
+			scene: {
+				width: node.scrollWidth,
+				height: node.scrollHeight
+			},
+			viewport: {
+				x: node.scrollLeft,
+				y: node.scrollTop,
+				width: node.clientWidth,
+				height: node.clientHeight
+			}
+		};
+	});
+}
+
+
+var _Browser_setViewportOf = F3(function(id, x, y)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		node.scrollLeft = x;
+		node.scrollTop = y;
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// ELEMENT
+
+
+function _Browser_getElement(id)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		var rect = node.getBoundingClientRect();
+		var x = _Browser_window.pageXOffset;
+		var y = _Browser_window.pageYOffset;
+		return {
+			scene: _Browser_getScene(),
+			viewport: {
+				x: x,
+				y: y,
+				width: _Browser_doc.documentElement.clientWidth,
+				height: _Browser_doc.documentElement.clientHeight
+			},
+			element: {
+				x: x + rect.left,
+				y: y + rect.top,
+				width: rect.width,
+				height: rect.height
+			}
+		};
+	});
+}
+
+
+
+// LOAD and RELOAD
+
+
+function _Browser_reload(skipCache)
+{
+	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
+	{
+		_VirtualDom_doc.location.reload(skipCache);
+	}));
+}
+
+function _Browser_load(url)
+{
+	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
+	{
+		try
+		{
+			_Browser_window.location = url;
+		}
+		catch(err)
+		{
+			// Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
+			// Other browsers reload the page, so let's be consistent about that.
+			_VirtualDom_doc.location.reload(false);
+		}
+	}));
+}
+
+
+
+
+// STRINGS
+
+
+var _Parser_isSubString = F5(function(smallString, offset, row, col, bigString)
+{
+	var smallLength = smallString.length;
+	var isGood = offset + smallLength <= bigString.length;
+
+	for (var i = 0; isGood && i < smallLength; )
+	{
+		var code = bigString.charCodeAt(offset);
+		isGood =
+			smallString[i++] === bigString[offset++]
+			&& (
+				code === 0x000A /* \n */
+					? ( row++, col=1 )
+					: ( col++, (code & 0xF800) === 0xD800 ? smallString[i++] === bigString[offset++] : 1 )
+			)
+	}
+
+	return _Utils_Tuple3(isGood ? offset : -1, row, col);
+});
+
+
+
+// CHARS
+
+
+var _Parser_isSubChar = F3(function(predicate, offset, string)
+{
+	return (
+		string.length <= offset
+			? -1
+			:
+		(string.charCodeAt(offset) & 0xF800) === 0xD800
+			? (predicate(_Utils_chr(string.substr(offset, 2))) ? offset + 2 : -1)
+			:
+		(predicate(_Utils_chr(string[offset]))
+			? ((string[offset] === '\n') ? -2 : (offset + 1))
+			: -1
+		)
+	);
+});
+
+
+var _Parser_isAsciiCode = F3(function(code, offset, string)
+{
+	return string.charCodeAt(offset) === code;
+});
+
+
+
+// NUMBERS
+
+
+var _Parser_chompBase10 = F2(function(offset, string)
+{
+	for (; offset < string.length; offset++)
+	{
+		var code = string.charCodeAt(offset);
+		if (code < 0x30 || 0x39 < code)
+		{
+			return offset;
+		}
+	}
+	return offset;
+});
+
+
+var _Parser_consumeBase = F3(function(base, offset, string)
+{
+	for (var total = 0; offset < string.length; offset++)
+	{
+		var digit = string.charCodeAt(offset) - 0x30;
+		if (digit < 0 || base <= digit) break;
+		total = base * total + digit;
+	}
+	return _Utils_Tuple2(offset, total);
+});
+
+
+var _Parser_consumeBase16 = F2(function(offset, string)
+{
+	for (var total = 0; offset < string.length; offset++)
+	{
+		var code = string.charCodeAt(offset);
+		if (0x30 <= code && code <= 0x39)
+		{
+			total = 16 * total + code - 0x30;
+		}
+		else if (0x41 <= code && code <= 0x46)
+		{
+			total = 16 * total + code - 55;
+		}
+		else if (0x61 <= code && code <= 0x66)
+		{
+			total = 16 * total + code - 87;
+		}
+		else
+		{
+			break;
+		}
+	}
+	return _Utils_Tuple2(offset, total);
+});
+
+
+
+// FIND STRING
+
+
+var _Parser_findSubString = F5(function(smallString, offset, row, col, bigString)
+{
+	var newOffset = bigString.indexOf(smallString, offset);
+	var target = newOffset < 0 ? bigString.length : newOffset + smallString.length;
+
+	while (offset < target)
+	{
+		var code = bigString.charCodeAt(offset++);
+		code === 0x000A /* \n */
+			? ( col=1, row++ )
+			: ( col++, (code & 0xF800) === 0xD800 && offset++ )
+	}
+
+	return _Utils_Tuple3(newOffset, row, col);
+});
+
+
+
+// SEND REQUEST
+
+var _Http_toTask = F3(function(router, toTask, request)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		function done(response) {
+			callback(toTask(request.expect.a(response)));
+		}
+
+		var xhr = new XMLHttpRequest();
+		xhr.addEventListener('error', function() { done($elm$http$Http$NetworkError_); });
+		xhr.addEventListener('timeout', function() { done($elm$http$Http$Timeout_); });
+		xhr.addEventListener('load', function() { done(_Http_toResponse(request.expect.b, xhr)); });
+		$elm$core$Maybe$isJust(request.tracker) && _Http_track(router, xhr, request.tracker.a);
+
+		try {
+			xhr.open(request.method, request.url, true);
+		} catch (e) {
+			return done($elm$http$Http$BadUrl_(request.url));
+		}
+
+		_Http_configureRequest(xhr, request);
+
+		request.body.a && xhr.setRequestHeader('Content-Type', request.body.a);
+		xhr.send(request.body.b);
+
+		return function() { xhr.c = true; xhr.abort(); };
+	});
+});
+
+
+// CONFIGURE
+
+function _Http_configureRequest(xhr, request)
+{
+	for (var headers = request.headers; headers.b; headers = headers.b) // WHILE_CONS
+	{
+		xhr.setRequestHeader(headers.a.a, headers.a.b);
+	}
+	xhr.timeout = request.timeout.a || 0;
+	xhr.responseType = request.expect.d;
+	xhr.withCredentials = request.allowCookiesFromOtherDomains;
+}
+
+
+// RESPONSES
+
+function _Http_toResponse(toBody, xhr)
+{
+	return A2(
+		200 <= xhr.status && xhr.status < 300 ? $elm$http$Http$GoodStatus_ : $elm$http$Http$BadStatus_,
+		_Http_toMetadata(xhr),
+		toBody(xhr.response)
+	);
+}
+
+
+// METADATA
+
+function _Http_toMetadata(xhr)
+{
+	return {
+		url: xhr.responseURL,
+		statusCode: xhr.status,
+		statusText: xhr.statusText,
+		headers: _Http_parseHeaders(xhr.getAllResponseHeaders())
+	};
+}
+
+
+// HEADERS
+
+function _Http_parseHeaders(rawHeaders)
+{
+	if (!rawHeaders)
+	{
+		return $elm$core$Dict$empty;
+	}
+
+	var headers = $elm$core$Dict$empty;
+	var headerPairs = rawHeaders.split('\r\n');
+	for (var i = headerPairs.length; i--; )
+	{
+		var headerPair = headerPairs[i];
+		var index = headerPair.indexOf(': ');
+		if (index > 0)
+		{
+			var key = headerPair.substring(0, index);
+			var value = headerPair.substring(index + 2);
+
+			headers = A3($elm$core$Dict$update, key, function(oldValue) {
+				return $elm$core$Maybe$Just($elm$core$Maybe$isJust(oldValue)
+					? value + ', ' + oldValue.a
+					: value
+				);
+			}, headers);
+		}
+	}
+	return headers;
+}
+
+
+// EXPECT
+
+var _Http_expect = F3(function(type, toBody, toValue)
+{
+	return {
+		$: 0,
+		d: type,
+		b: toBody,
+		a: toValue
+	};
+});
+
+var _Http_mapExpect = F2(function(func, expect)
+{
+	return {
+		$: 0,
+		d: expect.d,
+		b: expect.b,
+		a: function(x) { return func(expect.a(x)); }
+	};
+});
+
+function _Http_toDataView(arrayBuffer)
+{
+	return new DataView(arrayBuffer);
+}
+
+
+// BODY and PARTS
+
+var _Http_emptyBody = { $: 0 };
+var _Http_pair = F2(function(a, b) { return { $: 0, a: a, b: b }; });
+
+function _Http_toFormData(parts)
+{
+	for (var formData = new FormData(); parts.b; parts = parts.b) // WHILE_CONS
+	{
+		var part = parts.a;
+		formData.append(part.a, part.b);
+	}
+	return formData;
+}
+
+var _Http_bytesToBlob = F2(function(mime, bytes)
+{
+	return new Blob([bytes], { type: mime });
+});
+
+
+// PROGRESS
+
+function _Http_track(router, xhr, tracker)
+{
+	// TODO check out lengthComputable on loadstart event
+
+	xhr.upload.addEventListener('progress', function(event) {
+		if (xhr.c) { return; }
+		_Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Sending({
+			sent: event.loaded,
+			size: event.total
+		}))));
+	});
+	xhr.addEventListener('progress', function(event) {
+		if (xhr.c) { return; }
+		_Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Receiving({
+			received: event.loaded,
+			size: event.lengthComputable ? $elm$core$Maybe$Just(event.total) : $elm$core$Maybe$Nothing
+		}))));
+	});
+}
+
+function _Url_percentEncode(string)
+{
+	return encodeURIComponent(string);
+}
+
+function _Url_percentDecode(string)
+{
+	try
+	{
+		return $elm$core$Maybe$Just(decodeURIComponent(string));
+	}
+	catch (e)
+	{
+		return $elm$core$Maybe$Nothing;
+	}
+}
+
+
+function _Time_now(millisToPosix)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		callback(_Scheduler_succeed(millisToPosix(Date.now())));
+	});
+}
+
+var _Time_setInterval = F2(function(interval, task)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		var id = setInterval(function() { _Scheduler_rawSpawn(task); }, interval);
+		return function() { clearInterval(id); };
+	});
+});
+
+function _Time_here()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		callback(_Scheduler_succeed(
+			A2($elm$time$Time$customZone, -(new Date().getTimezoneOffset()), _List_Nil)
+		));
+	});
+}
+
+
+function _Time_getZoneName()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		try
+		{
+			var name = $elm$time$Time$Name(Intl.DateTimeFormat().resolvedOptions().timeZone);
+		}
+		catch (e)
+		{
+			var name = $elm$time$Time$Offset(new Date().getTimezoneOffset());
+		}
+		callback(_Scheduler_succeed(name));
+	});
+}
+var $elm$core$Basics$EQ = {$: 'EQ'};
+var $elm$core$Basics$GT = {$: 'GT'};
+var $elm$core$Basics$LT = {$: 'LT'};
+var $elm$core$List$cons = _List_cons;
+var $elm$core$Dict$foldr = F3(
+	function (func, acc, t) {
+		foldr:
+		while (true) {
+			if (t.$ === 'RBEmpty_elm_builtin') {
+				return acc;
+			} else {
+				var key = t.b;
+				var value = t.c;
+				var left = t.d;
+				var right = t.e;
+				var $temp$func = func,
+					$temp$acc = A3(
+					func,
+					key,
+					value,
+					A3($elm$core$Dict$foldr, func, acc, right)),
+					$temp$t = left;
+				func = $temp$func;
+				acc = $temp$acc;
+				t = $temp$t;
+				continue foldr;
+			}
+		}
+	});
+var $elm$core$Dict$toList = function (dict) {
+	return A3(
+		$elm$core$Dict$foldr,
+		F3(
+			function (key, value, list) {
+				return A2(
+					$elm$core$List$cons,
+					_Utils_Tuple2(key, value),
+					list);
+			}),
+		_List_Nil,
+		dict);
+};
+var $elm$core$Dict$keys = function (dict) {
+	return A3(
+		$elm$core$Dict$foldr,
+		F3(
+			function (key, value, keyList) {
+				return A2($elm$core$List$cons, key, keyList);
+			}),
+		_List_Nil,
+		dict);
+};
+var $elm$core$Set$toList = function (_v0) {
+	var dict = _v0.a;
+	return $elm$core$Dict$keys(dict);
+};
+var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
+var $elm$core$Array$foldr = F3(
+	function (func, baseCase, _v0) {
+		var tree = _v0.c;
+		var tail = _v0.d;
+		var helper = F2(
+			function (node, acc) {
+				if (node.$ === 'SubTree') {
+					var subTree = node.a;
+					return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
+				} else {
+					var values = node.a;
+					return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
+				}
+			});
+		return A3(
+			$elm$core$Elm$JsArray$foldr,
+			helper,
+			A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
+			tree);
+	});
+var $elm$core$Array$toList = function (array) {
+	return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
+};
+var $elm$core$Result$Err = function (a) {
+	return {$: 'Err', a: a};
+};
+var $elm$json$Json$Decode$Failure = F2(
+	function (a, b) {
+		return {$: 'Failure', a: a, b: b};
+	});
+var $elm$json$Json$Decode$Field = F2(
+	function (a, b) {
+		return {$: 'Field', a: a, b: b};
+	});
+var $elm$json$Json$Decode$Index = F2(
+	function (a, b) {
+		return {$: 'Index', a: a, b: b};
+	});
+var $elm$core$Result$Ok = function (a) {
+	return {$: 'Ok', a: a};
+};
+var $elm$json$Json$Decode$OneOf = function (a) {
+	return {$: 'OneOf', a: a};
+};
+var $elm$core$Basics$False = {$: 'False'};
+var $elm$core$Basics$add = _Basics_add;
+var $elm$core$Maybe$Just = function (a) {
+	return {$: 'Just', a: a};
+};
+var $elm$core$Maybe$Nothing = {$: 'Nothing'};
+var $elm$core$String$all = _String_all;
+var $elm$core$Basics$and = _Basics_and;
+var $elm$core$Basics$append = _Utils_append;
+var $elm$json$Json$Encode$encode = _Json_encode;
+var $elm$core$String$fromInt = _String_fromNumber;
+var $elm$core$String$join = F2(
+	function (sep, chunks) {
+		return A2(
+			_String_join,
+			sep,
+			_List_toArray(chunks));
+	});
+var $elm$core$String$split = F2(
+	function (sep, string) {
+		return _List_fromArray(
+			A2(_String_split, sep, string));
+	});
+var $elm$json$Json$Decode$indent = function (str) {
+	return A2(
+		$elm$core$String$join,
+		'\n    ',
+		A2($elm$core$String$split, '\n', str));
+};
+var $elm$core$List$foldl = F3(
+	function (func, acc, list) {
+		foldl:
+		while (true) {
+			if (!list.b) {
+				return acc;
+			} else {
+				var x = list.a;
+				var xs = list.b;
+				var $temp$func = func,
+					$temp$acc = A2(func, x, acc),
+					$temp$list = xs;
+				func = $temp$func;
+				acc = $temp$acc;
+				list = $temp$list;
+				continue foldl;
+			}
+		}
+	});
+var $elm$core$List$length = function (xs) {
+	return A3(
+		$elm$core$List$foldl,
+		F2(
+			function (_v0, i) {
+				return i + 1;
+			}),
+		0,
+		xs);
+};
+var $elm$core$List$map2 = _List_map2;
+var $elm$core$Basics$le = _Utils_le;
+var $elm$core$Basics$sub = _Basics_sub;
+var $elm$core$List$rangeHelp = F3(
+	function (lo, hi, list) {
+		rangeHelp:
+		while (true) {
+			if (_Utils_cmp(lo, hi) < 1) {
+				var $temp$lo = lo,
+					$temp$hi = hi - 1,
+					$temp$list = A2($elm$core$List$cons, hi, list);
+				lo = $temp$lo;
+				hi = $temp$hi;
+				list = $temp$list;
+				continue rangeHelp;
+			} else {
+				return list;
+			}
+		}
+	});
+var $elm$core$List$range = F2(
+	function (lo, hi) {
+		return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
+	});
+var $elm$core$List$indexedMap = F2(
+	function (f, xs) {
+		return A3(
+			$elm$core$List$map2,
+			f,
+			A2(
+				$elm$core$List$range,
+				0,
+				$elm$core$List$length(xs) - 1),
+			xs);
+	});
+var $elm$core$Char$toCode = _Char_toCode;
+var $elm$core$Char$isLower = function (_char) {
+	var code = $elm$core$Char$toCode(_char);
+	return (97 <= code) && (code <= 122);
+};
+var $elm$core$Char$isUpper = function (_char) {
+	var code = $elm$core$Char$toCode(_char);
+	return (code <= 90) && (65 <= code);
+};
+var $elm$core$Basics$or = _Basics_or;
+var $elm$core$Char$isAlpha = function (_char) {
+	return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
+};
+var $elm$core$Char$isDigit = function (_char) {
+	var code = $elm$core$Char$toCode(_char);
+	return (code <= 57) && (48 <= code);
+};
+var $elm$core$Char$isAlphaNum = function (_char) {
+	return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
+};
+var $elm$core$List$reverse = function (list) {
+	return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
+};
+var $elm$core$String$uncons = _String_uncons;
+var $elm$json$Json$Decode$errorOneOf = F2(
+	function (i, error) {
+		return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
+			$elm$json$Json$Decode$errorToString(error))));
+	});
+var $elm$json$Json$Decode$errorToString = function (error) {
+	return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
+};
+var $elm$json$Json$Decode$errorToStringHelp = F2(
+	function (error, context) {
+		errorToStringHelp:
+		while (true) {
+			switch (error.$) {
+				case 'Field':
+					var f = error.a;
+					var err = error.b;
+					var isSimple = function () {
+						var _v1 = $elm$core$String$uncons(f);
+						if (_v1.$ === 'Nothing') {
+							return false;
+						} else {
+							var _v2 = _v1.a;
+							var _char = _v2.a;
+							var rest = _v2.b;
+							return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
+						}
+					}();
+					var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
+					var $temp$error = err,
+						$temp$context = A2($elm$core$List$cons, fieldName, context);
+					error = $temp$error;
+					context = $temp$context;
+					continue errorToStringHelp;
+				case 'Index':
+					var i = error.a;
+					var err = error.b;
+					var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
+					var $temp$error = err,
+						$temp$context = A2($elm$core$List$cons, indexName, context);
+					error = $temp$error;
+					context = $temp$context;
+					continue errorToStringHelp;
+				case 'OneOf':
+					var errors = error.a;
+					if (!errors.b) {
+						return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
+							if (!context.b) {
+								return '!';
+							} else {
+								return ' at json' + A2(
+									$elm$core$String$join,
+									'',
+									$elm$core$List$reverse(context));
+							}
+						}();
+					} else {
+						if (!errors.b.b) {
+							var err = errors.a;
+							var $temp$error = err,
+								$temp$context = context;
+							error = $temp$error;
+							context = $temp$context;
+							continue errorToStringHelp;
+						} else {
+							var starter = function () {
+								if (!context.b) {
+									return 'Json.Decode.oneOf';
+								} else {
+									return 'The Json.Decode.oneOf at json' + A2(
+										$elm$core$String$join,
+										'',
+										$elm$core$List$reverse(context));
+								}
+							}();
+							var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
+								$elm$core$List$length(errors)) + ' ways:'));
+							return A2(
+								$elm$core$String$join,
+								'\n\n',
+								A2(
+									$elm$core$List$cons,
+									introduction,
+									A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
+						}
+					}
+				default:
+					var msg = error.a;
+					var json = error.b;
+					var introduction = function () {
+						if (!context.b) {
+							return 'Problem with the given value:\n\n';
+						} else {
+							return 'Problem with the value at json' + (A2(
+								$elm$core$String$join,
+								'',
+								$elm$core$List$reverse(context)) + ':\n\n    ');
+						}
+					}();
+					return introduction + ($elm$json$Json$Decode$indent(
+						A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
+			}
+		}
+	});
+var $elm$core$Array$branchFactor = 32;
+var $elm$core$Array$Array_elm_builtin = F4(
+	function (a, b, c, d) {
+		return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
+	});
+var $elm$core$Elm$JsArray$empty = _JsArray_empty;
+var $elm$core$Basics$ceiling = _Basics_ceiling;
+var $elm$core$Basics$fdiv = _Basics_fdiv;
+var $elm$core$Basics$logBase = F2(
+	function (base, number) {
+		return _Basics_log(number) / _Basics_log(base);
+	});
+var $elm$core$Basics$toFloat = _Basics_toFloat;
+var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
+	A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
+var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
+var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
+var $elm$core$Array$Leaf = function (a) {
+	return {$: 'Leaf', a: a};
+};
+var $elm$core$Basics$apL = F2(
+	function (f, x) {
+		return f(x);
+	});
+var $elm$core$Basics$apR = F2(
+	function (x, f) {
+		return f(x);
+	});
+var $elm$core$Basics$eq = _Utils_equal;
+var $elm$core$Basics$floor = _Basics_floor;
+var $elm$core$Elm$JsArray$length = _JsArray_length;
+var $elm$core$Basics$gt = _Utils_gt;
+var $elm$core$Basics$max = F2(
+	function (x, y) {
+		return (_Utils_cmp(x, y) > 0) ? x : y;
+	});
+var $elm$core$Basics$mul = _Basics_mul;
+var $elm$core$Array$SubTree = function (a) {
+	return {$: 'SubTree', a: a};
+};
+var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
+var $elm$core$Array$compressNodes = F2(
+	function (nodes, acc) {
+		compressNodes:
+		while (true) {
+			var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
+			var node = _v0.a;
+			var remainingNodes = _v0.b;
+			var newAcc = A2(
+				$elm$core$List$cons,
+				$elm$core$Array$SubTree(node),
+				acc);
+			if (!remainingNodes.b) {
+				return $elm$core$List$reverse(newAcc);
+			} else {
+				var $temp$nodes = remainingNodes,
+					$temp$acc = newAcc;
+				nodes = $temp$nodes;
+				acc = $temp$acc;
+				continue compressNodes;
+			}
+		}
+	});
+var $elm$core$Tuple$first = function (_v0) {
+	var x = _v0.a;
+	return x;
+};
+var $elm$core$Array$treeFromBuilder = F2(
+	function (nodeList, nodeListSize) {
+		treeFromBuilder:
+		while (true) {
+			var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
+			if (newNodeSize === 1) {
+				return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
+			} else {
+				var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
+					$temp$nodeListSize = newNodeSize;
+				nodeList = $temp$nodeList;
+				nodeListSize = $temp$nodeListSize;
+				continue treeFromBuilder;
+			}
+		}
+	});
+var $elm$core$Array$builderToArray = F2(
+	function (reverseNodeList, builder) {
+		if (!builder.nodeListSize) {
+			return A4(
+				$elm$core$Array$Array_elm_builtin,
+				$elm$core$Elm$JsArray$length(builder.tail),
+				$elm$core$Array$shiftStep,
+				$elm$core$Elm$JsArray$empty,
+				builder.tail);
+		} else {
+			var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
+			var depth = $elm$core$Basics$floor(
+				A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
+			var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
+			var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
+			return A4(
+				$elm$core$Array$Array_elm_builtin,
+				$elm$core$Elm$JsArray$length(builder.tail) + treeLen,
+				A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
+				tree,
+				builder.tail);
+		}
+	});
+var $elm$core$Basics$idiv = _Basics_idiv;
+var $elm$core$Basics$lt = _Utils_lt;
+var $elm$core$Array$initializeHelp = F5(
+	function (fn, fromIndex, len, nodeList, tail) {
+		initializeHelp:
+		while (true) {
+			if (fromIndex < 0) {
+				return A2(
+					$elm$core$Array$builderToArray,
+					false,
+					{nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
+			} else {
+				var leaf = $elm$core$Array$Leaf(
+					A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
+				var $temp$fn = fn,
+					$temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
+					$temp$len = len,
+					$temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
+					$temp$tail = tail;
+				fn = $temp$fn;
+				fromIndex = $temp$fromIndex;
+				len = $temp$len;
+				nodeList = $temp$nodeList;
+				tail = $temp$tail;
+				continue initializeHelp;
+			}
+		}
+	});
+var $elm$core$Basics$remainderBy = _Basics_remainderBy;
+var $elm$core$Array$initialize = F2(
+	function (len, fn) {
+		if (len <= 0) {
+			return $elm$core$Array$empty;
+		} else {
+			var tailLen = len % $elm$core$Array$branchFactor;
+			var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
+			var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
+			return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
+		}
+	});
+var $elm$core$Basics$True = {$: 'True'};
+var $elm$core$Result$isOk = function (result) {
+	if (result.$ === 'Ok') {
+		return true;
+	} else {
+		return false;
+	}
+};
+var $elm$json$Json$Decode$map = _Json_map1;
+var $elm$json$Json$Decode$map2 = _Json_map2;
+var $elm$json$Json$Decode$succeed = _Json_succeed;
+var $elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
+	switch (handler.$) {
+		case 'Normal':
+			return 0;
+		case 'MayStopPropagation':
+			return 1;
+		case 'MayPreventDefault':
+			return 2;
+		default:
+			return 3;
+	}
+};
+var $elm$browser$Debugger$Expando$ArraySeq = {$: 'ArraySeq'};
+var $elm$browser$Debugger$Overlay$BlockMost = {$: 'BlockMost'};
+var $elm$browser$Debugger$Overlay$BlockNone = {$: 'BlockNone'};
+var $elm$browser$Debugger$Expando$Constructor = F3(
+	function (a, b, c) {
+		return {$: 'Constructor', a: a, b: b, c: c};
+	});
+var $elm$browser$Debugger$Expando$Dictionary = F2(
+	function (a, b) {
+		return {$: 'Dictionary', a: a, b: b};
+	});
+var $elm$browser$Debugger$Main$Down = {$: 'Down'};
+var $elm$browser$Debugger$Expando$ListSeq = {$: 'ListSeq'};
+var $elm$browser$Debugger$Main$NoOp = {$: 'NoOp'};
+var $elm$browser$Debugger$Expando$Primitive = function (a) {
+	return {$: 'Primitive', a: a};
+};
+var $elm$browser$Debugger$Expando$Record = F2(
+	function (a, b) {
+		return {$: 'Record', a: a, b: b};
+	});
+var $elm$browser$Debugger$Expando$S = function (a) {
+	return {$: 'S', a: a};
+};
+var $elm$browser$Debugger$Expando$Sequence = F3(
+	function (a, b, c) {
+		return {$: 'Sequence', a: a, b: b, c: c};
+	});
+var $elm$browser$Debugger$Expando$SetSeq = {$: 'SetSeq'};
+var $elm$browser$Debugger$Main$Up = {$: 'Up'};
+var $elm$browser$Debugger$Main$UserMsg = function (a) {
+	return {$: 'UserMsg', a: a};
+};
+var $elm$browser$Debugger$Main$Export = {$: 'Export'};
+var $elm$browser$Debugger$Main$Import = {$: 'Import'};
+var $elm$browser$Debugger$Main$Open = {$: 'Open'};
+var $elm$browser$Debugger$Main$OverlayMsg = function (a) {
+	return {$: 'OverlayMsg', a: a};
+};
+var $elm$browser$Debugger$Main$Resume = {$: 'Resume'};
+var $elm$browser$Debugger$Main$isPaused = function (state) {
+	if (state.$ === 'Running') {
+		return false;
+	} else {
+		return true;
+	}
+};
+var $elm$browser$Debugger$History$size = function (history) {
+	return history.numMessages;
+};
+var $elm$browser$Debugger$Overlay$Accept = function (a) {
+	return {$: 'Accept', a: a};
+};
+var $elm$browser$Debugger$Overlay$Choose = F2(
+	function (a, b) {
+		return {$: 'Choose', a: a, b: b};
+	});
+var $elm$html$Html$div = _VirtualDom_node('div');
+var $elm$json$Json$Encode$string = _Json_wrap;
+var $elm$html$Html$Attributes$stringProperty = F2(
+	function (key, string) {
+		return A2(
+			_VirtualDom_property,
+			key,
+			$elm$json$Json$Encode$string(string));
+	});
+var $elm$html$Html$Attributes$id = $elm$html$Html$Attributes$stringProperty('id');
+var $elm$virtual_dom$VirtualDom$Normal = function (a) {
+	return {$: 'Normal', a: a};
+};
+var $elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
+var $elm$html$Html$Events$on = F2(
+	function (event, decoder) {
+		return A2(
+			$elm$virtual_dom$VirtualDom$on,
+			event,
+			$elm$virtual_dom$VirtualDom$Normal(decoder));
+	});
+var $elm$html$Html$Events$onClick = function (msg) {
+	return A2(
+		$elm$html$Html$Events$on,
+		'click',
+		$elm$json$Json$Decode$succeed(msg));
+};
+var $elm$html$Html$span = _VirtualDom_node('span');
+var $elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
+var $elm$html$Html$Attributes$style = $elm$virtual_dom$VirtualDom$style;
+var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
+var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text;
+var $elm$html$Html$a = _VirtualDom_node('a');
+var $elm$browser$Debugger$Overlay$goodNews1 = '\nThe good news is that having values like this in your message type is not\nso great in the long run. You are better off using simpler data, like\n';
+var $elm$browser$Debugger$Overlay$goodNews2 = '\nfunction can pattern match on that data and call whatever functions, JSON\ndecoders, etc. you need. This makes the code much more explicit and easy to\nfollow for other readers (or you in a few months!)\n';
+var $elm$html$Html$Attributes$href = function (url) {
+	return A2(
+		$elm$html$Html$Attributes$stringProperty,
+		'href',
+		_VirtualDom_noJavaScriptUri(url));
+};
+var $elm$core$List$foldrHelper = F4(
+	function (fn, acc, ctr, ls) {
+		if (!ls.b) {
+			return acc;
+		} else {
+			var a = ls.a;
+			var r1 = ls.b;
+			if (!r1.b) {
+				return A2(fn, a, acc);
+			} else {
+				var b = r1.a;
+				var r2 = r1.b;
+				if (!r2.b) {
+					return A2(
+						fn,
+						a,
+						A2(fn, b, acc));
+				} else {
+					var c = r2.a;
+					var r3 = r2.b;
+					if (!r3.b) {
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(fn, c, acc)));
+					} else {
+						var d = r3.a;
+						var r4 = r3.b;
+						var res = (ctr > 500) ? A3(
+							$elm$core$List$foldl,
+							fn,
+							acc,
+							$elm$core$List$reverse(r4)) : A4($elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(
+									fn,
+									c,
+									A2(fn, d, res))));
+					}
+				}
+			}
+		}
+	});
+var $elm$core$List$foldr = F3(
+	function (fn, acc, ls) {
+		return A4($elm$core$List$foldrHelper, fn, acc, 0, ls);
+	});
+var $elm$core$List$map = F2(
+	function (f, xs) {
+		return A3(
+			$elm$core$List$foldr,
+			F2(
+				function (x, acc) {
+					return A2(
+						$elm$core$List$cons,
+						f(x),
+						acc);
+				}),
+			_List_Nil,
+			xs);
+	});
+var $elm$html$Html$p = _VirtualDom_node('p');
+var $elm$html$Html$ul = _VirtualDom_node('ul');
+var $elm$html$Html$code = _VirtualDom_node('code');
+var $elm$browser$Debugger$Overlay$viewCode = function (name) {
+	return A2(
+		$elm$html$Html$code,
+		_List_Nil,
+		_List_fromArray(
+			[
+				$elm$html$Html$text(name)
+			]));
+};
+var $elm$browser$Debugger$Overlay$addCommas = function (items) {
+	if (!items.b) {
+		return '';
+	} else {
+		if (!items.b.b) {
+			var item = items.a;
+			return item;
+		} else {
+			if (!items.b.b.b) {
+				var item1 = items.a;
+				var _v1 = items.b;
+				var item2 = _v1.a;
+				return item1 + (' and ' + item2);
+			} else {
+				var lastItem = items.a;
+				var otherItems = items.b;
+				return A2(
+					$elm$core$String$join,
+					', ',
+					_Utils_ap(
+						otherItems,
+						_List_fromArray(
+							[' and ' + lastItem])));
+			}
+		}
+	}
+};
+var $elm$html$Html$li = _VirtualDom_node('li');
+var $elm$browser$Debugger$Overlay$problemToString = function (problem) {
+	switch (problem.$) {
+		case 'Function':
+			return 'functions';
+		case 'Decoder':
+			return 'JSON decoders';
+		case 'Task':
+			return 'tasks';
+		case 'Process':
+			return 'processes';
+		case 'Socket':
+			return 'web sockets';
+		case 'Request':
+			return 'HTTP requests';
+		case 'Program':
+			return 'programs';
+		default:
+			return 'virtual DOM values';
+	}
+};
+var $elm$browser$Debugger$Overlay$viewProblemType = function (_v0) {
+	var name = _v0.name;
+	var problems = _v0.problems;
+	return A2(
+		$elm$html$Html$li,
+		_List_Nil,
+		_List_fromArray(
+			[
+				$elm$browser$Debugger$Overlay$viewCode(name),
+				$elm$html$Html$text(
+				' can contain ' + ($elm$browser$Debugger$Overlay$addCommas(
+					A2($elm$core$List$map, $elm$browser$Debugger$Overlay$problemToString, problems)) + '.'))
+			]));
+};
+var $elm$browser$Debugger$Overlay$viewBadMetadata = function (_v0) {
+	var message = _v0.message;
+	var problems = _v0.problems;
+	return _List_fromArray(
+		[
+			A2(
+			$elm$html$Html$p,
+			_List_Nil,
+			_List_fromArray(
+				[
+					$elm$html$Html$text('The '),
+					$elm$browser$Debugger$Overlay$viewCode(message),
+					$elm$html$Html$text(' type of your program cannot be reliably serialized for history files.')
+				])),
+			A2(
+			$elm$html$Html$p,
+			_List_Nil,
+			_List_fromArray(
+				[
+					$elm$html$Html$text('Functions cannot be serialized, nor can values that contain functions. This is a problem in these places:')
+				])),
+			A2(
+			$elm$html$Html$ul,
+			_List_Nil,
+			A2($elm$core$List$map, $elm$browser$Debugger$Overlay$viewProblemType, problems)),
+			A2(
+			$elm$html$Html$p,
+			_List_Nil,
+			_List_fromArray(
+				[
+					$elm$html$Html$text($elm$browser$Debugger$Overlay$goodNews1),
+					A2(
+					$elm$html$Html$a,
+					_List_fromArray(
+						[
+							$elm$html$Html$Attributes$href('https://guide.elm-lang.org/types/custom_types.html')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text('custom types')
+						])),
+					$elm$html$Html$text(', in your messages. From there, your '),
+					$elm$browser$Debugger$Overlay$viewCode('update'),
+					$elm$html$Html$text($elm$browser$Debugger$Overlay$goodNews2)
+				]))
+		]);
+};
+var $elm$virtual_dom$VirtualDom$map = _VirtualDom_map;
+var $elm$html$Html$map = $elm$virtual_dom$VirtualDom$map;
+var $elm$browser$Debugger$Overlay$Cancel = {$: 'Cancel'};
+var $elm$browser$Debugger$Overlay$Proceed = {$: 'Proceed'};
+var $elm$html$Html$button = _VirtualDom_node('button');
+var $elm$browser$Debugger$Overlay$viewButtons = function (buttons) {
+	var btn = F2(
+		function (msg, string) {
+			return A2(
+				$elm$html$Html$button,
+				_List_fromArray(
+					[
+						A2($elm$html$Html$Attributes$style, 'margin-right', '20px'),
+						$elm$html$Html$Events$onClick(msg)
+					]),
+				_List_fromArray(
+					[
+						$elm$html$Html$text(string)
+					]));
+		});
+	var buttonNodes = function () {
+		if (buttons.$ === 'Accept') {
+			var proceed = buttons.a;
+			return _List_fromArray(
+				[
+					A2(btn, $elm$browser$Debugger$Overlay$Proceed, proceed)
+				]);
+		} else {
+			var cancel = buttons.a;
+			var proceed = buttons.b;
+			return _List_fromArray(
+				[
+					A2(btn, $elm$browser$Debugger$Overlay$Cancel, cancel),
+					A2(btn, $elm$browser$Debugger$Overlay$Proceed, proceed)
+				]);
+		}
+	}();
+	return A2(
+		$elm$html$Html$div,
+		_List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'height', '60px'),
+				A2($elm$html$Html$Attributes$style, 'line-height', '60px'),
+				A2($elm$html$Html$Attributes$style, 'text-align', 'right'),
+				A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
+			]),
+		buttonNodes);
+};
+var $elm$browser$Debugger$Overlay$viewMessage = F4(
+	function (config, title, details, buttons) {
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					$elm$html$Html$Attributes$id('elm-debugger-overlay'),
+					A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
+					A2($elm$html$Html$Attributes$style, 'top', '0'),
+					A2($elm$html$Html$Attributes$style, 'left', '0'),
+					A2($elm$html$Html$Attributes$style, 'width', '100vw'),
+					A2($elm$html$Html$Attributes$style, 'height', '100vh'),
+					A2($elm$html$Html$Attributes$style, 'color', 'white'),
+					A2($elm$html$Html$Attributes$style, 'pointer-events', 'none'),
+					A2($elm$html$Html$Attributes$style, 'font-family', '\'Trebuchet MS\', \'Lucida Grande\', \'Bitstream Vera Sans\', \'Helvetica Neue\', sans-serif'),
+					A2($elm$html$Html$Attributes$style, 'z-index', '2147483647')
+				]),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
+							A2($elm$html$Html$Attributes$style, 'width', '600px'),
+							A2($elm$html$Html$Attributes$style, 'height', '100vh'),
+							A2($elm$html$Html$Attributes$style, 'padding-left', 'calc(50% - 300px)'),
+							A2($elm$html$Html$Attributes$style, 'padding-right', 'calc(50% - 300px)'),
+							A2($elm$html$Html$Attributes$style, 'background-color', 'rgba(200, 200, 200, 0.7)'),
+							A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto')
+						]),
+					_List_fromArray(
+						[
+							A2(
+							$elm$html$Html$div,
+							_List_fromArray(
+								[
+									A2($elm$html$Html$Attributes$style, 'font-size', '36px'),
+									A2($elm$html$Html$Attributes$style, 'height', '80px'),
+									A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)'),
+									A2($elm$html$Html$Attributes$style, 'padding-left', '22px'),
+									A2($elm$html$Html$Attributes$style, 'vertical-align', 'middle'),
+									A2($elm$html$Html$Attributes$style, 'line-height', '80px')
+								]),
+							_List_fromArray(
+								[
+									$elm$html$Html$text(title)
+								])),
+							A2(
+							$elm$html$Html$div,
+							_List_fromArray(
+								[
+									$elm$html$Html$Attributes$id('elm-debugger-details'),
+									A2($elm$html$Html$Attributes$style, 'padding', ' 8px 20px'),
+									A2($elm$html$Html$Attributes$style, 'overflow-y', 'auto'),
+									A2($elm$html$Html$Attributes$style, 'max-height', 'calc(100vh - 156px)'),
+									A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(61, 61, 61)')
+								]),
+							details),
+							A2(
+							$elm$html$Html$map,
+							config.wrap,
+							$elm$browser$Debugger$Overlay$viewButtons(buttons))
+						]))
+				]));
+	});
+var $elm$virtual_dom$VirtualDom$attribute = F2(
+	function (key, value) {
+		return A2(
+			_VirtualDom_attribute,
+			_VirtualDom_noOnOrFormAction(key),
+			_VirtualDom_noJavaScriptOrHtmlUri(value));
+	});
+var $elm$core$Basics$negate = function (n) {
+	return -n;
+};
+var $elm$virtual_dom$VirtualDom$nodeNS = F2(
+	function (namespace, tag) {
+		return A2(
+			_VirtualDom_nodeNS,
+			namespace,
+			_VirtualDom_noScript(tag));
+	});
+var $elm$core$String$fromFloat = _String_fromNumber;
+var $elm$browser$Debugger$Overlay$viewShape = F4(
+	function (x, y, angle, coordinates) {
+		return A4(
+			$elm$virtual_dom$VirtualDom$nodeNS,
+			'http://www.w3.org/2000/svg',
+			'polygon',
+			_List_fromArray(
+				[
+					A2($elm$virtual_dom$VirtualDom$attribute, 'points', coordinates),
+					A2(
+					$elm$virtual_dom$VirtualDom$attribute,
+					'transform',
+					'translate(' + ($elm$core$String$fromFloat(x) + (' ' + ($elm$core$String$fromFloat(y) + (') rotate(' + ($elm$core$String$fromFloat(-angle) + ')'))))))
+				]),
+			_List_Nil);
+	});
+var $elm$browser$Debugger$Overlay$elmLogo = A4(
+	$elm$virtual_dom$VirtualDom$nodeNS,
+	'http://www.w3.org/2000/svg',
+	'svg',
+	_List_fromArray(
+		[
+			A2($elm$virtual_dom$VirtualDom$attribute, 'viewBox', '-300 -300 600 600'),
+			A2($elm$virtual_dom$VirtualDom$attribute, 'xmlns', 'http://www.w3.org/2000/svg'),
+			A2($elm$virtual_dom$VirtualDom$attribute, 'fill', 'currentColor'),
+			A2($elm$virtual_dom$VirtualDom$attribute, 'width', '24px'),
+			A2($elm$virtual_dom$VirtualDom$attribute, 'height', '24px')
+		]),
+	_List_fromArray(
+		[
+			A4(
+			$elm$virtual_dom$VirtualDom$nodeNS,
+			'http://www.w3.org/2000/svg',
+			'g',
+			_List_fromArray(
+				[
+					A2($elm$virtual_dom$VirtualDom$attribute, 'transform', 'scale(1 -1)')
+				]),
+			_List_fromArray(
+				[
+					A4($elm$browser$Debugger$Overlay$viewShape, 0, -210, 0, '-280,-90 0,190 280,-90'),
+					A4($elm$browser$Debugger$Overlay$viewShape, -210, 0, 90, '-280,-90 0,190 280,-90'),
+					A4($elm$browser$Debugger$Overlay$viewShape, 207, 207, 45, '-198,-66 0,132 198,-66'),
+					A4($elm$browser$Debugger$Overlay$viewShape, 150, 0, 0, '-130,0 0,-130 130,0 0,130'),
+					A4($elm$browser$Debugger$Overlay$viewShape, -89, 239, 0, '-191,61 69,61 191,-61 -69,-61'),
+					A4($elm$browser$Debugger$Overlay$viewShape, 0, 106, 180, '-130,-44 0,86  130,-44'),
+					A4($elm$browser$Debugger$Overlay$viewShape, 256, -150, 270, '-130,-44 0,86  130,-44')
+				]))
+		]));
+var $elm$core$String$length = _String_length;
+var $elm$browser$Debugger$Overlay$viewMiniControls = F2(
+	function (config, numMsgs) {
+		var string = $elm$core$String$fromInt(numMsgs);
+		var width = $elm$core$String$fromInt(
+			2 + $elm$core$String$length(string));
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
+					A2($elm$html$Html$Attributes$style, 'bottom', '2em'),
+					A2($elm$html$Html$Attributes$style, 'right', '2em'),
+					A2($elm$html$Html$Attributes$style, 'width', 'calc(42px + ' + (width + 'ch)')),
+					A2($elm$html$Html$Attributes$style, 'height', '36px'),
+					A2($elm$html$Html$Attributes$style, 'background-color', '#1293D8'),
+					A2($elm$html$Html$Attributes$style, 'color', 'white'),
+					A2($elm$html$Html$Attributes$style, 'font-family', 'monospace'),
+					A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto'),
+					A2($elm$html$Html$Attributes$style, 'z-index', '2147483647'),
+					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+					A2($elm$html$Html$Attributes$style, 'justify-content', 'center'),
+					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+					A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
+					$elm$html$Html$Events$onClick(config.open)
+				]),
+			_List_fromArray(
+				[
+					$elm$browser$Debugger$Overlay$elmLogo,
+					A2(
+					$elm$html$Html$span,
+					_List_fromArray(
+						[
+							A2($elm$html$Html$Attributes$style, 'padding-left', 'calc(1ch + 6px)'),
+							A2($elm$html$Html$Attributes$style, 'padding-right', '1ch')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text(string)
+						]))
+				]));
+	});
+var $elm$browser$Debugger$Overlay$explanationBad = '\nThe messages in this history do not match the messages handled by your\nprogram. I noticed changes in the following types:\n';
+var $elm$browser$Debugger$Overlay$explanationRisky = '\nThis history seems old. It will work with this program, but some\nmessages have been added since the history was created:\n';
+var $elm$core$List$intersperse = F2(
+	function (sep, xs) {
+		if (!xs.b) {
+			return _List_Nil;
+		} else {
+			var hd = xs.a;
+			var tl = xs.b;
+			var step = F2(
+				function (x, rest) {
+					return A2(
+						$elm$core$List$cons,
+						sep,
+						A2($elm$core$List$cons, x, rest));
+				});
+			var spersed = A3($elm$core$List$foldr, step, _List_Nil, tl);
+			return A2($elm$core$List$cons, hd, spersed);
+		}
+	});
+var $elm$browser$Debugger$Overlay$viewMention = F2(
+	function (tags, verbed) {
+		var _v0 = A2(
+			$elm$core$List$map,
+			$elm$browser$Debugger$Overlay$viewCode,
+			$elm$core$List$reverse(tags));
+		if (!_v0.b) {
+			return $elm$html$Html$text('');
+		} else {
+			if (!_v0.b.b) {
+				var tag = _v0.a;
+				return A2(
+					$elm$html$Html$li,
+					_List_Nil,
+					_List_fromArray(
+						[
+							$elm$html$Html$text(verbed),
+							tag,
+							$elm$html$Html$text('.')
+						]));
+			} else {
+				if (!_v0.b.b.b) {
+					var tag2 = _v0.a;
+					var _v1 = _v0.b;
+					var tag1 = _v1.a;
+					return A2(
+						$elm$html$Html$li,
+						_List_Nil,
+						_List_fromArray(
+							[
+								$elm$html$Html$text(verbed),
+								tag1,
+								$elm$html$Html$text(' and '),
+								tag2,
+								$elm$html$Html$text('.')
+							]));
+				} else {
+					var lastTag = _v0.a;
+					var otherTags = _v0.b;
+					return A2(
+						$elm$html$Html$li,
+						_List_Nil,
+						A2(
+							$elm$core$List$cons,
+							$elm$html$Html$text(verbed),
+							_Utils_ap(
+								A2(
+									$elm$core$List$intersperse,
+									$elm$html$Html$text(', '),
+									$elm$core$List$reverse(otherTags)),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(', and '),
+										lastTag,
+										$elm$html$Html$text('.')
+									]))));
+				}
+			}
+		}
+	});
+var $elm$browser$Debugger$Overlay$viewChange = function (change) {
+	return A2(
+		$elm$html$Html$li,
+		_List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'margin', '8px 0')
+			]),
+		function () {
+			if (change.$ === 'AliasChange') {
+				var name = change.a;
+				return _List_fromArray(
+					[
+						A2(
+						$elm$html$Html$span,
+						_List_fromArray(
+							[
+								A2($elm$html$Html$Attributes$style, 'font-size', '1.5em')
+							]),
+						_List_fromArray(
+							[
+								$elm$browser$Debugger$Overlay$viewCode(name)
+							]))
+					]);
+			} else {
+				var name = change.a;
+				var removed = change.b.removed;
+				var changed = change.b.changed;
+				var added = change.b.added;
+				var argsMatch = change.b.argsMatch;
+				return _List_fromArray(
+					[
+						A2(
+						$elm$html$Html$span,
+						_List_fromArray(
+							[
+								A2($elm$html$Html$Attributes$style, 'font-size', '1.5em')
+							]),
+						_List_fromArray(
+							[
+								$elm$browser$Debugger$Overlay$viewCode(name)
+							])),
+						A2(
+						$elm$html$Html$ul,
+						_List_fromArray(
+							[
+								A2($elm$html$Html$Attributes$style, 'list-style-type', 'disc'),
+								A2($elm$html$Html$Attributes$style, 'padding-left', '2em')
+							]),
+						_List_fromArray(
+							[
+								A2($elm$browser$Debugger$Overlay$viewMention, removed, 'Removed '),
+								A2($elm$browser$Debugger$Overlay$viewMention, changed, 'Changed '),
+								A2($elm$browser$Debugger$Overlay$viewMention, added, 'Added ')
+							])),
+						argsMatch ? $elm$html$Html$text('') : $elm$html$Html$text('This may be due to the fact that the type variable names changed.')
+					]);
+			}
+		}());
+};
+var $elm$browser$Debugger$Overlay$viewReport = F2(
+	function (isBad, report) {
+		switch (report.$) {
+			case 'CorruptHistory':
+				return _List_fromArray(
+					[
+						$elm$html$Html$text('Looks like this history file is corrupt. I cannot understand it.')
+					]);
+			case 'VersionChanged':
+				var old = report.a;
+				var _new = report.b;
+				return _List_fromArray(
+					[
+						$elm$html$Html$text('This history was created with Elm ' + (old + (', but you are using Elm ' + (_new + ' right now.'))))
+					]);
+			case 'MessageChanged':
+				var old = report.a;
+				var _new = report.b;
+				return _List_fromArray(
+					[
+						$elm$html$Html$text('To import some other history, the overall message type must' + ' be the same. The old history has '),
+						$elm$browser$Debugger$Overlay$viewCode(old),
+						$elm$html$Html$text(' messages, but the new program works with '),
+						$elm$browser$Debugger$Overlay$viewCode(_new),
+						$elm$html$Html$text(' messages.')
+					]);
+			default:
+				var changes = report.a;
+				return _List_fromArray(
+					[
+						A2(
+						$elm$html$Html$p,
+						_List_Nil,
+						_List_fromArray(
+							[
+								$elm$html$Html$text(
+								isBad ? $elm$browser$Debugger$Overlay$explanationBad : $elm$browser$Debugger$Overlay$explanationRisky)
+							])),
+						A2(
+						$elm$html$Html$ul,
+						_List_fromArray(
+							[
+								A2($elm$html$Html$Attributes$style, 'list-style-type', 'none'),
+								A2($elm$html$Html$Attributes$style, 'padding-left', '20px')
+							]),
+						A2($elm$core$List$map, $elm$browser$Debugger$Overlay$viewChange, changes))
+					]);
+		}
+	});
+var $elm$browser$Debugger$Overlay$view = F5(
+	function (config, isPaused, isOpen, numMsgs, state) {
+		switch (state.$) {
+			case 'None':
+				return isOpen ? $elm$html$Html$text('') : (isPaused ? A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							$elm$html$Html$Attributes$id('elm-debugger-overlay'),
+							A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
+							A2($elm$html$Html$Attributes$style, 'top', '0'),
+							A2($elm$html$Html$Attributes$style, 'left', '0'),
+							A2($elm$html$Html$Attributes$style, 'width', '100vw'),
+							A2($elm$html$Html$Attributes$style, 'height', '100vh'),
+							A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
+							A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+							A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+							A2($elm$html$Html$Attributes$style, 'justify-content', 'center'),
+							A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto'),
+							A2($elm$html$Html$Attributes$style, 'background-color', 'rgba(200, 200, 200, 0.7)'),
+							A2($elm$html$Html$Attributes$style, 'color', 'white'),
+							A2($elm$html$Html$Attributes$style, 'font-family', '\'Trebuchet MS\', \'Lucida Grande\', \'Bitstream Vera Sans\', \'Helvetica Neue\', sans-serif'),
+							A2($elm$html$Html$Attributes$style, 'z-index', '2147483646'),
+							$elm$html$Html$Events$onClick(config.resume)
+						]),
+					_List_fromArray(
+						[
+							A2(
+							$elm$html$Html$span,
+							_List_fromArray(
+								[
+									A2($elm$html$Html$Attributes$style, 'font-size', '80px')
+								]),
+							_List_fromArray(
+								[
+									$elm$html$Html$text('Click to Resume')
+								])),
+							A2($elm$browser$Debugger$Overlay$viewMiniControls, config, numMsgs)
+						])) : A2($elm$browser$Debugger$Overlay$viewMiniControls, config, numMsgs));
+			case 'BadMetadata':
+				var badMetadata_ = state.a;
+				return A4(
+					$elm$browser$Debugger$Overlay$viewMessage,
+					config,
+					'Cannot use Import or Export',
+					$elm$browser$Debugger$Overlay$viewBadMetadata(badMetadata_),
+					$elm$browser$Debugger$Overlay$Accept('Ok'));
+			case 'BadImport':
+				var report = state.a;
+				return A4(
+					$elm$browser$Debugger$Overlay$viewMessage,
+					config,
+					'Cannot Import History',
+					A2($elm$browser$Debugger$Overlay$viewReport, true, report),
+					$elm$browser$Debugger$Overlay$Accept('Ok'));
+			default:
+				var report = state.a;
+				return A4(
+					$elm$browser$Debugger$Overlay$viewMessage,
+					config,
+					'Warning',
+					A2($elm$browser$Debugger$Overlay$viewReport, false, report),
+					A2($elm$browser$Debugger$Overlay$Choose, 'Cancel', 'Import Anyway'));
+		}
+	});
+var $elm$browser$Debugger$Main$cornerView = function (model) {
+	return A5(
+		$elm$browser$Debugger$Overlay$view,
+		{exportHistory: $elm$browser$Debugger$Main$Export, importHistory: $elm$browser$Debugger$Main$Import, open: $elm$browser$Debugger$Main$Open, resume: $elm$browser$Debugger$Main$Resume, wrap: $elm$browser$Debugger$Main$OverlayMsg},
+		$elm$browser$Debugger$Main$isPaused(model.state),
+		_Debugger_isOpen(model.popout),
+		$elm$browser$Debugger$History$size(model.history),
+		model.overlay);
+};
+var $elm$core$Dict$RBEmpty_elm_builtin = {$: 'RBEmpty_elm_builtin'};
+var $elm$core$Dict$empty = $elm$core$Dict$RBEmpty_elm_builtin;
+var $elm$core$Set$foldr = F3(
+	function (func, initialState, _v0) {
+		var dict = _v0.a;
+		return A3(
+			$elm$core$Dict$foldr,
+			F3(
+				function (key, _v1, state) {
+					return A2(func, key, state);
+				}),
+			initialState,
+			dict);
+	});
+var $elm$browser$Debugger$Main$getCurrentModel = function (state) {
+	if (state.$ === 'Running') {
+		var model = state.a;
+		return model;
+	} else {
+		var model = state.b;
+		return model;
+	}
+};
+var $elm$browser$Debugger$Main$getUserModel = function (model) {
+	return $elm$browser$Debugger$Main$getCurrentModel(model.state);
+};
+var $elm$browser$Debugger$Main$initialWindowHeight = 420;
+var $elm$browser$Debugger$Main$initialWindowWidth = 900;
+var $elm$core$Dict$Black = {$: 'Black'};
+var $elm$core$Dict$RBNode_elm_builtin = F5(
+	function (a, b, c, d, e) {
+		return {$: 'RBNode_elm_builtin', a: a, b: b, c: c, d: d, e: e};
+	});
+var $elm$core$Dict$Red = {$: 'Red'};
+var $elm$core$Dict$balance = F5(
+	function (color, key, value, left, right) {
+		if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Red')) {
+			var _v1 = right.a;
+			var rK = right.b;
+			var rV = right.c;
+			var rLeft = right.d;
+			var rRight = right.e;
+			if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
+				var _v3 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var lLeft = left.d;
+				var lRight = left.e;
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Red,
+					key,
+					value,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, lK, lV, lLeft, lRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					color,
+					rK,
+					rV,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, left, rLeft),
+					rRight);
+			}
+		} else {
+			if ((((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) && (left.d.$ === 'RBNode_elm_builtin')) && (left.d.a.$ === 'Red')) {
+				var _v5 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var _v6 = left.d;
+				var _v7 = _v6.a;
+				var llK = _v6.b;
+				var llV = _v6.c;
+				var llLeft = _v6.d;
+				var llRight = _v6.e;
+				var lRight = left.e;
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Red,
+					lK,
+					lV,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, key, value, lRight, right));
+			} else {
+				return A5($elm$core$Dict$RBNode_elm_builtin, color, key, value, left, right);
+			}
+		}
+	});
+var $elm$core$Basics$compare = _Utils_compare;
+var $elm$core$Dict$insertHelp = F3(
+	function (key, value, dict) {
+		if (dict.$ === 'RBEmpty_elm_builtin') {
+			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, $elm$core$Dict$RBEmpty_elm_builtin, $elm$core$Dict$RBEmpty_elm_builtin);
+		} else {
+			var nColor = dict.a;
+			var nKey = dict.b;
+			var nValue = dict.c;
+			var nLeft = dict.d;
+			var nRight = dict.e;
+			var _v1 = A2($elm$core$Basics$compare, key, nKey);
+			switch (_v1.$) {
+				case 'LT':
+					return A5(
+						$elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						A3($elm$core$Dict$insertHelp, key, value, nLeft),
+						nRight);
+				case 'EQ':
+					return A5($elm$core$Dict$RBNode_elm_builtin, nColor, nKey, value, nLeft, nRight);
+				default:
+					return A5(
+						$elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						nLeft,
+						A3($elm$core$Dict$insertHelp, key, value, nRight));
+			}
+		}
+	});
+var $elm$core$Dict$insert = F3(
+	function (key, value, dict) {
+		var _v0 = A3($elm$core$Dict$insertHelp, key, value, dict);
+		if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
+			var _v1 = _v0.a;
+			var k = _v0.b;
+			var v = _v0.c;
+			var l = _v0.d;
+			var r = _v0.e;
+			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
+		} else {
+			var x = _v0;
+			return x;
+		}
+	});
+var $elm$browser$Debugger$Main$cachedHistory = function (model) {
+	var _v0 = model.state;
+	if (_v0.$ === 'Running') {
+		return model.history;
+	} else {
+		var history = _v0.e;
+		return history;
+	}
+};
+var $elm$virtual_dom$VirtualDom$node = function (tag) {
+	return _VirtualDom_node(
+		_VirtualDom_noScript(tag));
+};
+var $elm$html$Html$node = $elm$virtual_dom$VirtualDom$node;
+var $elm$browser$Debugger$Main$DragEnd = {$: 'DragEnd'};
+var $elm$browser$Debugger$Main$getDragStatus = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		var status = layout.a;
+		return status;
+	} else {
+		var status = layout.a;
+		return status;
+	}
+};
+var $elm$browser$Debugger$Main$Drag = function (a) {
+	return {$: 'Drag', a: a};
+};
+var $elm$browser$Debugger$Main$DragInfo = F5(
+	function (x, y, down, width, height) {
+		return {down: down, height: height, width: width, x: x, y: y};
+	});
+var $elm$json$Json$Decode$field = _Json_decodeField;
+var $elm$json$Json$Decode$at = F2(
+	function (fields, decoder) {
+		return A3($elm$core$List$foldr, $elm$json$Json$Decode$field, decoder, fields);
+	});
+var $elm$json$Json$Decode$float = _Json_decodeFloat;
+var $elm$browser$Debugger$Main$decodeDimension = function (field) {
+	return A2(
+		$elm$json$Json$Decode$at,
+		_List_fromArray(
+			['currentTarget', 'ownerDocument', 'defaultView', field]),
+		$elm$json$Json$Decode$float);
+};
+var $elm$json$Json$Decode$int = _Json_decodeInt;
+var $elm$json$Json$Decode$map5 = _Json_map5;
+var $elm$browser$Debugger$Main$onMouseMove = A2(
+	$elm$html$Html$Events$on,
+	'mousemove',
+	A2(
+		$elm$json$Json$Decode$map,
+		$elm$browser$Debugger$Main$Drag,
+		A6(
+			$elm$json$Json$Decode$map5,
+			$elm$browser$Debugger$Main$DragInfo,
+			A2($elm$json$Json$Decode$field, 'pageX', $elm$json$Json$Decode$float),
+			A2($elm$json$Json$Decode$field, 'pageY', $elm$json$Json$Decode$float),
+			A2(
+				$elm$json$Json$Decode$field,
+				'buttons',
+				A2(
+					$elm$json$Json$Decode$map,
+					function (v) {
+						return v === 1;
+					},
+					$elm$json$Json$Decode$int)),
+			$elm$browser$Debugger$Main$decodeDimension('innerWidth'),
+			$elm$browser$Debugger$Main$decodeDimension('innerHeight'))));
+var $elm$html$Html$Events$onMouseUp = function (msg) {
+	return A2(
+		$elm$html$Html$Events$on,
+		'mouseup',
+		$elm$json$Json$Decode$succeed(msg));
+};
+var $elm$browser$Debugger$Main$toDragListeners = function (layout) {
+	var _v0 = $elm$browser$Debugger$Main$getDragStatus(layout);
+	if (_v0.$ === 'Static') {
+		return _List_Nil;
+	} else {
+		return _List_fromArray(
+			[
+				$elm$browser$Debugger$Main$onMouseMove,
+				$elm$html$Html$Events$onMouseUp($elm$browser$Debugger$Main$DragEnd)
+			]);
+	}
+};
+var $elm$browser$Debugger$Main$toFlexDirection = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		return 'row';
+	} else {
+		return 'column-reverse';
+	}
+};
+var $elm$browser$Debugger$Main$DragStart = {$: 'DragStart'};
+var $elm$html$Html$Events$onMouseDown = function (msg) {
+	return A2(
+		$elm$html$Html$Events$on,
+		'mousedown',
+		$elm$json$Json$Decode$succeed(msg));
+};
+var $elm$browser$Debugger$Main$toPercent = function (fraction) {
+	return $elm$core$String$fromFloat(100 * fraction) + '%';
+};
+var $elm$browser$Debugger$Main$viewDragZone = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		var x = layout.b;
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
+					A2($elm$html$Html$Attributes$style, 'top', '0'),
+					A2(
+					$elm$html$Html$Attributes$style,
+					'left',
+					$elm$browser$Debugger$Main$toPercent(x)),
+					A2($elm$html$Html$Attributes$style, 'margin-left', '-5px'),
+					A2($elm$html$Html$Attributes$style, 'width', '10px'),
+					A2($elm$html$Html$Attributes$style, 'height', '100%'),
+					A2($elm$html$Html$Attributes$style, 'cursor', 'col-resize'),
+					$elm$html$Html$Events$onMouseDown($elm$browser$Debugger$Main$DragStart)
+				]),
+			_List_Nil);
+	} else {
+		var y = layout.c;
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
+					A2(
+					$elm$html$Html$Attributes$style,
+					'top',
+					$elm$browser$Debugger$Main$toPercent(y)),
+					A2($elm$html$Html$Attributes$style, 'left', '0'),
+					A2($elm$html$Html$Attributes$style, 'margin-top', '-5px'),
+					A2($elm$html$Html$Attributes$style, 'width', '100%'),
+					A2($elm$html$Html$Attributes$style, 'height', '10px'),
+					A2($elm$html$Html$Attributes$style, 'cursor', 'row-resize'),
+					$elm$html$Html$Events$onMouseDown($elm$browser$Debugger$Main$DragStart)
+				]),
+			_List_Nil);
+	}
+};
+var $elm$browser$Debugger$Main$TweakExpandoModel = function (a) {
+	return {$: 'TweakExpandoModel', a: a};
+};
+var $elm$browser$Debugger$Main$TweakExpandoMsg = function (a) {
+	return {$: 'TweakExpandoMsg', a: a};
+};
+var $elm$browser$Debugger$Main$toExpandoPercents = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		var x = layout.b;
+		return _Utils_Tuple2(
+			$elm$browser$Debugger$Main$toPercent(1 - x),
+			'100%');
+	} else {
+		var y = layout.c;
+		return _Utils_Tuple2(
+			'100%',
+			$elm$browser$Debugger$Main$toPercent(y));
+	}
+};
+var $elm$browser$Debugger$Main$toMouseBlocker = function (layout) {
+	var _v0 = $elm$browser$Debugger$Main$getDragStatus(layout);
+	if (_v0.$ === 'Static') {
+		return 'auto';
+	} else {
+		return 'none';
+	}
+};
+var $elm$browser$Debugger$Expando$Field = F2(
+	function (a, b) {
+		return {$: 'Field', a: a, b: b};
+	});
+var $elm$browser$Debugger$Expando$Index = F3(
+	function (a, b, c) {
+		return {$: 'Index', a: a, b: b, c: c};
+	});
+var $elm$browser$Debugger$Expando$Key = {$: 'Key'};
+var $elm$browser$Debugger$Expando$None = {$: 'None'};
+var $elm$browser$Debugger$Expando$Toggle = {$: 'Toggle'};
+var $elm$browser$Debugger$Expando$Value = {$: 'Value'};
+var $elm$browser$Debugger$Expando$blue = A2($elm$html$Html$Attributes$style, 'color', 'rgb(28, 0, 207)');
+var $elm$core$Basics$composeL = F3(
+	function (g, f, x) {
+		return g(
+			f(x));
+	});
+var $elm$browser$Debugger$Expando$leftPad = function (maybeKey) {
+	if (maybeKey.$ === 'Nothing') {
+		return _List_Nil;
+	} else {
+		return _List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'padding-left', '4ch')
+			]);
+	}
+};
+var $elm$browser$Debugger$Expando$makeArrow = function (arrow) {
+	return A2(
+		$elm$html$Html$span,
+		_List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'color', '#777'),
+				A2($elm$html$Html$Attributes$style, 'padding-left', '2ch'),
+				A2($elm$html$Html$Attributes$style, 'width', '2ch'),
+				A2($elm$html$Html$Attributes$style, 'display', 'inline-block')
+			]),
+		_List_fromArray(
+			[
+				$elm$html$Html$text(arrow)
+			]));
+};
+var $elm$browser$Debugger$Expando$purple = A2($elm$html$Html$Attributes$style, 'color', 'rgb(136, 19, 145)');
+var $elm$browser$Debugger$Expando$lineStarter = F3(
+	function (maybeKey, maybeIsClosed, description) {
+		var arrow = function () {
+			if (maybeIsClosed.$ === 'Nothing') {
+				return $elm$browser$Debugger$Expando$makeArrow('');
+			} else {
+				if (maybeIsClosed.a) {
+					return $elm$browser$Debugger$Expando$makeArrow('▸');
+				} else {
+					return $elm$browser$Debugger$Expando$makeArrow('▾');
+				}
+			}
+		}();
+		if (maybeKey.$ === 'Nothing') {
+			return A2($elm$core$List$cons, arrow, description);
+		} else {
+			var key = maybeKey.a;
+			return A2(
+				$elm$core$List$cons,
+				arrow,
+				A2(
+					$elm$core$List$cons,
+					A2(
+						$elm$html$Html$span,
+						_List_fromArray(
+							[$elm$browser$Debugger$Expando$purple]),
+						_List_fromArray(
+							[
+								$elm$html$Html$text(key)
+							])),
+					A2(
+						$elm$core$List$cons,
+						$elm$html$Html$text(' = '),
+						description)));
+		}
+	});
+var $elm$browser$Debugger$Expando$red = A2($elm$html$Html$Attributes$style, 'color', 'rgb(196, 26, 22)');
+var $elm$core$Tuple$second = function (_v0) {
+	var y = _v0.b;
+	return y;
+};
+var $elm$browser$Debugger$Expando$seqTypeToString = F2(
+	function (n, seqType) {
+		switch (seqType.$) {
+			case 'ListSeq':
+				return 'List(' + ($elm$core$String$fromInt(n) + ')');
+			case 'SetSeq':
+				return 'Set(' + ($elm$core$String$fromInt(n) + ')');
+			default:
+				return 'Array(' + ($elm$core$String$fromInt(n) + ')');
+		}
+	});
+var $elm$core$String$slice = _String_slice;
+var $elm$core$String$left = F2(
+	function (n, string) {
+		return (n < 1) ? '' : A3($elm$core$String$slice, 0, n, string);
+	});
+var $elm$core$String$right = F2(
+	function (n, string) {
+		return (n < 1) ? '' : A3(
+			$elm$core$String$slice,
+			-n,
+			$elm$core$String$length(string),
+			string);
+	});
+var $elm$browser$Debugger$Expando$elideMiddle = function (str) {
+	return ($elm$core$String$length(str) <= 18) ? str : (A2($elm$core$String$left, 8, str) + ('...' + A2($elm$core$String$right, 8, str)));
+};
+var $elm$core$Dict$isEmpty = function (dict) {
+	if (dict.$ === 'RBEmpty_elm_builtin') {
+		return true;
+	} else {
+		return false;
+	}
+};
+var $elm$browser$Debugger$Expando$viewExtraTinyRecord = F3(
+	function (length, starter, entries) {
+		if (!entries.b) {
+			return _Utils_Tuple2(
+				length + 1,
+				_List_fromArray(
+					[
+						$elm$html$Html$text('}')
+					]));
+		} else {
+			var field = entries.a;
+			var rest = entries.b;
+			var nextLength = (length + $elm$core$String$length(field)) + 1;
+			if (nextLength > 18) {
+				return _Utils_Tuple2(
+					length + 2,
+					_List_fromArray(
+						[
+							$elm$html$Html$text('…}')
+						]));
+			} else {
+				var _v1 = A3($elm$browser$Debugger$Expando$viewExtraTinyRecord, nextLength, ',', rest);
+				var finalLength = _v1.a;
+				var otherHtmls = _v1.b;
+				return _Utils_Tuple2(
+					finalLength,
+					A2(
+						$elm$core$List$cons,
+						$elm$html$Html$text(starter),
+						A2(
+							$elm$core$List$cons,
+							A2(
+								$elm$html$Html$span,
+								_List_fromArray(
+									[$elm$browser$Debugger$Expando$purple]),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(field)
+									])),
+							otherHtmls)));
+			}
+		}
+	});
+var $elm$browser$Debugger$Expando$viewTinyHelp = function (str) {
+	return _Utils_Tuple2(
+		$elm$core$String$length(str),
+		_List_fromArray(
+			[
+				$elm$html$Html$text(str)
+			]));
+};
+var $elm$core$Maybe$withDefault = F2(
+	function (_default, maybe) {
+		if (maybe.$ === 'Just') {
+			var value = maybe.a;
+			return value;
+		} else {
+			return _default;
+		}
+	});
+var $elm$browser$Debugger$Expando$viewExtraTiny = function (value) {
+	if (value.$ === 'Record') {
+		var record = value.b;
+		return A3(
+			$elm$browser$Debugger$Expando$viewExtraTinyRecord,
+			0,
+			'{',
+			$elm$core$Dict$keys(record));
+	} else {
+		return $elm$browser$Debugger$Expando$viewTiny(value);
+	}
+};
+var $elm$browser$Debugger$Expando$viewTiny = function (value) {
+	switch (value.$) {
+		case 'S':
+			var stringRep = value.a;
+			var str = $elm$browser$Debugger$Expando$elideMiddle(stringRep);
+			return _Utils_Tuple2(
+				$elm$core$String$length(str),
+				_List_fromArray(
+					[
+						A2(
+						$elm$html$Html$span,
+						_List_fromArray(
+							[$elm$browser$Debugger$Expando$red]),
+						_List_fromArray(
+							[
+								$elm$html$Html$text(str)
+							]))
+					]));
+		case 'Primitive':
+			var stringRep = value.a;
+			return _Utils_Tuple2(
+				$elm$core$String$length(stringRep),
+				_List_fromArray(
+					[
+						A2(
+						$elm$html$Html$span,
+						_List_fromArray(
+							[$elm$browser$Debugger$Expando$blue]),
+						_List_fromArray(
+							[
+								$elm$html$Html$text(stringRep)
+							]))
+					]));
+		case 'Sequence':
+			var seqType = value.a;
+			var valueList = value.c;
+			return $elm$browser$Debugger$Expando$viewTinyHelp(
+				A2(
+					$elm$browser$Debugger$Expando$seqTypeToString,
+					$elm$core$List$length(valueList),
+					seqType));
+		case 'Dictionary':
+			var keyValuePairs = value.b;
+			return $elm$browser$Debugger$Expando$viewTinyHelp(
+				'Dict(' + ($elm$core$String$fromInt(
+					$elm$core$List$length(keyValuePairs)) + ')'));
+		case 'Record':
+			var record = value.b;
+			return $elm$browser$Debugger$Expando$viewTinyRecord(record);
+		default:
+			if (!value.c.b) {
+				var maybeName = value.a;
+				return $elm$browser$Debugger$Expando$viewTinyHelp(
+					A2($elm$core$Maybe$withDefault, 'Unit', maybeName));
+			} else {
+				var maybeName = value.a;
+				var valueList = value.c;
+				return $elm$browser$Debugger$Expando$viewTinyHelp(
+					function () {
+						if (maybeName.$ === 'Nothing') {
+							return 'Tuple(' + ($elm$core$String$fromInt(
+								$elm$core$List$length(valueList)) + ')');
+						} else {
+							var name = maybeName.a;
+							return name + ' …';
+						}
+					}());
+			}
+	}
+};
+var $elm$browser$Debugger$Expando$viewTinyRecord = function (record) {
+	return $elm$core$Dict$isEmpty(record) ? _Utils_Tuple2(
+		2,
+		_List_fromArray(
+			[
+				$elm$html$Html$text('{}')
+			])) : A3(
+		$elm$browser$Debugger$Expando$viewTinyRecordHelp,
+		0,
+		'{ ',
+		$elm$core$Dict$toList(record));
+};
+var $elm$browser$Debugger$Expando$viewTinyRecordHelp = F3(
+	function (length, starter, entries) {
+		if (!entries.b) {
+			return _Utils_Tuple2(
+				length + 2,
+				_List_fromArray(
+					[
+						$elm$html$Html$text(' }')
+					]));
+		} else {
+			var _v1 = entries.a;
+			var field = _v1.a;
+			var value = _v1.b;
+			var rest = entries.b;
+			var fieldLen = $elm$core$String$length(field);
+			var _v2 = $elm$browser$Debugger$Expando$viewExtraTiny(value);
+			var valueLen = _v2.a;
+			var valueHtmls = _v2.b;
+			var newLength = ((length + fieldLen) + valueLen) + 5;
+			if (newLength > 60) {
+				return _Utils_Tuple2(
+					length + 4,
+					_List_fromArray(
+						[
+							$elm$html$Html$text(', … }')
+						]));
+			} else {
+				var _v3 = A3($elm$browser$Debugger$Expando$viewTinyRecordHelp, newLength, ', ', rest);
+				var finalLength = _v3.a;
+				var otherHtmls = _v3.b;
+				return _Utils_Tuple2(
+					finalLength,
+					A2(
+						$elm$core$List$cons,
+						$elm$html$Html$text(starter),
+						A2(
+							$elm$core$List$cons,
+							A2(
+								$elm$html$Html$span,
+								_List_fromArray(
+									[$elm$browser$Debugger$Expando$purple]),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(field)
+									])),
+							A2(
+								$elm$core$List$cons,
+								$elm$html$Html$text(' = '),
+								A2(
+									$elm$core$List$cons,
+									A2($elm$html$Html$span, _List_Nil, valueHtmls),
+									otherHtmls)))));
+			}
+		}
+	});
+var $elm$browser$Debugger$Expando$view = F2(
+	function (maybeKey, expando) {
+		switch (expando.$) {
+			case 'S':
+				var stringRep = expando.a;
+				return A2(
+					$elm$html$Html$div,
+					$elm$browser$Debugger$Expando$leftPad(maybeKey),
+					A3(
+						$elm$browser$Debugger$Expando$lineStarter,
+						maybeKey,
+						$elm$core$Maybe$Nothing,
+						_List_fromArray(
+							[
+								A2(
+								$elm$html$Html$span,
+								_List_fromArray(
+									[$elm$browser$Debugger$Expando$red]),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(stringRep)
+									]))
+							])));
+			case 'Primitive':
+				var stringRep = expando.a;
+				return A2(
+					$elm$html$Html$div,
+					$elm$browser$Debugger$Expando$leftPad(maybeKey),
+					A3(
+						$elm$browser$Debugger$Expando$lineStarter,
+						maybeKey,
+						$elm$core$Maybe$Nothing,
+						_List_fromArray(
+							[
+								A2(
+								$elm$html$Html$span,
+								_List_fromArray(
+									[$elm$browser$Debugger$Expando$blue]),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(stringRep)
+									]))
+							])));
+			case 'Sequence':
+				var seqType = expando.a;
+				var isClosed = expando.b;
+				var valueList = expando.c;
+				return A4($elm$browser$Debugger$Expando$viewSequence, maybeKey, seqType, isClosed, valueList);
+			case 'Dictionary':
+				var isClosed = expando.a;
+				var keyValuePairs = expando.b;
+				return A3($elm$browser$Debugger$Expando$viewDictionary, maybeKey, isClosed, keyValuePairs);
+			case 'Record':
+				var isClosed = expando.a;
+				var valueDict = expando.b;
+				return A3($elm$browser$Debugger$Expando$viewRecord, maybeKey, isClosed, valueDict);
+			default:
+				var maybeName = expando.a;
+				var isClosed = expando.b;
+				var valueList = expando.c;
+				return A4($elm$browser$Debugger$Expando$viewConstructor, maybeKey, maybeName, isClosed, valueList);
+		}
+	});
+var $elm$browser$Debugger$Expando$viewConstructor = F4(
+	function (maybeKey, maybeName, isClosed, valueList) {
+		var tinyArgs = A2(
+			$elm$core$List$map,
+			A2($elm$core$Basics$composeL, $elm$core$Tuple$second, $elm$browser$Debugger$Expando$viewExtraTiny),
+			valueList);
+		var description = function () {
+			var _v7 = _Utils_Tuple2(maybeName, tinyArgs);
+			if (_v7.a.$ === 'Nothing') {
+				if (!_v7.b.b) {
+					var _v8 = _v7.a;
+					return _List_fromArray(
+						[
+							$elm$html$Html$text('()')
+						]);
+				} else {
+					var _v9 = _v7.a;
+					var _v10 = _v7.b;
+					var x = _v10.a;
+					var xs = _v10.b;
+					return A2(
+						$elm$core$List$cons,
+						$elm$html$Html$text('( '),
+						A2(
+							$elm$core$List$cons,
+							A2($elm$html$Html$span, _List_Nil, x),
+							A3(
+								$elm$core$List$foldr,
+								F2(
+									function (args, rest) {
+										return A2(
+											$elm$core$List$cons,
+											$elm$html$Html$text(', '),
+											A2(
+												$elm$core$List$cons,
+												A2($elm$html$Html$span, _List_Nil, args),
+												rest));
+									}),
+								_List_fromArray(
+									[
+										$elm$html$Html$text(' )')
+									]),
+								xs)));
+				}
+			} else {
+				if (!_v7.b.b) {
+					var name = _v7.a.a;
+					return _List_fromArray(
+						[
+							$elm$html$Html$text(name)
+						]);
+				} else {
+					var name = _v7.a.a;
+					var _v11 = _v7.b;
+					var x = _v11.a;
+					var xs = _v11.b;
+					return A2(
+						$elm$core$List$cons,
+						$elm$html$Html$text(name + ' '),
+						A2(
+							$elm$core$List$cons,
+							A2($elm$html$Html$span, _List_Nil, x),
+							A3(
+								$elm$core$List$foldr,
+								F2(
+									function (args, rest) {
+										return A2(
+											$elm$core$List$cons,
+											$elm$html$Html$text(' '),
+											A2(
+												$elm$core$List$cons,
+												A2($elm$html$Html$span, _List_Nil, args),
+												rest));
+									}),
+								_List_Nil,
+								xs)));
+				}
+			}
+		}();
+		var _v4 = function () {
+			if (!valueList.b) {
+				return _Utils_Tuple2(
+					$elm$core$Maybe$Nothing,
+					A2($elm$html$Html$div, _List_Nil, _List_Nil));
+			} else {
+				if (!valueList.b.b) {
+					var entry = valueList.a;
+					switch (entry.$) {
+						case 'S':
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Nothing,
+								A2($elm$html$Html$div, _List_Nil, _List_Nil));
+						case 'Primitive':
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Nothing,
+								A2($elm$html$Html$div, _List_Nil, _List_Nil));
+						case 'Sequence':
+							var subValueList = entry.c;
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Just(isClosed),
+								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
+									$elm$html$Html$map,
+									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
+									$elm$browser$Debugger$Expando$viewSequenceOpen(subValueList)));
+						case 'Dictionary':
+							var keyValuePairs = entry.b;
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Just(isClosed),
+								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
+									$elm$html$Html$map,
+									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
+									$elm$browser$Debugger$Expando$viewDictionaryOpen(keyValuePairs)));
+						case 'Record':
+							var record = entry.b;
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Just(isClosed),
+								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
+									$elm$html$Html$map,
+									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
+									$elm$browser$Debugger$Expando$viewRecordOpen(record)));
+						default:
+							var subValueList = entry.c;
+							return _Utils_Tuple2(
+								$elm$core$Maybe$Just(isClosed),
+								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
+									$elm$html$Html$map,
+									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
+									$elm$browser$Debugger$Expando$viewConstructorOpen(subValueList)));
+					}
+				} else {
+					return _Utils_Tuple2(
+						$elm$core$Maybe$Just(isClosed),
+						isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : $elm$browser$Debugger$Expando$viewConstructorOpen(valueList));
+				}
+			}
+		}();
+		var maybeIsClosed = _v4.a;
+		var openHtml = _v4.b;
+		return A2(
+			$elm$html$Html$div,
+			$elm$browser$Debugger$Expando$leftPad(maybeKey),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
+						]),
+					A3($elm$browser$Debugger$Expando$lineStarter, maybeKey, maybeIsClosed, description)),
+					openHtml
+				]));
+	});
+var $elm$browser$Debugger$Expando$viewConstructorEntry = F2(
+	function (index, value) {
+		return A2(
+			$elm$html$Html$map,
+			A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, index),
+			A2(
+				$elm$browser$Debugger$Expando$view,
+				$elm$core$Maybe$Just(
+					$elm$core$String$fromInt(index)),
+				value));
+	});
+var $elm$browser$Debugger$Expando$viewConstructorOpen = function (valueList) {
+	return A2(
+		$elm$html$Html$div,
+		_List_Nil,
+		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewConstructorEntry, valueList));
+};
+var $elm$browser$Debugger$Expando$viewDictionary = F3(
+	function (maybeKey, isClosed, keyValuePairs) {
+		var starter = 'Dict(' + ($elm$core$String$fromInt(
+			$elm$core$List$length(keyValuePairs)) + ')');
+		return A2(
+			$elm$html$Html$div,
+			$elm$browser$Debugger$Expando$leftPad(maybeKey),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
+						]),
+					A3(
+						$elm$browser$Debugger$Expando$lineStarter,
+						maybeKey,
+						$elm$core$Maybe$Just(isClosed),
+						_List_fromArray(
+							[
+								$elm$html$Html$text(starter)
+							]))),
+					isClosed ? $elm$html$Html$text('') : $elm$browser$Debugger$Expando$viewDictionaryOpen(keyValuePairs)
+				]));
+	});
+var $elm$browser$Debugger$Expando$viewDictionaryEntry = F2(
+	function (index, _v2) {
+		var key = _v2.a;
+		var value = _v2.b;
+		switch (key.$) {
+			case 'S':
+				var stringRep = key.a;
+				return A2(
+					$elm$html$Html$map,
+					A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
+					A2(
+						$elm$browser$Debugger$Expando$view,
+						$elm$core$Maybe$Just(stringRep),
+						value));
+			case 'Primitive':
+				var stringRep = key.a;
+				return A2(
+					$elm$html$Html$map,
+					A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
+					A2(
+						$elm$browser$Debugger$Expando$view,
+						$elm$core$Maybe$Just(stringRep),
+						value));
+			default:
+				return A2(
+					$elm$html$Html$div,
+					_List_Nil,
+					_List_fromArray(
+						[
+							A2(
+							$elm$html$Html$map,
+							A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Key, index),
+							A2(
+								$elm$browser$Debugger$Expando$view,
+								$elm$core$Maybe$Just('key'),
+								key)),
+							A2(
+							$elm$html$Html$map,
+							A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
+							A2(
+								$elm$browser$Debugger$Expando$view,
+								$elm$core$Maybe$Just('value'),
+								value))
+						]));
+		}
+	});
+var $elm$browser$Debugger$Expando$viewDictionaryOpen = function (keyValuePairs) {
+	return A2(
+		$elm$html$Html$div,
+		_List_Nil,
+		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewDictionaryEntry, keyValuePairs));
+};
+var $elm$browser$Debugger$Expando$viewRecord = F3(
+	function (maybeKey, isClosed, record) {
+		var _v1 = isClosed ? _Utils_Tuple3(
+			$elm$browser$Debugger$Expando$viewTinyRecord(record).b,
+			$elm$html$Html$text(''),
+			$elm$html$Html$text('')) : _Utils_Tuple3(
+			_List_fromArray(
+				[
+					$elm$html$Html$text('{')
+				]),
+			$elm$browser$Debugger$Expando$viewRecordOpen(record),
+			A2(
+				$elm$html$Html$div,
+				$elm$browser$Debugger$Expando$leftPad(
+					$elm$core$Maybe$Just(_Utils_Tuple0)),
+				_List_fromArray(
+					[
+						$elm$html$Html$text('}')
+					])));
+		var start = _v1.a;
+		var middle = _v1.b;
+		var end = _v1.c;
+		return A2(
+			$elm$html$Html$div,
+			$elm$browser$Debugger$Expando$leftPad(maybeKey),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
+						]),
+					A3(
+						$elm$browser$Debugger$Expando$lineStarter,
+						maybeKey,
+						$elm$core$Maybe$Just(isClosed),
+						start)),
+					middle,
+					end
+				]));
+	});
+var $elm$browser$Debugger$Expando$viewRecordEntry = function (_v0) {
+	var field = _v0.a;
+	var value = _v0.b;
+	return A2(
+		$elm$html$Html$map,
+		$elm$browser$Debugger$Expando$Field(field),
+		A2(
+			$elm$browser$Debugger$Expando$view,
+			$elm$core$Maybe$Just(field),
+			value));
+};
+var $elm$browser$Debugger$Expando$viewRecordOpen = function (record) {
+	return A2(
+		$elm$html$Html$div,
+		_List_Nil,
+		A2(
+			$elm$core$List$map,
+			$elm$browser$Debugger$Expando$viewRecordEntry,
+			$elm$core$Dict$toList(record)));
+};
+var $elm$browser$Debugger$Expando$viewSequence = F4(
+	function (maybeKey, seqType, isClosed, valueList) {
+		var starter = A2(
+			$elm$browser$Debugger$Expando$seqTypeToString,
+			$elm$core$List$length(valueList),
+			seqType);
+		return A2(
+			$elm$html$Html$div,
+			$elm$browser$Debugger$Expando$leftPad(maybeKey),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
+						]),
+					A3(
+						$elm$browser$Debugger$Expando$lineStarter,
+						maybeKey,
+						$elm$core$Maybe$Just(isClosed),
+						_List_fromArray(
+							[
+								$elm$html$Html$text(starter)
+							]))),
+					isClosed ? $elm$html$Html$text('') : $elm$browser$Debugger$Expando$viewSequenceOpen(valueList)
+				]));
+	});
+var $elm$browser$Debugger$Expando$viewSequenceOpen = function (values) {
+	return A2(
+		$elm$html$Html$div,
+		_List_Nil,
+		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewConstructorEntry, values));
+};
+var $elm$browser$Debugger$Main$viewExpando = F3(
+	function (expandoMsg, expandoModel, layout) {
+		var block = $elm$browser$Debugger$Main$toMouseBlocker(layout);
+		var _v0 = $elm$browser$Debugger$Main$toExpandoPercents(layout);
+		var w = _v0.a;
+		var h = _v0.b;
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'display', 'block'),
+					A2($elm$html$Html$Attributes$style, 'width', 'calc(' + (w + ' - 4em)')),
+					A2($elm$html$Html$Attributes$style, 'height', 'calc(' + (h + ' - 4em)')),
+					A2($elm$html$Html$Attributes$style, 'padding', '2em'),
+					A2($elm$html$Html$Attributes$style, 'margin', '0'),
+					A2($elm$html$Html$Attributes$style, 'overflow', 'auto'),
+					A2($elm$html$Html$Attributes$style, 'pointer-events', block),
+					A2($elm$html$Html$Attributes$style, '-webkit-user-select', block),
+					A2($elm$html$Html$Attributes$style, '-moz-user-select', block),
+					A2($elm$html$Html$Attributes$style, '-ms-user-select', block),
+					A2($elm$html$Html$Attributes$style, 'user-select', block)
+				]),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							A2($elm$html$Html$Attributes$style, 'color', '#ccc'),
+							A2($elm$html$Html$Attributes$style, 'padding', '0 0 1em 0')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text('-- MESSAGE')
+						])),
+					A2(
+					$elm$html$Html$map,
+					$elm$browser$Debugger$Main$TweakExpandoMsg,
+					A2($elm$browser$Debugger$Expando$view, $elm$core$Maybe$Nothing, expandoMsg)),
+					A2(
+					$elm$html$Html$div,
+					_List_fromArray(
+						[
+							A2($elm$html$Html$Attributes$style, 'color', '#ccc'),
+							A2($elm$html$Html$Attributes$style, 'padding', '1em 0')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text('-- MODEL')
+						])),
+					A2(
+					$elm$html$Html$map,
+					$elm$browser$Debugger$Main$TweakExpandoModel,
+					A2($elm$browser$Debugger$Expando$view, $elm$core$Maybe$Nothing, expandoModel))
+				]));
+	});
+var $elm$browser$Debugger$Main$Jump = function (a) {
+	return {$: 'Jump', a: a};
+};
+var $elm$virtual_dom$VirtualDom$lazy = _VirtualDom_lazy;
+var $elm$html$Html$Lazy$lazy = $elm$virtual_dom$VirtualDom$lazy;
+var $elm$browser$Debugger$Main$toHistoryPercents = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		var x = layout.b;
+		return _Utils_Tuple2(
+			$elm$browser$Debugger$Main$toPercent(x),
+			'100%');
+	} else {
+		var y = layout.c;
+		return _Utils_Tuple2(
+			'100%',
+			$elm$browser$Debugger$Main$toPercent(1 - y));
+	}
+};
+var $elm$virtual_dom$VirtualDom$lazy3 = _VirtualDom_lazy3;
+var $elm$html$Html$Lazy$lazy3 = $elm$virtual_dom$VirtualDom$lazy3;
+var $elm$html$Html$Attributes$class = $elm$html$Html$Attributes$stringProperty('className');
+var $elm$browser$Debugger$History$idForMessageIndex = function (index) {
+	return 'msg-' + $elm$core$String$fromInt(index);
+};
+var $elm$html$Html$Attributes$title = $elm$html$Html$Attributes$stringProperty('title');
+var $elm$browser$Debugger$History$viewMessage = F3(
+	function (currentIndex, index, msg) {
+		var messageName = _Debugger_messageToString(msg);
+		var className = _Utils_eq(currentIndex, index) ? 'elm-debugger-entry elm-debugger-entry-selected' : 'elm-debugger-entry';
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					$elm$html$Html$Attributes$id(
+					$elm$browser$Debugger$History$idForMessageIndex(index)),
+					$elm$html$Html$Attributes$class(className),
+					$elm$html$Html$Events$onClick(index)
+				]),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$span,
+					_List_fromArray(
+						[
+							$elm$html$Html$Attributes$title(messageName),
+							$elm$html$Html$Attributes$class('elm-debugger-entry-content')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text(messageName)
+						])),
+					A2(
+					$elm$html$Html$span,
+					_List_fromArray(
+						[
+							$elm$html$Html$Attributes$class('elm-debugger-entry-index')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text(
+							$elm$core$String$fromInt(index))
+						]))
+				]));
+	});
+var $elm$browser$Debugger$History$consMsg = F3(
+	function (currentIndex, msg, _v0) {
+		var index = _v0.a;
+		var rest = _v0.b;
+		return _Utils_Tuple2(
+			index + 1,
+			A2(
+				$elm$core$List$cons,
+				_Utils_Tuple2(
+					$elm$core$String$fromInt(index),
+					A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewMessage, currentIndex, index, msg)),
+				rest));
+	});
+var $elm$core$Array$length = function (_v0) {
+	var len = _v0.a;
+	return len;
+};
+var $elm$core$Basics$neq = _Utils_notEqual;
+var $elm$virtual_dom$VirtualDom$keyedNode = function (tag) {
+	return _VirtualDom_keyedNode(
+		_VirtualDom_noScript(tag));
+};
+var $elm$html$Html$Keyed$node = $elm$virtual_dom$VirtualDom$keyedNode;
+var $elm$browser$Debugger$History$maxSnapshotSize = 31;
+var $elm$browser$Debugger$History$showMoreButton = function (numMessages) {
+	var nextIndex = (numMessages - 1) - ($elm$browser$Debugger$History$maxSnapshotSize * 2);
+	var labelText = 'View more messages';
+	return A2(
+		$elm$html$Html$div,
+		_List_fromArray(
+			[
+				$elm$html$Html$Attributes$class('elm-debugger-entry'),
+				$elm$html$Html$Events$onClick(nextIndex)
+			]),
+		_List_fromArray(
+			[
+				A2(
+				$elm$html$Html$span,
+				_List_fromArray(
+					[
+						$elm$html$Html$Attributes$title(labelText),
+						$elm$html$Html$Attributes$class('elm-debugger-entry-content')
+					]),
+				_List_fromArray(
+					[
+						$elm$html$Html$text(labelText)
+					])),
+				A2(
+				$elm$html$Html$span,
+				_List_fromArray(
+					[
+						$elm$html$Html$Attributes$class('elm-debugger-entry-index')
+					]),
+				_List_Nil)
+			]));
+};
+var $elm$browser$Debugger$History$styles = A3(
+	$elm$html$Html$node,
+	'style',
+	_List_Nil,
+	_List_fromArray(
+		[
+			$elm$html$Html$text('\n\n.elm-debugger-entry {\n  cursor: pointer;\n  width: 100%;\n  box-sizing: border-box;\n  padding: 8px;\n}\n\n.elm-debugger-entry:hover {\n  background-color: rgb(41, 41, 41);\n}\n\n.elm-debugger-entry-selected, .elm-debugger-entry-selected:hover {\n  background-color: rgb(10, 10, 10);\n}\n\n.elm-debugger-entry-content {\n  width: calc(100% - 40px);\n  padding: 0 5px;\n  box-sizing: border-box;\n  text-overflow: ellipsis;\n  white-space: nowrap;\n  overflow: hidden;\n  display: inline-block;\n}\n\n.elm-debugger-entry-index {\n  color: #666;\n  width: 40px;\n  text-align: right;\n  display: block;\n  float: right;\n}\n\n')
+		]));
+var $elm$core$Basics$ge = _Utils_ge;
+var $elm$browser$Debugger$History$viewSnapshot = F3(
+	function (selectedIndex, index, _v0) {
+		var messages = _v0.messages;
+		return A3(
+			$elm$html$Html$Keyed$node,
+			'div',
+			_List_Nil,
+			A3(
+				$elm$core$Array$foldr,
+				$elm$browser$Debugger$History$consMsg(selectedIndex),
+				_Utils_Tuple2(index, _List_Nil),
+				messages).b);
+	});
+var $elm$browser$Debugger$History$consSnapshot = F3(
+	function (selectedIndex, snapshot, _v0) {
+		var index = _v0.a;
+		var rest = _v0.b;
+		var nextIndex = index + $elm$core$Array$length(snapshot.messages);
+		var selectedIndexHelp = ((_Utils_cmp(nextIndex, selectedIndex) > 0) && (_Utils_cmp(selectedIndex, index) > -1)) ? selectedIndex : (-1);
+		return _Utils_Tuple2(
+			nextIndex,
+			A2(
+				$elm$core$List$cons,
+				A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewSnapshot, selectedIndexHelp, index, snapshot),
+				rest));
+	});
+var $elm$core$Elm$JsArray$foldl = _JsArray_foldl;
+var $elm$core$Array$foldl = F3(
+	function (func, baseCase, _v0) {
+		var tree = _v0.c;
+		var tail = _v0.d;
+		var helper = F2(
+			function (node, acc) {
+				if (node.$ === 'SubTree') {
+					var subTree = node.a;
+					return A3($elm$core$Elm$JsArray$foldl, helper, acc, subTree);
+				} else {
+					var values = node.a;
+					return A3($elm$core$Elm$JsArray$foldl, func, acc, values);
+				}
+			});
+		return A3(
+			$elm$core$Elm$JsArray$foldl,
+			func,
+			A3($elm$core$Elm$JsArray$foldl, helper, baseCase, tree),
+			tail);
+	});
+var $elm$browser$Debugger$History$viewAllSnapshots = F3(
+	function (selectedIndex, startIndex, snapshots) {
+		return A2(
+			$elm$html$Html$div,
+			_List_Nil,
+			A3(
+				$elm$core$Array$foldl,
+				$elm$browser$Debugger$History$consSnapshot(selectedIndex),
+				_Utils_Tuple2(startIndex, _List_Nil),
+				snapshots).b);
+	});
+var $elm$core$Array$fromListHelp = F3(
+	function (list, nodeList, nodeListSize) {
+		fromListHelp:
+		while (true) {
+			var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, list);
+			var jsArray = _v0.a;
+			var remainingItems = _v0.b;
+			if (_Utils_cmp(
+				$elm$core$Elm$JsArray$length(jsArray),
+				$elm$core$Array$branchFactor) < 0) {
+				return A2(
+					$elm$core$Array$builderToArray,
+					true,
+					{nodeList: nodeList, nodeListSize: nodeListSize, tail: jsArray});
+			} else {
+				var $temp$list = remainingItems,
+					$temp$nodeList = A2(
+					$elm$core$List$cons,
+					$elm$core$Array$Leaf(jsArray),
+					nodeList),
+					$temp$nodeListSize = nodeListSize + 1;
+				list = $temp$list;
+				nodeList = $temp$nodeList;
+				nodeListSize = $temp$nodeListSize;
+				continue fromListHelp;
+			}
+		}
+	});
+var $elm$core$Array$fromList = function (list) {
+	if (!list.b) {
+		return $elm$core$Array$empty;
+	} else {
+		return A3($elm$core$Array$fromListHelp, list, _List_Nil, 0);
+	}
+};
+var $elm$core$Bitwise$and = _Bitwise_and;
+var $elm$core$Bitwise$shiftRightZfBy = _Bitwise_shiftRightZfBy;
+var $elm$core$Array$bitMask = 4294967295 >>> (32 - $elm$core$Array$shiftStep);
+var $elm$core$Elm$JsArray$unsafeGet = _JsArray_unsafeGet;
+var $elm$core$Array$getHelp = F3(
+	function (shift, index, tree) {
+		getHelp:
+		while (true) {
+			var pos = $elm$core$Array$bitMask & (index >>> shift);
+			var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
+			if (_v0.$ === 'SubTree') {
+				var subTree = _v0.a;
+				var $temp$shift = shift - $elm$core$Array$shiftStep,
+					$temp$index = index,
+					$temp$tree = subTree;
+				shift = $temp$shift;
+				index = $temp$index;
+				tree = $temp$tree;
+				continue getHelp;
+			} else {
+				var values = _v0.a;
+				return A2($elm$core$Elm$JsArray$unsafeGet, $elm$core$Array$bitMask & index, values);
+			}
+		}
+	});
+var $elm$core$Bitwise$shiftLeftBy = _Bitwise_shiftLeftBy;
+var $elm$core$Array$tailIndex = function (len) {
+	return (len >>> 5) << 5;
+};
+var $elm$core$Array$get = F2(
+	function (index, _v0) {
+		var len = _v0.a;
+		var startShift = _v0.b;
+		var tree = _v0.c;
+		var tail = _v0.d;
+		return ((index < 0) || (_Utils_cmp(index, len) > -1)) ? $elm$core$Maybe$Nothing : ((_Utils_cmp(
+			index,
+			$elm$core$Array$tailIndex(len)) > -1) ? $elm$core$Maybe$Just(
+			A2($elm$core$Elm$JsArray$unsafeGet, $elm$core$Array$bitMask & index, tail)) : $elm$core$Maybe$Just(
+			A3($elm$core$Array$getHelp, startShift, index, tree)));
+	});
+var $elm$core$Elm$JsArray$appendN = _JsArray_appendN;
+var $elm$core$Elm$JsArray$slice = _JsArray_slice;
+var $elm$core$Array$appendHelpBuilder = F2(
+	function (tail, builder) {
+		var tailLen = $elm$core$Elm$JsArray$length(tail);
+		var notAppended = ($elm$core$Array$branchFactor - $elm$core$Elm$JsArray$length(builder.tail)) - tailLen;
+		var appended = A3($elm$core$Elm$JsArray$appendN, $elm$core$Array$branchFactor, builder.tail, tail);
+		return (notAppended < 0) ? {
+			nodeList: A2(
+				$elm$core$List$cons,
+				$elm$core$Array$Leaf(appended),
+				builder.nodeList),
+			nodeListSize: builder.nodeListSize + 1,
+			tail: A3($elm$core$Elm$JsArray$slice, notAppended, tailLen, tail)
+		} : ((!notAppended) ? {
+			nodeList: A2(
+				$elm$core$List$cons,
+				$elm$core$Array$Leaf(appended),
+				builder.nodeList),
+			nodeListSize: builder.nodeListSize + 1,
+			tail: $elm$core$Elm$JsArray$empty
+		} : {nodeList: builder.nodeList, nodeListSize: builder.nodeListSize, tail: appended});
+	});
+var $elm$core$List$drop = F2(
+	function (n, list) {
+		drop:
+		while (true) {
+			if (n <= 0) {
+				return list;
+			} else {
+				if (!list.b) {
+					return list;
+				} else {
+					var x = list.a;
+					var xs = list.b;
+					var $temp$n = n - 1,
+						$temp$list = xs;
+					n = $temp$n;
+					list = $temp$list;
+					continue drop;
+				}
+			}
+		}
+	});
+var $elm$core$Array$sliceLeft = F2(
+	function (from, array) {
+		var len = array.a;
+		var tree = array.c;
+		var tail = array.d;
+		if (!from) {
+			return array;
+		} else {
+			if (_Utils_cmp(
+				from,
+				$elm$core$Array$tailIndex(len)) > -1) {
+				return A4(
+					$elm$core$Array$Array_elm_builtin,
+					len - from,
+					$elm$core$Array$shiftStep,
+					$elm$core$Elm$JsArray$empty,
+					A3(
+						$elm$core$Elm$JsArray$slice,
+						from - $elm$core$Array$tailIndex(len),
+						$elm$core$Elm$JsArray$length(tail),
+						tail));
+			} else {
+				var skipNodes = (from / $elm$core$Array$branchFactor) | 0;
+				var helper = F2(
+					function (node, acc) {
+						if (node.$ === 'SubTree') {
+							var subTree = node.a;
+							return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
+						} else {
+							var leaf = node.a;
+							return A2($elm$core$List$cons, leaf, acc);
+						}
+					});
+				var leafNodes = A3(
+					$elm$core$Elm$JsArray$foldr,
+					helper,
+					_List_fromArray(
+						[tail]),
+					tree);
+				var nodesToInsert = A2($elm$core$List$drop, skipNodes, leafNodes);
+				if (!nodesToInsert.b) {
+					return $elm$core$Array$empty;
+				} else {
+					var head = nodesToInsert.a;
+					var rest = nodesToInsert.b;
+					var firstSlice = from - (skipNodes * $elm$core$Array$branchFactor);
+					var initialBuilder = {
+						nodeList: _List_Nil,
+						nodeListSize: 0,
+						tail: A3(
+							$elm$core$Elm$JsArray$slice,
+							firstSlice,
+							$elm$core$Elm$JsArray$length(head),
+							head)
+					};
+					return A2(
+						$elm$core$Array$builderToArray,
+						true,
+						A3($elm$core$List$foldl, $elm$core$Array$appendHelpBuilder, initialBuilder, rest));
+				}
+			}
+		}
+	});
+var $elm$core$Array$fetchNewTail = F4(
+	function (shift, end, treeEnd, tree) {
+		fetchNewTail:
+		while (true) {
+			var pos = $elm$core$Array$bitMask & (treeEnd >>> shift);
+			var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
+			if (_v0.$ === 'SubTree') {
+				var sub = _v0.a;
+				var $temp$shift = shift - $elm$core$Array$shiftStep,
+					$temp$end = end,
+					$temp$treeEnd = treeEnd,
+					$temp$tree = sub;
+				shift = $temp$shift;
+				end = $temp$end;
+				treeEnd = $temp$treeEnd;
+				tree = $temp$tree;
+				continue fetchNewTail;
+			} else {
+				var values = _v0.a;
+				return A3($elm$core$Elm$JsArray$slice, 0, $elm$core$Array$bitMask & end, values);
+			}
+		}
+	});
+var $elm$core$Array$hoistTree = F3(
+	function (oldShift, newShift, tree) {
+		hoistTree:
+		while (true) {
+			if ((_Utils_cmp(oldShift, newShift) < 1) || (!$elm$core$Elm$JsArray$length(tree))) {
+				return tree;
+			} else {
+				var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, 0, tree);
+				if (_v0.$ === 'SubTree') {
+					var sub = _v0.a;
+					var $temp$oldShift = oldShift - $elm$core$Array$shiftStep,
+						$temp$newShift = newShift,
+						$temp$tree = sub;
+					oldShift = $temp$oldShift;
+					newShift = $temp$newShift;
+					tree = $temp$tree;
+					continue hoistTree;
+				} else {
+					return tree;
+				}
+			}
+		}
+	});
+var $elm$core$Elm$JsArray$unsafeSet = _JsArray_unsafeSet;
+var $elm$core$Array$sliceTree = F3(
+	function (shift, endIdx, tree) {
+		var lastPos = $elm$core$Array$bitMask & (endIdx >>> shift);
+		var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, lastPos, tree);
+		if (_v0.$ === 'SubTree') {
+			var sub = _v0.a;
+			var newSub = A3($elm$core$Array$sliceTree, shift - $elm$core$Array$shiftStep, endIdx, sub);
+			return (!$elm$core$Elm$JsArray$length(newSub)) ? A3($elm$core$Elm$JsArray$slice, 0, lastPos, tree) : A3(
+				$elm$core$Elm$JsArray$unsafeSet,
+				lastPos,
+				$elm$core$Array$SubTree(newSub),
+				A3($elm$core$Elm$JsArray$slice, 0, lastPos + 1, tree));
+		} else {
+			return A3($elm$core$Elm$JsArray$slice, 0, lastPos, tree);
+		}
+	});
+var $elm$core$Array$sliceRight = F2(
+	function (end, array) {
+		var len = array.a;
+		var startShift = array.b;
+		var tree = array.c;
+		var tail = array.d;
+		if (_Utils_eq(end, len)) {
+			return array;
+		} else {
+			if (_Utils_cmp(
+				end,
+				$elm$core$Array$tailIndex(len)) > -1) {
+				return A4(
+					$elm$core$Array$Array_elm_builtin,
+					end,
+					startShift,
+					tree,
+					A3($elm$core$Elm$JsArray$slice, 0, $elm$core$Array$bitMask & end, tail));
+			} else {
+				var endIdx = $elm$core$Array$tailIndex(end);
+				var depth = $elm$core$Basics$floor(
+					A2(
+						$elm$core$Basics$logBase,
+						$elm$core$Array$branchFactor,
+						A2($elm$core$Basics$max, 1, endIdx - 1)));
+				var newShift = A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep);
+				return A4(
+					$elm$core$Array$Array_elm_builtin,
+					end,
+					newShift,
+					A3(
+						$elm$core$Array$hoistTree,
+						startShift,
+						newShift,
+						A3($elm$core$Array$sliceTree, startShift, endIdx, tree)),
+					A4($elm$core$Array$fetchNewTail, startShift, end, endIdx, tree));
+			}
+		}
+	});
+var $elm$core$Array$translateIndex = F2(
+	function (index, _v0) {
+		var len = _v0.a;
+		var posIndex = (index < 0) ? (len + index) : index;
+		return (posIndex < 0) ? 0 : ((_Utils_cmp(posIndex, len) > 0) ? len : posIndex);
+	});
+var $elm$core$Array$slice = F3(
+	function (from, to, array) {
+		var correctTo = A2($elm$core$Array$translateIndex, to, array);
+		var correctFrom = A2($elm$core$Array$translateIndex, from, array);
+		return (_Utils_cmp(correctFrom, correctTo) > 0) ? $elm$core$Array$empty : A2(
+			$elm$core$Array$sliceLeft,
+			correctFrom,
+			A2($elm$core$Array$sliceRight, correctTo, array));
+	});
+var $elm$browser$Debugger$History$viewRecentSnapshots = F3(
+	function (selectedIndex, recentMessagesNum, snapshots) {
+		var messagesToFill = $elm$browser$Debugger$History$maxSnapshotSize - recentMessagesNum;
+		var arrayLength = $elm$core$Array$length(snapshots);
+		var snapshotsToRender = function () {
+			var _v0 = _Utils_Tuple2(
+				A2($elm$core$Array$get, arrayLength - 2, snapshots),
+				A2($elm$core$Array$get, arrayLength - 1, snapshots));
+			if ((_v0.a.$ === 'Just') && (_v0.b.$ === 'Just')) {
+				var fillerSnapshot = _v0.a.a;
+				var recentSnapshot = _v0.b.a;
+				return $elm$core$Array$fromList(
+					_List_fromArray(
+						[
+							{
+							messages: A3($elm$core$Array$slice, 0, messagesToFill, fillerSnapshot.messages),
+							model: fillerSnapshot.model
+						},
+							recentSnapshot
+						]));
+			} else {
+				return snapshots;
+			}
+		}();
+		var startingIndex = ((arrayLength * $elm$browser$Debugger$History$maxSnapshotSize) - $elm$browser$Debugger$History$maxSnapshotSize) - messagesToFill;
+		return A3($elm$browser$Debugger$History$viewAllSnapshots, selectedIndex, startingIndex, snapshotsToRender);
+	});
+var $elm$browser$Debugger$History$view = F2(
+	function (maybeIndex, _v0) {
+		var snapshots = _v0.snapshots;
+		var recent = _v0.recent;
+		var numMessages = _v0.numMessages;
+		var recentMessageStartIndex = numMessages - recent.numMessages;
+		var index = A2($elm$core$Maybe$withDefault, -1, maybeIndex);
+		var newStuff = A3(
+			$elm$html$Html$Keyed$node,
+			'div',
+			_List_Nil,
+			A3(
+				$elm$core$List$foldr,
+				$elm$browser$Debugger$History$consMsg(index),
+				_Utils_Tuple2(recentMessageStartIndex, _List_Nil),
+				recent.messages).b);
+		var onlyRenderRecentMessages = (!_Utils_eq(index, -1)) || ($elm$core$Array$length(snapshots) < 2);
+		var oldStuff = onlyRenderRecentMessages ? A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewAllSnapshots, index, 0, snapshots) : A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewRecentSnapshots, index, recent.numMessages, snapshots);
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					$elm$html$Html$Attributes$id('elm-debugger-sidebar'),
+					A2($elm$html$Html$Attributes$style, 'width', '100%'),
+					A2($elm$html$Html$Attributes$style, 'overflow-y', 'auto'),
+					A2($elm$html$Html$Attributes$style, 'height', 'calc(100% - 72px)')
+				]),
+			A2(
+				$elm$core$List$cons,
+				$elm$browser$Debugger$History$styles,
+				A2(
+					$elm$core$List$cons,
+					newStuff,
+					A2(
+						$elm$core$List$cons,
+						oldStuff,
+						onlyRenderRecentMessages ? _List_Nil : _List_fromArray(
+							[
+								$elm$browser$Debugger$History$showMoreButton(numMessages)
+							])))));
+	});
+var $elm$browser$Debugger$Main$SwapLayout = {$: 'SwapLayout'};
+var $elm$browser$Debugger$Main$toHistoryIcon = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		return 'M13 1a3 3 0 0 1 3 3v8a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M13 3h-10a1 1 0 0 0-1 1v5h12v-5a1 1 0 0 0-1-1z M14 10h-12v2a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1z';
+	} else {
+		return 'M0 4a3 3 0 0 1 3-3h10a3 3 0 0 1 3 3v8a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3z M2 4v8a1 1 0 0 0 1 1h2v-10h-2a1 1 0 0 0-1 1z M6 3v10h7a1 1 0 0 0 1-1v-8a1 1 0 0 0-1-1z';
+	}
+};
+var $elm$browser$Debugger$Main$icon = function (path) {
+	return A4(
+		$elm$virtual_dom$VirtualDom$nodeNS,
+		'http://www.w3.org/2000/svg',
+		'svg',
+		_List_fromArray(
+			[
+				A2($elm$virtual_dom$VirtualDom$attribute, 'viewBox', '0 0 16 16'),
+				A2($elm$virtual_dom$VirtualDom$attribute, 'xmlns', 'http://www.w3.org/2000/svg'),
+				A2($elm$virtual_dom$VirtualDom$attribute, 'fill', 'currentColor'),
+				A2($elm$virtual_dom$VirtualDom$attribute, 'width', '16px'),
+				A2($elm$virtual_dom$VirtualDom$attribute, 'height', '16px')
+			]),
+		_List_fromArray(
+			[
+				A4(
+				$elm$virtual_dom$VirtualDom$nodeNS,
+				'http://www.w3.org/2000/svg',
+				'path',
+				_List_fromArray(
+					[
+						A2($elm$virtual_dom$VirtualDom$attribute, 'd', path)
+					]),
+				_List_Nil)
+			]));
+};
+var $elm$browser$Debugger$Main$viewHistoryButton = F3(
+	function (label, msg, path) {
+		return A2(
+			$elm$html$Html$button,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+					A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
+					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+					A2($elm$html$Html$Attributes$style, 'background', 'none'),
+					A2($elm$html$Html$Attributes$style, 'border', 'none'),
+					A2($elm$html$Html$Attributes$style, 'color', 'inherit'),
+					A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
+					$elm$html$Html$Events$onClick(msg)
+				]),
+			_List_fromArray(
+				[
+					$elm$browser$Debugger$Main$icon(path),
+					A2(
+					$elm$html$Html$span,
+					_List_fromArray(
+						[
+							A2($elm$html$Html$Attributes$style, 'padding-left', '6px')
+						]),
+					_List_fromArray(
+						[
+							$elm$html$Html$text(label)
+						]))
+				]));
+	});
+var $elm$browser$Debugger$Main$viewHistoryOptions = function (layout) {
+	return A2(
+		$elm$html$Html$div,
+		_List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'width', '100%'),
+				A2($elm$html$Html$Attributes$style, 'height', '36px'),
+				A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+				A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
+				A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+				A2($elm$html$Html$Attributes$style, 'justify-content', 'space-between'),
+				A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
+			]),
+		_List_fromArray(
+			[
+				A3(
+				$elm$browser$Debugger$Main$viewHistoryButton,
+				'Swap Layout',
+				$elm$browser$Debugger$Main$SwapLayout,
+				$elm$browser$Debugger$Main$toHistoryIcon(layout)),
+				A2(
+				$elm$html$Html$div,
+				_List_fromArray(
+					[
+						A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+						A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
+						A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+						A2($elm$html$Html$Attributes$style, 'justify-content', 'space-between')
+					]),
+				_List_fromArray(
+					[
+						A3($elm$browser$Debugger$Main$viewHistoryButton, 'Import', $elm$browser$Debugger$Main$Import, 'M5 1a1 1 0 0 1 0 2h-2a1 1 0 0 0-1 1v8a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1a1 1 0 0 1 2 0a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M10 2a1 1 0 0 0 -2 0v6a1 1 0 0 0 1 1h6a1 1 0 0 0 0-2h-3.586l4.293-4.293a1 1 0 0 0-1.414-1.414l-4.293 4.293z'),
+						A3($elm$browser$Debugger$Main$viewHistoryButton, 'Export', $elm$browser$Debugger$Main$Export, 'M5 1a1 1 0 0 1 0 2h-2a1 1 0 0 0-1 1v8a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1 a1 1 0 0 1 2 0a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M9 3a1 1 0 1 1 0-2h6a1 1 0 0 1 1 1v6a1 1 0 1 1-2 0v-3.586l-5.293 5.293 a1 1 0 0 1-1.414-1.414l5.293 -5.293z')
+					]))
+			]));
+};
+var $elm$browser$Debugger$Main$SliderJump = function (a) {
+	return {$: 'SliderJump', a: a};
+};
+var $elm$core$Basics$composeR = F3(
+	function (f, g, x) {
+		return g(
+			f(x));
+	});
+var $elm$html$Html$input = _VirtualDom_node('input');
+var $elm$browser$Debugger$Main$isPlaying = function (maybeIndex) {
+	if (maybeIndex.$ === 'Nothing') {
+		return true;
+	} else {
+		return false;
+	}
+};
+var $elm$html$Html$Attributes$max = $elm$html$Html$Attributes$stringProperty('max');
+var $elm$html$Html$Attributes$min = $elm$html$Html$Attributes$stringProperty('min');
+var $elm$html$Html$Events$alwaysStop = function (x) {
+	return _Utils_Tuple2(x, true);
+};
+var $elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) {
+	return {$: 'MayStopPropagation', a: a};
+};
+var $elm$html$Html$Events$stopPropagationOn = F2(
+	function (event, decoder) {
+		return A2(
+			$elm$virtual_dom$VirtualDom$on,
+			event,
+			$elm$virtual_dom$VirtualDom$MayStopPropagation(decoder));
+	});
+var $elm$json$Json$Decode$string = _Json_decodeString;
+var $elm$html$Html$Events$targetValue = A2(
+	$elm$json$Json$Decode$at,
+	_List_fromArray(
+		['target', 'value']),
+	$elm$json$Json$Decode$string);
+var $elm$html$Html$Events$onInput = function (tagger) {
+	return A2(
+		$elm$html$Html$Events$stopPropagationOn,
+		'input',
+		A2(
+			$elm$json$Json$Decode$map,
+			$elm$html$Html$Events$alwaysStop,
+			A2($elm$json$Json$Decode$map, tagger, $elm$html$Html$Events$targetValue)));
+};
+var $elm$core$String$toInt = _String_toInt;
+var $elm$html$Html$Attributes$type_ = $elm$html$Html$Attributes$stringProperty('type');
+var $elm$html$Html$Attributes$value = $elm$html$Html$Attributes$stringProperty('value');
+var $elm$browser$Debugger$Main$viewPlayButton = function (playing) {
+	return A2(
+		$elm$html$Html$button,
+		_List_fromArray(
+			[
+				A2($elm$html$Html$Attributes$style, 'background', '#1293D8'),
+				A2($elm$html$Html$Attributes$style, 'border', 'none'),
+				A2($elm$html$Html$Attributes$style, 'color', 'white'),
+				A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
+				A2($elm$html$Html$Attributes$style, 'width', '36px'),
+				A2($elm$html$Html$Attributes$style, 'height', '36px'),
+				$elm$html$Html$Events$onClick($elm$browser$Debugger$Main$Resume)
+			]),
+		_List_fromArray(
+			[
+				playing ? $elm$browser$Debugger$Main$icon('M2 2h4v12h-4v-12z M10 2h4v12h-4v-12z') : $elm$browser$Debugger$Main$icon('M2 2l12 7l-12 7z')
+			]));
+};
+var $elm$browser$Debugger$Main$viewHistorySlider = F2(
+	function (history, maybeIndex) {
+		var lastIndex = $elm$browser$Debugger$History$size(history) - 1;
+		var selectedIndex = A2($elm$core$Maybe$withDefault, lastIndex, maybeIndex);
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+					A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
+					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
+					A2($elm$html$Html$Attributes$style, 'width', '100%'),
+					A2($elm$html$Html$Attributes$style, 'height', '36px'),
+					A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
+				]),
+			_List_fromArray(
+				[
+					A2(
+					$elm$html$Html$Lazy$lazy,
+					$elm$browser$Debugger$Main$viewPlayButton,
+					$elm$browser$Debugger$Main$isPlaying(maybeIndex)),
+					A2(
+					$elm$html$Html$input,
+					_List_fromArray(
+						[
+							$elm$html$Html$Attributes$type_('range'),
+							A2($elm$html$Html$Attributes$style, 'width', 'calc(100% - 56px)'),
+							A2($elm$html$Html$Attributes$style, 'height', '36px'),
+							A2($elm$html$Html$Attributes$style, 'margin', '0 10px'),
+							$elm$html$Html$Attributes$min('0'),
+							$elm$html$Html$Attributes$max(
+							$elm$core$String$fromInt(lastIndex)),
+							$elm$html$Html$Attributes$value(
+							$elm$core$String$fromInt(selectedIndex)),
+							$elm$html$Html$Events$onInput(
+							A2(
+								$elm$core$Basics$composeR,
+								$elm$core$String$toInt,
+								A2(
+									$elm$core$Basics$composeR,
+									$elm$core$Maybe$withDefault(lastIndex),
+									$elm$browser$Debugger$Main$SliderJump)))
+						]),
+					_List_Nil)
+				]));
+	});
+var $elm$browser$Debugger$Main$viewHistory = F3(
+	function (maybeIndex, history, layout) {
+		var block = $elm$browser$Debugger$Main$toMouseBlocker(layout);
+		var _v0 = $elm$browser$Debugger$Main$toHistoryPercents(layout);
+		var w = _v0.a;
+		var h = _v0.b;
+		return A2(
+			$elm$html$Html$div,
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'width', w),
+					A2($elm$html$Html$Attributes$style, 'height', h),
+					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+					A2($elm$html$Html$Attributes$style, 'flex-direction', 'column'),
+					A2($elm$html$Html$Attributes$style, 'color', '#DDDDDD'),
+					A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(61, 61, 61)'),
+					A2($elm$html$Html$Attributes$style, 'pointer-events', block),
+					A2($elm$html$Html$Attributes$style, 'user-select', block)
+				]),
+			_List_fromArray(
+				[
+					A2($elm$browser$Debugger$Main$viewHistorySlider, history, maybeIndex),
+					A2(
+					$elm$html$Html$map,
+					$elm$browser$Debugger$Main$Jump,
+					A2($elm$browser$Debugger$History$view, maybeIndex, history)),
+					A2($elm$html$Html$Lazy$lazy, $elm$browser$Debugger$Main$viewHistoryOptions, layout)
+				]));
+	});
+var $elm$browser$Debugger$Main$popoutView = function (model) {
+	var maybeIndex = function () {
+		var _v0 = model.state;
+		if (_v0.$ === 'Running') {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			var index = _v0.a;
+			return $elm$core$Maybe$Just(index);
+		}
+	}();
+	var historyToRender = $elm$browser$Debugger$Main$cachedHistory(model);
+	return A3(
+		$elm$html$Html$node,
+		'body',
+		_Utils_ap(
+			$elm$browser$Debugger$Main$toDragListeners(model.layout),
+			_List_fromArray(
+				[
+					A2($elm$html$Html$Attributes$style, 'margin', '0'),
+					A2($elm$html$Html$Attributes$style, 'padding', '0'),
+					A2($elm$html$Html$Attributes$style, 'width', '100%'),
+					A2($elm$html$Html$Attributes$style, 'height', '100%'),
+					A2($elm$html$Html$Attributes$style, 'font-family', 'monospace'),
+					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
+					A2(
+					$elm$html$Html$Attributes$style,
+					'flex-direction',
+					$elm$browser$Debugger$Main$toFlexDirection(model.layout))
+				])),
+		_List_fromArray(
+			[
+				A3($elm$browser$Debugger$Main$viewHistory, maybeIndex, historyToRender, model.layout),
+				$elm$browser$Debugger$Main$viewDragZone(model.layout),
+				A3($elm$browser$Debugger$Main$viewExpando, model.expandoMsg, model.expandoModel, model.layout)
+			]));
+};
+var $elm$browser$Debugger$Overlay$BlockAll = {$: 'BlockAll'};
+var $elm$browser$Debugger$Overlay$toBlockerType = F2(
+	function (isPaused, state) {
+		switch (state.$) {
+			case 'None':
+				return isPaused ? $elm$browser$Debugger$Overlay$BlockAll : $elm$browser$Debugger$Overlay$BlockNone;
+			case 'BadMetadata':
+				return $elm$browser$Debugger$Overlay$BlockMost;
+			case 'BadImport':
+				return $elm$browser$Debugger$Overlay$BlockMost;
+			default:
+				return $elm$browser$Debugger$Overlay$BlockMost;
+		}
+	});
+var $elm$browser$Debugger$Main$toBlockerType = function (model) {
+	return A2(
+		$elm$browser$Debugger$Overlay$toBlockerType,
+		$elm$browser$Debugger$Main$isPaused(model.state),
+		model.overlay);
+};
+var $elm$browser$Debugger$Main$Horizontal = F3(
+	function (a, b, c) {
+		return {$: 'Horizontal', a: a, b: b, c: c};
+	});
+var $elm$browser$Debugger$Main$Running = function (a) {
+	return {$: 'Running', a: a};
+};
+var $elm$browser$Debugger$Main$Static = {$: 'Static'};
+var $elm$browser$Debugger$Metadata$Error = F2(
+	function (message, problems) {
+		return {message: message, problems: problems};
+	});
+var $elm$json$Json$Decode$decodeValue = _Json_run;
+var $elm$browser$Debugger$Metadata$Metadata = F2(
+	function (versions, types) {
+		return {types: types, versions: versions};
+	});
+var $elm$browser$Debugger$Metadata$Types = F3(
+	function (message, aliases, unions) {
+		return {aliases: aliases, message: message, unions: unions};
+	});
+var $elm$browser$Debugger$Metadata$Alias = F2(
+	function (args, tipe) {
+		return {args: args, tipe: tipe};
+	});
+var $elm$json$Json$Decode$list = _Json_decodeList;
+var $elm$browser$Debugger$Metadata$decodeAlias = A3(
+	$elm$json$Json$Decode$map2,
+	$elm$browser$Debugger$Metadata$Alias,
+	A2(
+		$elm$json$Json$Decode$field,
+		'args',
+		$elm$json$Json$Decode$list($elm$json$Json$Decode$string)),
+	A2($elm$json$Json$Decode$field, 'type', $elm$json$Json$Decode$string));
+var $elm$browser$Debugger$Metadata$Union = F2(
+	function (args, tags) {
+		return {args: args, tags: tags};
+	});
+var $elm$core$Dict$fromList = function (assocs) {
+	return A3(
+		$elm$core$List$foldl,
+		F2(
+			function (_v0, dict) {
+				var key = _v0.a;
+				var value = _v0.b;
+				return A3($elm$core$Dict$insert, key, value, dict);
+			}),
+		$elm$core$Dict$empty,
+		assocs);
+};
+var $elm$json$Json$Decode$keyValuePairs = _Json_decodeKeyValuePairs;
+var $elm$json$Json$Decode$dict = function (decoder) {
+	return A2(
+		$elm$json$Json$Decode$map,
+		$elm$core$Dict$fromList,
+		$elm$json$Json$Decode$keyValuePairs(decoder));
+};
+var $elm$browser$Debugger$Metadata$decodeUnion = A3(
+	$elm$json$Json$Decode$map2,
+	$elm$browser$Debugger$Metadata$Union,
+	A2(
+		$elm$json$Json$Decode$field,
+		'args',
+		$elm$json$Json$Decode$list($elm$json$Json$Decode$string)),
+	A2(
+		$elm$json$Json$Decode$field,
+		'tags',
+		$elm$json$Json$Decode$dict(
+			$elm$json$Json$Decode$list($elm$json$Json$Decode$string))));
+var $elm$json$Json$Decode$map3 = _Json_map3;
+var $elm$browser$Debugger$Metadata$decodeTypes = A4(
+	$elm$json$Json$Decode$map3,
+	$elm$browser$Debugger$Metadata$Types,
+	A2($elm$json$Json$Decode$field, 'message', $elm$json$Json$Decode$string),
+	A2(
+		$elm$json$Json$Decode$field,
+		'aliases',
+		$elm$json$Json$Decode$dict($elm$browser$Debugger$Metadata$decodeAlias)),
+	A2(
+		$elm$json$Json$Decode$field,
+		'unions',
+		$elm$json$Json$Decode$dict($elm$browser$Debugger$Metadata$decodeUnion)));
+var $elm$browser$Debugger$Metadata$Versions = function (elm) {
+	return {elm: elm};
+};
+var $elm$browser$Debugger$Metadata$decodeVersions = A2(
+	$elm$json$Json$Decode$map,
+	$elm$browser$Debugger$Metadata$Versions,
+	A2($elm$json$Json$Decode$field, 'elm', $elm$json$Json$Decode$string));
+var $elm$browser$Debugger$Metadata$decoder = A3(
+	$elm$json$Json$Decode$map2,
+	$elm$browser$Debugger$Metadata$Metadata,
+	A2($elm$json$Json$Decode$field, 'versions', $elm$browser$Debugger$Metadata$decodeVersions),
+	A2($elm$json$Json$Decode$field, 'types', $elm$browser$Debugger$Metadata$decodeTypes));
+var $elm$browser$Debugger$Metadata$ProblemType = F2(
+	function (name, problems) {
+		return {name: name, problems: problems};
+	});
+var $elm$core$List$maybeCons = F3(
+	function (f, mx, xs) {
+		var _v0 = f(mx);
+		if (_v0.$ === 'Just') {
+			var x = _v0.a;
+			return A2($elm$core$List$cons, x, xs);
+		} else {
+			return xs;
+		}
+	});
+var $elm$core$List$filterMap = F2(
+	function (f, xs) {
+		return A3(
+			$elm$core$List$foldr,
+			$elm$core$List$maybeCons(f),
+			_List_Nil,
+			xs);
+	});
+var $elm$core$String$contains = _String_contains;
+var $elm$browser$Debugger$Metadata$hasProblem = F2(
+	function (tipe, _v0) {
+		var problem = _v0.a;
+		var token = _v0.b;
+		return A2($elm$core$String$contains, token, tipe) ? $elm$core$Maybe$Just(problem) : $elm$core$Maybe$Nothing;
+	});
+var $elm$browser$Debugger$Metadata$Decoder = {$: 'Decoder'};
+var $elm$browser$Debugger$Metadata$Function = {$: 'Function'};
+var $elm$browser$Debugger$Metadata$Process = {$: 'Process'};
+var $elm$browser$Debugger$Metadata$Program = {$: 'Program'};
+var $elm$browser$Debugger$Metadata$Request = {$: 'Request'};
+var $elm$browser$Debugger$Metadata$Socket = {$: 'Socket'};
+var $elm$browser$Debugger$Metadata$Task = {$: 'Task'};
+var $elm$browser$Debugger$Metadata$VirtualDom = {$: 'VirtualDom'};
+var $elm$browser$Debugger$Metadata$problemTable = _List_fromArray(
+	[
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Function, '->'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Decoder, 'Json.Decode.Decoder'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Task, 'Task.Task'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Process, 'Process.Id'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Socket, 'WebSocket.LowLevel.WebSocket'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Request, 'Http.Request'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$Program, 'Platform.Program'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$VirtualDom, 'VirtualDom.Node'),
+		_Utils_Tuple2($elm$browser$Debugger$Metadata$VirtualDom, 'VirtualDom.Attribute')
+	]);
+var $elm$browser$Debugger$Metadata$findProblems = function (tipe) {
+	return A2(
+		$elm$core$List$filterMap,
+		$elm$browser$Debugger$Metadata$hasProblem(tipe),
+		$elm$browser$Debugger$Metadata$problemTable);
+};
+var $elm$browser$Debugger$Metadata$collectBadAliases = F3(
+	function (name, _v0, list) {
+		var tipe = _v0.tipe;
+		var _v1 = $elm$browser$Debugger$Metadata$findProblems(tipe);
+		if (!_v1.b) {
+			return list;
+		} else {
+			var problems = _v1;
+			return A2(
+				$elm$core$List$cons,
+				A2($elm$browser$Debugger$Metadata$ProblemType, name, problems),
+				list);
+		}
+	});
+var $elm$core$List$append = F2(
+	function (xs, ys) {
+		if (!ys.b) {
+			return xs;
+		} else {
+			return A3($elm$core$List$foldr, $elm$core$List$cons, ys, xs);
+		}
+	});
+var $elm$core$List$concat = function (lists) {
+	return A3($elm$core$List$foldr, $elm$core$List$append, _List_Nil, lists);
+};
+var $elm$core$List$concatMap = F2(
+	function (f, list) {
+		return $elm$core$List$concat(
+			A2($elm$core$List$map, f, list));
+	});
+var $elm$core$Dict$values = function (dict) {
+	return A3(
+		$elm$core$Dict$foldr,
+		F3(
+			function (key, value, valueList) {
+				return A2($elm$core$List$cons, value, valueList);
+			}),
+		_List_Nil,
+		dict);
+};
+var $elm$browser$Debugger$Metadata$collectBadUnions = F3(
+	function (name, _v0, list) {
+		var tags = _v0.tags;
+		var _v1 = A2(
+			$elm$core$List$concatMap,
+			$elm$browser$Debugger$Metadata$findProblems,
+			$elm$core$List$concat(
+				$elm$core$Dict$values(tags)));
+		if (!_v1.b) {
+			return list;
+		} else {
+			var problems = _v1;
+			return A2(
+				$elm$core$List$cons,
+				A2($elm$browser$Debugger$Metadata$ProblemType, name, problems),
+				list);
+		}
+	});
+var $elm$core$Dict$foldl = F3(
+	function (func, acc, dict) {
+		foldl:
+		while (true) {
+			if (dict.$ === 'RBEmpty_elm_builtin') {
+				return acc;
+			} else {
+				var key = dict.b;
+				var value = dict.c;
+				var left = dict.d;
+				var right = dict.e;
+				var $temp$func = func,
+					$temp$acc = A3(
+					func,
+					key,
+					value,
+					A3($elm$core$Dict$foldl, func, acc, left)),
+					$temp$dict = right;
+				func = $temp$func;
+				acc = $temp$acc;
+				dict = $temp$dict;
+				continue foldl;
+			}
+		}
+	});
+var $elm$browser$Debugger$Metadata$isPortable = function (_v0) {
+	var types = _v0.types;
+	var badAliases = A3($elm$core$Dict$foldl, $elm$browser$Debugger$Metadata$collectBadAliases, _List_Nil, types.aliases);
+	var _v1 = A3($elm$core$Dict$foldl, $elm$browser$Debugger$Metadata$collectBadUnions, badAliases, types.unions);
+	if (!_v1.b) {
+		return $elm$core$Maybe$Nothing;
+	} else {
+		var problems = _v1;
+		return $elm$core$Maybe$Just(
+			A2($elm$browser$Debugger$Metadata$Error, types.message, problems));
+	}
+};
+var $elm$browser$Debugger$Metadata$decode = function (value) {
+	var _v0 = A2($elm$json$Json$Decode$decodeValue, $elm$browser$Debugger$Metadata$decoder, value);
+	if (_v0.$ === 'Err') {
+		return $elm$core$Result$Err(
+			A2($elm$browser$Debugger$Metadata$Error, 'The compiler is generating bad metadata. This is a compiler bug!', _List_Nil));
+	} else {
+		var metadata = _v0.a;
+		var _v1 = $elm$browser$Debugger$Metadata$isPortable(metadata);
+		if (_v1.$ === 'Nothing') {
+			return $elm$core$Result$Ok(metadata);
+		} else {
+			var error = _v1.a;
+			return $elm$core$Result$Err(error);
+		}
+	}
+};
+var $elm$browser$Debugger$History$History = F3(
+	function (snapshots, recent, numMessages) {
+		return {numMessages: numMessages, recent: recent, snapshots: snapshots};
+	});
+var $elm$browser$Debugger$History$RecentHistory = F3(
+	function (model, messages, numMessages) {
+		return {messages: messages, model: model, numMessages: numMessages};
+	});
+var $elm$browser$Debugger$History$empty = function (model) {
+	return A3(
+		$elm$browser$Debugger$History$History,
+		$elm$core$Array$empty,
+		A3($elm$browser$Debugger$History$RecentHistory, model, _List_Nil, 0),
+		0);
+};
+var $elm$core$Dict$map = F2(
+	function (func, dict) {
+		if (dict.$ === 'RBEmpty_elm_builtin') {
+			return $elm$core$Dict$RBEmpty_elm_builtin;
+		} else {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			return A5(
+				$elm$core$Dict$RBNode_elm_builtin,
+				color,
+				key,
+				A2(func, key, value),
+				A2($elm$core$Dict$map, func, left),
+				A2($elm$core$Dict$map, func, right));
+		}
+	});
+var $elm$core$Dict$sizeHelp = F2(
+	function (n, dict) {
+		sizeHelp:
+		while (true) {
+			if (dict.$ === 'RBEmpty_elm_builtin') {
+				return n;
+			} else {
+				var left = dict.d;
+				var right = dict.e;
+				var $temp$n = A2($elm$core$Dict$sizeHelp, n + 1, right),
+					$temp$dict = left;
+				n = $temp$n;
+				dict = $temp$dict;
+				continue sizeHelp;
+			}
+		}
+	});
+var $elm$core$Dict$size = function (dict) {
+	return A2($elm$core$Dict$sizeHelp, 0, dict);
+};
+var $elm$browser$Debugger$Expando$initHelp = F2(
+	function (isOuter, expando) {
+		switch (expando.$) {
+			case 'S':
+				return expando;
+			case 'Primitive':
+				return expando;
+			case 'Sequence':
+				var seqType = expando.a;
+				var isClosed = expando.b;
+				var items = expando.c;
+				return isOuter ? A3(
+					$elm$browser$Debugger$Expando$Sequence,
+					seqType,
+					false,
+					A2(
+						$elm$core$List$map,
+						$elm$browser$Debugger$Expando$initHelp(false),
+						items)) : (($elm$core$List$length(items) <= 8) ? A3($elm$browser$Debugger$Expando$Sequence, seqType, false, items) : expando);
+			case 'Dictionary':
+				var isClosed = expando.a;
+				var keyValuePairs = expando.b;
+				return isOuter ? A2(
+					$elm$browser$Debugger$Expando$Dictionary,
+					false,
+					A2(
+						$elm$core$List$map,
+						function (_v1) {
+							var k = _v1.a;
+							var v = _v1.b;
+							return _Utils_Tuple2(
+								k,
+								A2($elm$browser$Debugger$Expando$initHelp, false, v));
+						},
+						keyValuePairs)) : (($elm$core$List$length(keyValuePairs) <= 8) ? A2($elm$browser$Debugger$Expando$Dictionary, false, keyValuePairs) : expando);
+			case 'Record':
+				var isClosed = expando.a;
+				var entries = expando.b;
+				return isOuter ? A2(
+					$elm$browser$Debugger$Expando$Record,
+					false,
+					A2(
+						$elm$core$Dict$map,
+						F2(
+							function (_v2, v) {
+								return A2($elm$browser$Debugger$Expando$initHelp, false, v);
+							}),
+						entries)) : (($elm$core$Dict$size(entries) <= 4) ? A2($elm$browser$Debugger$Expando$Record, false, entries) : expando);
+			default:
+				var maybeName = expando.a;
+				var isClosed = expando.b;
+				var args = expando.c;
+				return isOuter ? A3(
+					$elm$browser$Debugger$Expando$Constructor,
+					maybeName,
+					false,
+					A2(
+						$elm$core$List$map,
+						$elm$browser$Debugger$Expando$initHelp(false),
+						args)) : (($elm$core$List$length(args) <= 4) ? A3($elm$browser$Debugger$Expando$Constructor, maybeName, false, args) : expando);
+		}
+	});
+var $elm$browser$Debugger$Expando$init = function (value) {
+	return A2(
+		$elm$browser$Debugger$Expando$initHelp,
+		true,
+		_Debugger_init(value));
+};
+var $elm$core$Platform$Cmd$map = _Platform_map;
+var $elm$browser$Debugger$Overlay$None = {$: 'None'};
+var $elm$browser$Debugger$Overlay$none = $elm$browser$Debugger$Overlay$None;
+var $elm$browser$Debugger$Main$wrapInit = F4(
+	function (metadata, popout, init, flags) {
+		var _v0 = init(flags);
+		var userModel = _v0.a;
+		var userCommands = _v0.b;
+		return _Utils_Tuple2(
+			{
+				expandoModel: $elm$browser$Debugger$Expando$init(userModel),
+				expandoMsg: $elm$browser$Debugger$Expando$init(_Utils_Tuple0),
+				history: $elm$browser$Debugger$History$empty(userModel),
+				layout: A3($elm$browser$Debugger$Main$Horizontal, $elm$browser$Debugger$Main$Static, 0.3, 0.5),
+				metadata: $elm$browser$Debugger$Metadata$decode(metadata),
+				overlay: $elm$browser$Debugger$Overlay$none,
+				popout: popout,
+				state: $elm$browser$Debugger$Main$Running(userModel)
+			},
+			A2($elm$core$Platform$Cmd$map, $elm$browser$Debugger$Main$UserMsg, userCommands));
+	});
+var $elm$browser$Debugger$Main$getLatestModel = function (state) {
+	if (state.$ === 'Running') {
+		var model = state.a;
+		return model;
+	} else {
+		var model = state.c;
+		return model;
+	}
+};
+var $elm$core$Platform$Sub$map = _Platform_map;
+var $elm$browser$Debugger$Main$wrapSubs = F2(
+	function (subscriptions, model) {
+		return A2(
+			$elm$core$Platform$Sub$map,
+			$elm$browser$Debugger$Main$UserMsg,
+			subscriptions(
+				$elm$browser$Debugger$Main$getLatestModel(model.state)));
+	});
+var $elm$browser$Debugger$Main$Moving = {$: 'Moving'};
+var $elm$browser$Debugger$Main$Paused = F5(
+	function (a, b, c, d, e) {
+		return {$: 'Paused', a: a, b: b, c: c, d: d, e: e};
+	});
+var $elm$browser$Debugger$History$Snapshot = F2(
+	function (model, messages) {
+		return {messages: messages, model: model};
+	});
+var $elm$browser$Debugger$History$addRecent = F3(
+	function (msg, newModel, _v0) {
+		var model = _v0.model;
+		var messages = _v0.messages;
+		var numMessages = _v0.numMessages;
+		return _Utils_eq(numMessages, $elm$browser$Debugger$History$maxSnapshotSize) ? _Utils_Tuple2(
+			$elm$core$Maybe$Just(
+				A2(
+					$elm$browser$Debugger$History$Snapshot,
+					model,
+					$elm$core$Array$fromList(messages))),
+			A3(
+				$elm$browser$Debugger$History$RecentHistory,
+				newModel,
+				_List_fromArray(
+					[msg]),
+				1)) : _Utils_Tuple2(
+			$elm$core$Maybe$Nothing,
+			A3(
+				$elm$browser$Debugger$History$RecentHistory,
+				model,
+				A2($elm$core$List$cons, msg, messages),
+				numMessages + 1));
+	});
+var $elm$core$Elm$JsArray$push = _JsArray_push;
+var $elm$core$Elm$JsArray$singleton = _JsArray_singleton;
+var $elm$core$Array$insertTailInTree = F4(
+	function (shift, index, tail, tree) {
+		var pos = $elm$core$Array$bitMask & (index >>> shift);
+		if (_Utils_cmp(
+			pos,
+			$elm$core$Elm$JsArray$length(tree)) > -1) {
+			if (shift === 5) {
+				return A2(
+					$elm$core$Elm$JsArray$push,
+					$elm$core$Array$Leaf(tail),
+					tree);
+			} else {
+				var newSub = $elm$core$Array$SubTree(
+					A4($elm$core$Array$insertTailInTree, shift - $elm$core$Array$shiftStep, index, tail, $elm$core$Elm$JsArray$empty));
+				return A2($elm$core$Elm$JsArray$push, newSub, tree);
+			}
+		} else {
+			var value = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
+			if (value.$ === 'SubTree') {
+				var subTree = value.a;
+				var newSub = $elm$core$Array$SubTree(
+					A4($elm$core$Array$insertTailInTree, shift - $elm$core$Array$shiftStep, index, tail, subTree));
+				return A3($elm$core$Elm$JsArray$unsafeSet, pos, newSub, tree);
+			} else {
+				var newSub = $elm$core$Array$SubTree(
+					A4(
+						$elm$core$Array$insertTailInTree,
+						shift - $elm$core$Array$shiftStep,
+						index,
+						tail,
+						$elm$core$Elm$JsArray$singleton(value)));
+				return A3($elm$core$Elm$JsArray$unsafeSet, pos, newSub, tree);
+			}
+		}
+	});
+var $elm$core$Array$unsafeReplaceTail = F2(
+	function (newTail, _v0) {
+		var len = _v0.a;
+		var startShift = _v0.b;
+		var tree = _v0.c;
+		var tail = _v0.d;
+		var originalTailLen = $elm$core$Elm$JsArray$length(tail);
+		var newTailLen = $elm$core$Elm$JsArray$length(newTail);
+		var newArrayLen = len + (newTailLen - originalTailLen);
+		if (_Utils_eq(newTailLen, $elm$core$Array$branchFactor)) {
+			var overflow = _Utils_cmp(newArrayLen >>> $elm$core$Array$shiftStep, 1 << startShift) > 0;
+			if (overflow) {
+				var newShift = startShift + $elm$core$Array$shiftStep;
+				var newTree = A4(
+					$elm$core$Array$insertTailInTree,
+					newShift,
+					len,
+					newTail,
+					$elm$core$Elm$JsArray$singleton(
+						$elm$core$Array$SubTree(tree)));
+				return A4($elm$core$Array$Array_elm_builtin, newArrayLen, newShift, newTree, $elm$core$Elm$JsArray$empty);
+			} else {
+				return A4(
+					$elm$core$Array$Array_elm_builtin,
+					newArrayLen,
+					startShift,
+					A4($elm$core$Array$insertTailInTree, startShift, len, newTail, tree),
+					$elm$core$Elm$JsArray$empty);
+			}
+		} else {
+			return A4($elm$core$Array$Array_elm_builtin, newArrayLen, startShift, tree, newTail);
+		}
+	});
+var $elm$core$Array$push = F2(
+	function (a, array) {
+		var tail = array.d;
+		return A2(
+			$elm$core$Array$unsafeReplaceTail,
+			A2($elm$core$Elm$JsArray$push, a, tail),
+			array);
+	});
+var $elm$browser$Debugger$History$add = F3(
+	function (msg, model, _v0) {
+		var snapshots = _v0.snapshots;
+		var recent = _v0.recent;
+		var numMessages = _v0.numMessages;
+		var _v1 = A3($elm$browser$Debugger$History$addRecent, msg, model, recent);
+		if (_v1.a.$ === 'Just') {
+			var snapshot = _v1.a.a;
+			var newRecent = _v1.b;
+			return A3(
+				$elm$browser$Debugger$History$History,
+				A2($elm$core$Array$push, snapshot, snapshots),
+				newRecent,
+				numMessages + 1);
+		} else {
+			var _v2 = _v1.a;
+			var newRecent = _v1.b;
+			return A3($elm$browser$Debugger$History$History, snapshots, newRecent, numMessages + 1);
+		}
+	});
+var $elm$core$Basics$always = F2(
+	function (a, _v0) {
+		return a;
+	});
+var $elm$browser$Debugger$Overlay$BadImport = function (a) {
+	return {$: 'BadImport', a: a};
+};
+var $elm$browser$Debugger$Overlay$RiskyImport = F2(
+	function (a, b) {
+		return {$: 'RiskyImport', a: a, b: b};
+	});
+var $elm$browser$Debugger$Report$VersionChanged = F2(
+	function (a, b) {
+		return {$: 'VersionChanged', a: a, b: b};
+	});
+var $elm$browser$Debugger$Report$MessageChanged = F2(
+	function (a, b) {
+		return {$: 'MessageChanged', a: a, b: b};
+	});
+var $elm$browser$Debugger$Report$SomethingChanged = function (a) {
+	return {$: 'SomethingChanged', a: a};
+};
+var $elm$browser$Debugger$Report$AliasChange = function (a) {
+	return {$: 'AliasChange', a: a};
+};
+var $elm$browser$Debugger$Metadata$checkAlias = F4(
+	function (name, old, _new, changes) {
+		return (_Utils_eq(old.tipe, _new.tipe) && _Utils_eq(old.args, _new.args)) ? changes : A2(
+			$elm$core$List$cons,
+			$elm$browser$Debugger$Report$AliasChange(name),
+			changes);
+	});
+var $elm$browser$Debugger$Report$UnionChange = F2(
+	function (a, b) {
+		return {$: 'UnionChange', a: a, b: b};
+	});
+var $elm$browser$Debugger$Metadata$addTag = F3(
+	function (tag, _v0, changes) {
+		return _Utils_update(
+			changes,
+			{
+				added: A2($elm$core$List$cons, tag, changes.added)
+			});
+	});
+var $elm$browser$Debugger$Metadata$checkTag = F4(
+	function (tag, old, _new, changes) {
+		return _Utils_eq(old, _new) ? changes : _Utils_update(
+			changes,
+			{
+				changed: A2($elm$core$List$cons, tag, changes.changed)
+			});
+	});
+var $elm$browser$Debugger$Report$TagChanges = F4(
+	function (removed, changed, added, argsMatch) {
+		return {added: added, argsMatch: argsMatch, changed: changed, removed: removed};
+	});
+var $elm$browser$Debugger$Report$emptyTagChanges = function (argsMatch) {
+	return A4($elm$browser$Debugger$Report$TagChanges, _List_Nil, _List_Nil, _List_Nil, argsMatch);
+};
+var $elm$browser$Debugger$Report$hasTagChanges = function (tagChanges) {
+	return _Utils_eq(
+		tagChanges,
+		A4($elm$browser$Debugger$Report$TagChanges, _List_Nil, _List_Nil, _List_Nil, true));
+};
+var $elm$core$Dict$merge = F6(
+	function (leftStep, bothStep, rightStep, leftDict, rightDict, initialResult) {
+		var stepState = F3(
+			function (rKey, rValue, _v0) {
+				stepState:
+				while (true) {
+					var list = _v0.a;
+					var result = _v0.b;
+					if (!list.b) {
+						return _Utils_Tuple2(
+							list,
+							A3(rightStep, rKey, rValue, result));
+					} else {
+						var _v2 = list.a;
+						var lKey = _v2.a;
+						var lValue = _v2.b;
+						var rest = list.b;
+						if (_Utils_cmp(lKey, rKey) < 0) {
+							var $temp$rKey = rKey,
+								$temp$rValue = rValue,
+								$temp$_v0 = _Utils_Tuple2(
+								rest,
+								A3(leftStep, lKey, lValue, result));
+							rKey = $temp$rKey;
+							rValue = $temp$rValue;
+							_v0 = $temp$_v0;
+							continue stepState;
+						} else {
+							if (_Utils_cmp(lKey, rKey) > 0) {
+								return _Utils_Tuple2(
+									list,
+									A3(rightStep, rKey, rValue, result));
+							} else {
+								return _Utils_Tuple2(
+									rest,
+									A4(bothStep, lKey, lValue, rValue, result));
+							}
+						}
+					}
+				}
+			});
+		var _v3 = A3(
+			$elm$core$Dict$foldl,
+			stepState,
+			_Utils_Tuple2(
+				$elm$core$Dict$toList(leftDict),
+				initialResult),
+			rightDict);
+		var leftovers = _v3.a;
+		var intermediateResult = _v3.b;
+		return A3(
+			$elm$core$List$foldl,
+			F2(
+				function (_v4, result) {
+					var k = _v4.a;
+					var v = _v4.b;
+					return A3(leftStep, k, v, result);
+				}),
+			intermediateResult,
+			leftovers);
+	});
+var $elm$browser$Debugger$Metadata$removeTag = F3(
+	function (tag, _v0, changes) {
+		return _Utils_update(
+			changes,
+			{
+				removed: A2($elm$core$List$cons, tag, changes.removed)
+			});
+	});
+var $elm$browser$Debugger$Metadata$checkUnion = F4(
+	function (name, old, _new, changes) {
+		var tagChanges = A6(
+			$elm$core$Dict$merge,
+			$elm$browser$Debugger$Metadata$removeTag,
+			$elm$browser$Debugger$Metadata$checkTag,
+			$elm$browser$Debugger$Metadata$addTag,
+			old.tags,
+			_new.tags,
+			$elm$browser$Debugger$Report$emptyTagChanges(
+				_Utils_eq(old.args, _new.args)));
+		return $elm$browser$Debugger$Report$hasTagChanges(tagChanges) ? changes : A2(
+			$elm$core$List$cons,
+			A2($elm$browser$Debugger$Report$UnionChange, name, tagChanges),
+			changes);
+	});
+var $elm$browser$Debugger$Metadata$ignore = F3(
+	function (key, value, report) {
+		return report;
+	});
+var $elm$browser$Debugger$Metadata$checkTypes = F2(
+	function (old, _new) {
+		return (!_Utils_eq(old.message, _new.message)) ? A2($elm$browser$Debugger$Report$MessageChanged, old.message, _new.message) : $elm$browser$Debugger$Report$SomethingChanged(
+			A6(
+				$elm$core$Dict$merge,
+				$elm$browser$Debugger$Metadata$ignore,
+				$elm$browser$Debugger$Metadata$checkUnion,
+				$elm$browser$Debugger$Metadata$ignore,
+				old.unions,
+				_new.unions,
+				A6($elm$core$Dict$merge, $elm$browser$Debugger$Metadata$ignore, $elm$browser$Debugger$Metadata$checkAlias, $elm$browser$Debugger$Metadata$ignore, old.aliases, _new.aliases, _List_Nil)));
+	});
+var $elm$browser$Debugger$Metadata$check = F2(
+	function (old, _new) {
+		return (!_Utils_eq(old.versions.elm, _new.versions.elm)) ? A2($elm$browser$Debugger$Report$VersionChanged, old.versions.elm, _new.versions.elm) : A2($elm$browser$Debugger$Metadata$checkTypes, old.types, _new.types);
+	});
+var $elm$browser$Debugger$Report$CorruptHistory = {$: 'CorruptHistory'};
+var $elm$browser$Debugger$Overlay$corruptImport = $elm$browser$Debugger$Overlay$BadImport($elm$browser$Debugger$Report$CorruptHistory);
+var $elm$json$Json$Decode$decodeString = _Json_runOnString;
+var $elm$browser$Debugger$Report$Fine = {$: 'Fine'};
+var $elm$browser$Debugger$Report$Impossible = {$: 'Impossible'};
+var $elm$browser$Debugger$Report$Risky = {$: 'Risky'};
+var $elm$core$Basics$not = _Basics_not;
+var $elm$core$List$isEmpty = function (xs) {
+	if (!xs.b) {
+		return true;
+	} else {
+		return false;
+	}
+};
+var $elm$browser$Debugger$Report$some = function (list) {
+	return !$elm$core$List$isEmpty(list);
+};
+var $elm$browser$Debugger$Report$evaluateChange = function (change) {
+	if (change.$ === 'AliasChange') {
+		return $elm$browser$Debugger$Report$Impossible;
+	} else {
+		var removed = change.b.removed;
+		var changed = change.b.changed;
+		var added = change.b.added;
+		var argsMatch = change.b.argsMatch;
+		return ((!argsMatch) || ($elm$browser$Debugger$Report$some(changed) || $elm$browser$Debugger$Report$some(removed))) ? $elm$browser$Debugger$Report$Impossible : ($elm$browser$Debugger$Report$some(added) ? $elm$browser$Debugger$Report$Risky : $elm$browser$Debugger$Report$Fine);
+	}
+};
+var $elm$browser$Debugger$Report$worstCase = F2(
+	function (status, statusList) {
+		worstCase:
+		while (true) {
+			if (!statusList.b) {
+				return status;
+			} else {
+				switch (statusList.a.$) {
+					case 'Impossible':
+						var _v1 = statusList.a;
+						return $elm$browser$Debugger$Report$Impossible;
+					case 'Risky':
+						var _v2 = statusList.a;
+						var rest = statusList.b;
+						var $temp$status = $elm$browser$Debugger$Report$Risky,
+							$temp$statusList = rest;
+						status = $temp$status;
+						statusList = $temp$statusList;
+						continue worstCase;
+					default:
+						var _v3 = statusList.a;
+						var rest = statusList.b;
+						var $temp$status = status,
+							$temp$statusList = rest;
+						status = $temp$status;
+						statusList = $temp$statusList;
+						continue worstCase;
+				}
+			}
+		}
+	});
+var $elm$browser$Debugger$Report$evaluate = function (report) {
+	switch (report.$) {
+		case 'CorruptHistory':
+			return $elm$browser$Debugger$Report$Impossible;
+		case 'VersionChanged':
+			return $elm$browser$Debugger$Report$Impossible;
+		case 'MessageChanged':
+			return $elm$browser$Debugger$Report$Impossible;
+		default:
+			var changes = report.a;
+			return A2(
+				$elm$browser$Debugger$Report$worstCase,
+				$elm$browser$Debugger$Report$Fine,
+				A2($elm$core$List$map, $elm$browser$Debugger$Report$evaluateChange, changes));
+	}
+};
+var $elm$json$Json$Decode$value = _Json_decodeValue;
+var $elm$browser$Debugger$Overlay$uploadDecoder = A3(
+	$elm$json$Json$Decode$map2,
+	F2(
+		function (x, y) {
+			return _Utils_Tuple2(x, y);
+		}),
+	A2($elm$json$Json$Decode$field, 'metadata', $elm$browser$Debugger$Metadata$decoder),
+	A2($elm$json$Json$Decode$field, 'history', $elm$json$Json$Decode$value));
+var $elm$browser$Debugger$Overlay$assessImport = F2(
+	function (metadata, jsonString) {
+		var _v0 = A2($elm$json$Json$Decode$decodeString, $elm$browser$Debugger$Overlay$uploadDecoder, jsonString);
+		if (_v0.$ === 'Err') {
+			return $elm$core$Result$Err($elm$browser$Debugger$Overlay$corruptImport);
+		} else {
+			var _v1 = _v0.a;
+			var foreignMetadata = _v1.a;
+			var rawHistory = _v1.b;
+			var report = A2($elm$browser$Debugger$Metadata$check, foreignMetadata, metadata);
+			var _v2 = $elm$browser$Debugger$Report$evaluate(report);
+			switch (_v2.$) {
+				case 'Impossible':
+					return $elm$core$Result$Err(
+						$elm$browser$Debugger$Overlay$BadImport(report));
+				case 'Risky':
+					return $elm$core$Result$Err(
+						A2($elm$browser$Debugger$Overlay$RiskyImport, report, rawHistory));
+				default:
+					return $elm$core$Result$Ok(rawHistory);
+			}
+		}
+	});
+var $elm$core$Platform$Cmd$batch = _Platform_batch;
+var $elm$browser$Debugger$Overlay$close = F2(
+	function (msg, state) {
+		switch (state.$) {
+			case 'None':
+				return $elm$core$Maybe$Nothing;
+			case 'BadMetadata':
+				return $elm$core$Maybe$Nothing;
+			case 'BadImport':
+				return $elm$core$Maybe$Nothing;
+			default:
+				var rawHistory = state.b;
+				if (msg.$ === 'Cancel') {
+					return $elm$core$Maybe$Nothing;
+				} else {
+					return $elm$core$Maybe$Just(rawHistory);
+				}
+		}
+	});
+var $elm$browser$Debugger$History$elmToJs = A2($elm$core$Basics$composeR, _Json_wrap, _Debugger_unsafeCoerce);
+var $elm$browser$Debugger$History$encodeHelp = F2(
+	function (snapshot, allMessages) {
+		return A3($elm$core$Array$foldl, $elm$core$List$cons, allMessages, snapshot.messages);
+	});
+var $elm$json$Json$Encode$list = F2(
+	function (func, entries) {
+		return _Json_wrap(
+			A3(
+				$elm$core$List$foldl,
+				_Json_addEntry(func),
+				_Json_emptyArray(_Utils_Tuple0),
+				entries));
+	});
+var $elm$browser$Debugger$History$encode = function (_v0) {
+	var snapshots = _v0.snapshots;
+	var recent = _v0.recent;
+	return A2(
+		$elm$json$Json$Encode$list,
+		$elm$browser$Debugger$History$elmToJs,
+		A3(
+			$elm$core$Array$foldr,
+			$elm$browser$Debugger$History$encodeHelp,
+			$elm$core$List$reverse(recent.messages),
+			snapshots));
+};
+var $elm$json$Json$Encode$object = function (pairs) {
+	return _Json_wrap(
+		A3(
+			$elm$core$List$foldl,
+			F2(
+				function (_v0, obj) {
+					var k = _v0.a;
+					var v = _v0.b;
+					return A3(_Json_addField, k, v, obj);
+				}),
+			_Json_emptyObject(_Utils_Tuple0),
+			pairs));
+};
+var $elm$browser$Debugger$Metadata$encodeAlias = function (_v0) {
+	var args = _v0.args;
+	var tipe = _v0.tipe;
+	return $elm$json$Json$Encode$object(
+		_List_fromArray(
+			[
+				_Utils_Tuple2(
+				'args',
+				A2($elm$json$Json$Encode$list, $elm$json$Json$Encode$string, args)),
+				_Utils_Tuple2(
+				'type',
+				$elm$json$Json$Encode$string(tipe))
+			]));
+};
+var $elm$browser$Debugger$Metadata$encodeDict = F2(
+	function (f, dict) {
+		return $elm$json$Json$Encode$object(
+			$elm$core$Dict$toList(
+				A2(
+					$elm$core$Dict$map,
+					F2(
+						function (key, value) {
+							return f(value);
+						}),
+					dict)));
+	});
+var $elm$browser$Debugger$Metadata$encodeUnion = function (_v0) {
+	var args = _v0.args;
+	var tags = _v0.tags;
+	return $elm$json$Json$Encode$object(
+		_List_fromArray(
+			[
+				_Utils_Tuple2(
+				'args',
+				A2($elm$json$Json$Encode$list, $elm$json$Json$Encode$string, args)),
+				_Utils_Tuple2(
+				'tags',
+				A2(
+					$elm$browser$Debugger$Metadata$encodeDict,
+					$elm$json$Json$Encode$list($elm$json$Json$Encode$string),
+					tags))
+			]));
+};
+var $elm$browser$Debugger$Metadata$encodeTypes = function (_v0) {
+	var message = _v0.message;
+	var unions = _v0.unions;
+	var aliases = _v0.aliases;
+	return $elm$json$Json$Encode$object(
+		_List_fromArray(
+			[
+				_Utils_Tuple2(
+				'message',
+				$elm$json$Json$Encode$string(message)),
+				_Utils_Tuple2(
+				'aliases',
+				A2($elm$browser$Debugger$Metadata$encodeDict, $elm$browser$Debugger$Metadata$encodeAlias, aliases)),
+				_Utils_Tuple2(
+				'unions',
+				A2($elm$browser$Debugger$Metadata$encodeDict, $elm$browser$Debugger$Metadata$encodeUnion, unions))
+			]));
+};
+var $elm$browser$Debugger$Metadata$encodeVersions = function (_v0) {
+	var elm = _v0.elm;
+	return $elm$json$Json$Encode$object(
+		_List_fromArray(
+			[
+				_Utils_Tuple2(
+				'elm',
+				$elm$json$Json$Encode$string(elm))
+			]));
+};
+var $elm$browser$Debugger$Metadata$encode = function (_v0) {
+	var versions = _v0.versions;
+	var types = _v0.types;
+	return $elm$json$Json$Encode$object(
+		_List_fromArray(
+			[
+				_Utils_Tuple2(
+				'versions',
+				$elm$browser$Debugger$Metadata$encodeVersions(versions)),
+				_Utils_Tuple2(
+				'types',
+				$elm$browser$Debugger$Metadata$encodeTypes(types))
+			]));
+};
+var $elm$core$Basics$identity = function (x) {
+	return x;
+};
+var $elm$core$Task$Perform = function (a) {
+	return {$: 'Perform', a: a};
+};
+var $elm$core$Task$succeed = _Scheduler_succeed;
+var $elm$core$Task$init = $elm$core$Task$succeed(_Utils_Tuple0);
+var $elm$core$Task$andThen = _Scheduler_andThen;
+var $elm$core$Task$map = F2(
+	function (func, taskA) {
+		return A2(
+			$elm$core$Task$andThen,
+			function (a) {
+				return $elm$core$Task$succeed(
+					func(a));
+			},
+			taskA);
+	});
+var $elm$core$Task$map2 = F3(
+	function (func, taskA, taskB) {
+		return A2(
+			$elm$core$Task$andThen,
+			function (a) {
+				return A2(
+					$elm$core$Task$andThen,
+					function (b) {
+						return $elm$core$Task$succeed(
+							A2(func, a, b));
+					},
+					taskB);
+			},
+			taskA);
+	});
+var $elm$core$Task$sequence = function (tasks) {
+	return A3(
+		$elm$core$List$foldr,
+		$elm$core$Task$map2($elm$core$List$cons),
+		$elm$core$Task$succeed(_List_Nil),
+		tasks);
+};
+var $elm$core$Platform$sendToApp = _Platform_sendToApp;
+var $elm$core$Task$spawnCmd = F2(
+	function (router, _v0) {
+		var task = _v0.a;
+		return _Scheduler_spawn(
+			A2(
+				$elm$core$Task$andThen,
+				$elm$core$Platform$sendToApp(router),
+				task));
+	});
+var $elm$core$Task$onEffects = F3(
+	function (router, commands, state) {
+		return A2(
+			$elm$core$Task$map,
+			function (_v0) {
+				return _Utils_Tuple0;
+			},
+			$elm$core$Task$sequence(
+				A2(
+					$elm$core$List$map,
+					$elm$core$Task$spawnCmd(router),
+					commands)));
+	});
+var $elm$core$Task$onSelfMsg = F3(
+	function (_v0, _v1, _v2) {
+		return $elm$core$Task$succeed(_Utils_Tuple0);
+	});
+var $elm$core$Task$cmdMap = F2(
+	function (tagger, _v0) {
+		var task = _v0.a;
+		return $elm$core$Task$Perform(
+			A2($elm$core$Task$map, tagger, task));
+	});
+_Platform_effectManagers['Task'] = _Platform_createManager($elm$core$Task$init, $elm$core$Task$onEffects, $elm$core$Task$onSelfMsg, $elm$core$Task$cmdMap);
+var $elm$core$Task$command = _Platform_leaf('Task');
+var $elm$core$Task$perform = F2(
+	function (toMessage, task) {
+		return $elm$core$Task$command(
+			$elm$core$Task$Perform(
+				A2($elm$core$Task$map, toMessage, task)));
+	});
+var $elm$browser$Debugger$Main$download = F2(
+	function (metadata, history) {
+		var historyLength = $elm$browser$Debugger$History$size(history);
+		return A2(
+			$elm$core$Task$perform,
+			function (_v0) {
+				return $elm$browser$Debugger$Main$NoOp;
+			},
+			A2(
+				_Debugger_download,
+				historyLength,
+				_Json_unwrap(
+					$elm$json$Json$Encode$object(
+						_List_fromArray(
+							[
+								_Utils_Tuple2(
+								'metadata',
+								$elm$browser$Debugger$Metadata$encode(metadata)),
+								_Utils_Tuple2(
+								'history',
+								$elm$browser$Debugger$History$encode(history))
+							])))));
+	});
+var $elm$browser$Debugger$Main$Vertical = F3(
+	function (a, b, c) {
+		return {$: 'Vertical', a: a, b: b, c: c};
+	});
+var $elm$browser$Debugger$Main$drag = F2(
+	function (info, layout) {
+		if (layout.$ === 'Horizontal') {
+			var status = layout.a;
+			var y = layout.c;
+			return A3($elm$browser$Debugger$Main$Horizontal, status, info.x / info.width, y);
+		} else {
+			var status = layout.a;
+			var x = layout.b;
+			return A3($elm$browser$Debugger$Main$Vertical, status, x, info.y / info.height);
+		}
+	});
+var $elm$browser$Debugger$History$Stepping = F2(
+	function (a, b) {
+		return {$: 'Stepping', a: a, b: b};
+	});
+var $elm$browser$Debugger$History$Done = F2(
+	function (a, b) {
+		return {$: 'Done', a: a, b: b};
+	});
+var $elm$browser$Debugger$History$getHelp = F3(
+	function (update, msg, getResult) {
+		if (getResult.$ === 'Done') {
+			return getResult;
+		} else {
+			var n = getResult.a;
+			var model = getResult.b;
+			return (!n) ? A2(
+				$elm$browser$Debugger$History$Done,
+				msg,
+				A2(update, msg, model).a) : A2(
+				$elm$browser$Debugger$History$Stepping,
+				n - 1,
+				A2(update, msg, model).a);
+		}
+	});
+var $elm$browser$Debugger$History$undone = function (getResult) {
+	undone:
+	while (true) {
+		if (getResult.$ === 'Done') {
+			var msg = getResult.a;
+			var model = getResult.b;
+			return _Utils_Tuple2(model, msg);
+		} else {
+			var $temp$getResult = getResult;
+			getResult = $temp$getResult;
+			continue undone;
+		}
+	}
+};
+var $elm$browser$Debugger$History$get = F3(
+	function (update, index, history) {
+		get:
+		while (true) {
+			var recent = history.recent;
+			var snapshotMax = history.numMessages - recent.numMessages;
+			if (_Utils_cmp(index, snapshotMax) > -1) {
+				return $elm$browser$Debugger$History$undone(
+					A3(
+						$elm$core$List$foldr,
+						$elm$browser$Debugger$History$getHelp(update),
+						A2($elm$browser$Debugger$History$Stepping, index - snapshotMax, recent.model),
+						recent.messages));
+			} else {
+				var _v0 = A2($elm$core$Array$get, (index / $elm$browser$Debugger$History$maxSnapshotSize) | 0, history.snapshots);
+				if (_v0.$ === 'Nothing') {
+					var $temp$update = update,
+						$temp$index = index,
+						$temp$history = history;
+					update = $temp$update;
+					index = $temp$index;
+					history = $temp$history;
+					continue get;
+				} else {
+					var model = _v0.a.model;
+					var messages = _v0.a.messages;
+					return $elm$browser$Debugger$History$undone(
+						A3(
+							$elm$core$Array$foldr,
+							$elm$browser$Debugger$History$getHelp(update),
+							A2($elm$browser$Debugger$History$Stepping, index % $elm$browser$Debugger$History$maxSnapshotSize, model),
+							messages));
+				}
+			}
+		}
+	});
+var $elm$browser$Debugger$History$getRecentMsg = function (history) {
+	getRecentMsg:
+	while (true) {
+		var _v0 = history.recent.messages;
+		if (!_v0.b) {
+			var $temp$history = history;
+			history = $temp$history;
+			continue getRecentMsg;
+		} else {
+			var first = _v0.a;
+			return first;
+		}
+	}
+};
+var $elm$core$Dict$get = F2(
+	function (targetKey, dict) {
+		get:
+		while (true) {
+			if (dict.$ === 'RBEmpty_elm_builtin') {
+				return $elm$core$Maybe$Nothing;
+			} else {
+				var key = dict.b;
+				var value = dict.c;
+				var left = dict.d;
+				var right = dict.e;
+				var _v1 = A2($elm$core$Basics$compare, targetKey, key);
+				switch (_v1.$) {
+					case 'LT':
+						var $temp$targetKey = targetKey,
+							$temp$dict = left;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue get;
+					case 'EQ':
+						return $elm$core$Maybe$Just(value);
+					default:
+						var $temp$targetKey = targetKey,
+							$temp$dict = right;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue get;
+				}
+			}
+		}
+	});
+var $elm$browser$Debugger$Expando$mergeDictHelp = F3(
+	function (oldDict, key, value) {
+		var _v12 = A2($elm$core$Dict$get, key, oldDict);
+		if (_v12.$ === 'Nothing') {
+			return value;
+		} else {
+			var oldValue = _v12.a;
+			return A2($elm$browser$Debugger$Expando$mergeHelp, oldValue, value);
+		}
+	});
+var $elm$browser$Debugger$Expando$mergeHelp = F2(
+	function (old, _new) {
+		var _v3 = _Utils_Tuple2(old, _new);
+		_v3$6:
+		while (true) {
+			switch (_v3.b.$) {
+				case 'S':
+					return _new;
+				case 'Primitive':
+					return _new;
+				case 'Sequence':
+					if (_v3.a.$ === 'Sequence') {
+						var _v4 = _v3.a;
+						var isClosed = _v4.b;
+						var oldValues = _v4.c;
+						var _v5 = _v3.b;
+						var seqType = _v5.a;
+						var newValues = _v5.c;
+						return A3(
+							$elm$browser$Debugger$Expando$Sequence,
+							seqType,
+							isClosed,
+							A2($elm$browser$Debugger$Expando$mergeListHelp, oldValues, newValues));
+					} else {
+						break _v3$6;
+					}
+				case 'Dictionary':
+					if (_v3.a.$ === 'Dictionary') {
+						var _v6 = _v3.a;
+						var isClosed = _v6.a;
+						var _v7 = _v3.b;
+						var keyValuePairs = _v7.b;
+						return A2($elm$browser$Debugger$Expando$Dictionary, isClosed, keyValuePairs);
+					} else {
+						break _v3$6;
+					}
+				case 'Record':
+					if (_v3.a.$ === 'Record') {
+						var _v8 = _v3.a;
+						var isClosed = _v8.a;
+						var oldDict = _v8.b;
+						var _v9 = _v3.b;
+						var newDict = _v9.b;
+						return A2(
+							$elm$browser$Debugger$Expando$Record,
+							isClosed,
+							A2(
+								$elm$core$Dict$map,
+								$elm$browser$Debugger$Expando$mergeDictHelp(oldDict),
+								newDict));
+					} else {
+						break _v3$6;
+					}
+				default:
+					if (_v3.a.$ === 'Constructor') {
+						var _v10 = _v3.a;
+						var isClosed = _v10.b;
+						var oldValues = _v10.c;
+						var _v11 = _v3.b;
+						var maybeName = _v11.a;
+						var newValues = _v11.c;
+						return A3(
+							$elm$browser$Debugger$Expando$Constructor,
+							maybeName,
+							isClosed,
+							A2($elm$browser$Debugger$Expando$mergeListHelp, oldValues, newValues));
+					} else {
+						break _v3$6;
+					}
+			}
+		}
+		return _new;
+	});
+var $elm$browser$Debugger$Expando$mergeListHelp = F2(
+	function (olds, news) {
+		var _v0 = _Utils_Tuple2(olds, news);
+		if (!_v0.a.b) {
+			return news;
+		} else {
+			if (!_v0.b.b) {
+				return news;
+			} else {
+				var _v1 = _v0.a;
+				var x = _v1.a;
+				var xs = _v1.b;
+				var _v2 = _v0.b;
+				var y = _v2.a;
+				var ys = _v2.b;
+				return A2(
+					$elm$core$List$cons,
+					A2($elm$browser$Debugger$Expando$mergeHelp, x, y),
+					A2($elm$browser$Debugger$Expando$mergeListHelp, xs, ys));
+			}
+		}
+	});
+var $elm$browser$Debugger$Expando$merge = F2(
+	function (value, expando) {
+		return A2(
+			$elm$browser$Debugger$Expando$mergeHelp,
+			expando,
+			_Debugger_init(value));
+	});
+var $elm$browser$Debugger$Main$jumpUpdate = F3(
+	function (update, index, model) {
+		var history = $elm$browser$Debugger$Main$cachedHistory(model);
+		var currentMsg = $elm$browser$Debugger$History$getRecentMsg(history);
+		var currentModel = $elm$browser$Debugger$Main$getLatestModel(model.state);
+		var _v0 = A3($elm$browser$Debugger$History$get, update, index, history);
+		var indexModel = _v0.a;
+		var indexMsg = _v0.b;
+		return _Utils_update(
+			model,
+			{
+				expandoModel: A2($elm$browser$Debugger$Expando$merge, indexModel, model.expandoModel),
+				expandoMsg: A2($elm$browser$Debugger$Expando$merge, indexMsg, model.expandoMsg),
+				state: A5($elm$browser$Debugger$Main$Paused, index, indexModel, currentModel, currentMsg, history)
+			});
+	});
+var $elm$browser$Debugger$History$jsToElm = A2($elm$core$Basics$composeR, _Json_unwrap, _Debugger_unsafeCoerce);
+var $elm$browser$Debugger$History$decoder = F2(
+	function (initialModel, update) {
+		var addMessage = F2(
+			function (rawMsg, _v0) {
+				var model = _v0.a;
+				var history = _v0.b;
+				var msg = $elm$browser$Debugger$History$jsToElm(rawMsg);
+				return _Utils_Tuple2(
+					A2(update, msg, model),
+					A3($elm$browser$Debugger$History$add, msg, model, history));
+			});
+		var updateModel = function (rawMsgs) {
+			return A3(
+				$elm$core$List$foldl,
+				addMessage,
+				_Utils_Tuple2(
+					initialModel,
+					$elm$browser$Debugger$History$empty(initialModel)),
+				rawMsgs);
+		};
+		return A2(
+			$elm$json$Json$Decode$map,
+			updateModel,
+			$elm$json$Json$Decode$list($elm$json$Json$Decode$value));
+	});
+var $elm$browser$Debugger$History$getInitialModel = function (_v0) {
+	var snapshots = _v0.snapshots;
+	var recent = _v0.recent;
+	var _v1 = A2($elm$core$Array$get, 0, snapshots);
+	if (_v1.$ === 'Just') {
+		var model = _v1.a.model;
+		return model;
+	} else {
+		return recent.model;
+	}
+};
+var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
+var $elm$browser$Debugger$Main$loadNewHistory = F3(
+	function (rawHistory, update, model) {
+		var pureUserUpdate = F2(
+			function (msg, userModel) {
+				return A2(update, msg, userModel).a;
+			});
+		var initialUserModel = $elm$browser$Debugger$History$getInitialModel(model.history);
+		var decoder = A2($elm$browser$Debugger$History$decoder, initialUserModel, pureUserUpdate);
+		var _v0 = A2($elm$json$Json$Decode$decodeValue, decoder, rawHistory);
+		if (_v0.$ === 'Err') {
+			return _Utils_Tuple2(
+				_Utils_update(
+					model,
+					{overlay: $elm$browser$Debugger$Overlay$corruptImport}),
+				$elm$core$Platform$Cmd$none);
+		} else {
+			var _v1 = _v0.a;
+			var latestUserModel = _v1.a;
+			var newHistory = _v1.b;
+			return _Utils_Tuple2(
+				_Utils_update(
+					model,
+					{
+						expandoModel: $elm$browser$Debugger$Expando$init(latestUserModel),
+						expandoMsg: $elm$browser$Debugger$Expando$init(
+							$elm$browser$Debugger$History$getRecentMsg(newHistory)),
+						history: newHistory,
+						overlay: $elm$browser$Debugger$Overlay$none,
+						state: $elm$browser$Debugger$Main$Running(latestUserModel)
+					}),
+				$elm$core$Platform$Cmd$none);
+		}
+	});
+var $elm$browser$Debugger$Main$scroll = function (popout) {
+	return A2(
+		$elm$core$Task$perform,
+		$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
+		_Debugger_scroll(popout));
+};
+var $elm$browser$Debugger$Main$scrollTo = F2(
+	function (id, popout) {
+		return A2(
+			$elm$core$Task$perform,
+			$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
+			A2(_Debugger_scrollTo, id, popout));
+	});
+var $elm$browser$Debugger$Main$setDragStatus = F2(
+	function (status, layout) {
+		if (layout.$ === 'Horizontal') {
+			var x = layout.b;
+			var y = layout.c;
+			return A3($elm$browser$Debugger$Main$Horizontal, status, x, y);
+		} else {
+			var x = layout.b;
+			var y = layout.c;
+			return A3($elm$browser$Debugger$Main$Vertical, status, x, y);
+		}
+	});
+var $elm$browser$Debugger$Main$swapLayout = function (layout) {
+	if (layout.$ === 'Horizontal') {
+		var s = layout.a;
+		var x = layout.b;
+		var y = layout.c;
+		return A3($elm$browser$Debugger$Main$Vertical, s, x, y);
+	} else {
+		var s = layout.a;
+		var x = layout.b;
+		var y = layout.c;
+		return A3($elm$browser$Debugger$Main$Horizontal, s, x, y);
+	}
+};
+var $elm$core$Dict$getMin = function (dict) {
+	getMin:
+	while (true) {
+		if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
+			var left = dict.d;
+			var $temp$dict = left;
+			dict = $temp$dict;
+			continue getMin;
+		} else {
+			return dict;
+		}
+	}
+};
+var $elm$core$Dict$moveRedLeft = function (dict) {
+	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
+		if ((dict.e.d.$ === 'RBNode_elm_builtin') && (dict.e.d.a.$ === 'Red')) {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _v1 = dict.d;
+			var lClr = _v1.a;
+			var lK = _v1.b;
+			var lV = _v1.c;
+			var lLeft = _v1.d;
+			var lRight = _v1.e;
+			var _v2 = dict.e;
+			var rClr = _v2.a;
+			var rK = _v2.b;
+			var rV = _v2.c;
+			var rLeft = _v2.d;
+			var _v3 = rLeft.a;
+			var rlK = rLeft.b;
+			var rlV = rLeft.c;
+			var rlL = rLeft.d;
+			var rlR = rLeft.e;
+			var rRight = _v2.e;
+			return A5(
+				$elm$core$Dict$RBNode_elm_builtin,
+				$elm$core$Dict$Red,
+				rlK,
+				rlV,
+				A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					rlL),
+				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rlR, rRight));
+		} else {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _v4 = dict.d;
+			var lClr = _v4.a;
+			var lK = _v4.b;
+			var lV = _v4.c;
+			var lLeft = _v4.d;
+			var lRight = _v4.e;
+			var _v5 = dict.e;
+			var rClr = _v5.a;
+			var rK = _v5.b;
+			var rV = _v5.c;
+			var rLeft = _v5.d;
+			var rRight = _v5.e;
+			if (clr.$ === 'Black') {
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			}
+		}
+	} else {
+		return dict;
+	}
+};
+var $elm$core$Dict$moveRedRight = function (dict) {
+	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
+		if ((dict.d.d.$ === 'RBNode_elm_builtin') && (dict.d.d.a.$ === 'Red')) {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _v1 = dict.d;
+			var lClr = _v1.a;
+			var lK = _v1.b;
+			var lV = _v1.c;
+			var _v2 = _v1.d;
+			var _v3 = _v2.a;
+			var llK = _v2.b;
+			var llV = _v2.c;
+			var llLeft = _v2.d;
+			var llRight = _v2.e;
+			var lRight = _v1.e;
+			var _v4 = dict.e;
+			var rClr = _v4.a;
+			var rK = _v4.b;
+			var rV = _v4.c;
+			var rLeft = _v4.d;
+			var rRight = _v4.e;
+			return A5(
+				$elm$core$Dict$RBNode_elm_builtin,
+				$elm$core$Dict$Red,
+				lK,
+				lV,
+				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
+				A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					lRight,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight)));
+		} else {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _v5 = dict.d;
+			var lClr = _v5.a;
+			var lK = _v5.b;
+			var lV = _v5.c;
+			var lLeft = _v5.d;
+			var lRight = _v5.e;
+			var _v6 = dict.e;
+			var rClr = _v6.a;
+			var rK = _v6.b;
+			var rV = _v6.c;
+			var rLeft = _v6.d;
+			var rRight = _v6.e;
+			if (clr.$ === 'Black') {
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					$elm$core$Dict$Black,
+					k,
+					v,
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			}
+		}
+	} else {
+		return dict;
+	}
+};
+var $elm$core$Dict$removeHelpPrepEQGT = F7(
+	function (targetKey, dict, color, key, value, left, right) {
+		if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
+			var _v1 = left.a;
+			var lK = left.b;
+			var lV = left.c;
+			var lLeft = left.d;
+			var lRight = left.e;
+			return A5(
+				$elm$core$Dict$RBNode_elm_builtin,
+				color,
+				lK,
+				lV,
+				lLeft,
+				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, lRight, right));
+		} else {
+			_v2$2:
+			while (true) {
+				if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Black')) {
+					if (right.d.$ === 'RBNode_elm_builtin') {
+						if (right.d.a.$ === 'Black') {
+							var _v3 = right.a;
+							var _v4 = right.d;
+							var _v5 = _v4.a;
+							return $elm$core$Dict$moveRedRight(dict);
+						} else {
+							break _v2$2;
+						}
+					} else {
+						var _v6 = right.a;
+						var _v7 = right.d;
+						return $elm$core$Dict$moveRedRight(dict);
+					}
+				} else {
+					break _v2$2;
+				}
+			}
+			return dict;
+		}
+	});
+var $elm$core$Dict$removeMin = function (dict) {
+	if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
+		var color = dict.a;
+		var key = dict.b;
+		var value = dict.c;
+		var left = dict.d;
+		var lColor = left.a;
+		var lLeft = left.d;
+		var right = dict.e;
+		if (lColor.$ === 'Black') {
+			if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
+				var _v3 = lLeft.a;
+				return A5(
+					$elm$core$Dict$RBNode_elm_builtin,
+					color,
+					key,
+					value,
+					$elm$core$Dict$removeMin(left),
+					right);
+			} else {
+				var _v4 = $elm$core$Dict$moveRedLeft(dict);
+				if (_v4.$ === 'RBNode_elm_builtin') {
+					var nColor = _v4.a;
+					var nKey = _v4.b;
+					var nValue = _v4.c;
+					var nLeft = _v4.d;
+					var nRight = _v4.e;
+					return A5(
+						$elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						$elm$core$Dict$removeMin(nLeft),
+						nRight);
+				} else {
+					return $elm$core$Dict$RBEmpty_elm_builtin;
+				}
+			}
+		} else {
+			return A5(
+				$elm$core$Dict$RBNode_elm_builtin,
+				color,
+				key,
+				value,
+				$elm$core$Dict$removeMin(left),
+				right);
+		}
+	} else {
+		return $elm$core$Dict$RBEmpty_elm_builtin;
+	}
+};
+var $elm$core$Dict$removeHelp = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'RBEmpty_elm_builtin') {
+			return $elm$core$Dict$RBEmpty_elm_builtin;
+		} else {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_cmp(targetKey, key) < 0) {
+				if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Black')) {
+					var _v4 = left.a;
+					var lLeft = left.d;
+					if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
+						var _v6 = lLeft.a;
+						return A5(
+							$elm$core$Dict$RBNode_elm_builtin,
+							color,
+							key,
+							value,
+							A2($elm$core$Dict$removeHelp, targetKey, left),
+							right);
+					} else {
+						var _v7 = $elm$core$Dict$moveRedLeft(dict);
+						if (_v7.$ === 'RBNode_elm_builtin') {
+							var nColor = _v7.a;
+							var nKey = _v7.b;
+							var nValue = _v7.c;
+							var nLeft = _v7.d;
+							var nRight = _v7.e;
+							return A5(
+								$elm$core$Dict$balance,
+								nColor,
+								nKey,
+								nValue,
+								A2($elm$core$Dict$removeHelp, targetKey, nLeft),
+								nRight);
+						} else {
+							return $elm$core$Dict$RBEmpty_elm_builtin;
+						}
+					}
+				} else {
+					return A5(
+						$elm$core$Dict$RBNode_elm_builtin,
+						color,
+						key,
+						value,
+						A2($elm$core$Dict$removeHelp, targetKey, left),
+						right);
+				}
+			} else {
+				return A2(
+					$elm$core$Dict$removeHelpEQGT,
+					targetKey,
+					A7($elm$core$Dict$removeHelpPrepEQGT, targetKey, dict, color, key, value, left, right));
+			}
+		}
+	});
+var $elm$core$Dict$removeHelpEQGT = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'RBNode_elm_builtin') {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_eq(targetKey, key)) {
+				var _v1 = $elm$core$Dict$getMin(right);
+				if (_v1.$ === 'RBNode_elm_builtin') {
+					var minKey = _v1.b;
+					var minValue = _v1.c;
+					return A5(
+						$elm$core$Dict$balance,
+						color,
+						minKey,
+						minValue,
+						left,
+						$elm$core$Dict$removeMin(right));
+				} else {
+					return $elm$core$Dict$RBEmpty_elm_builtin;
+				}
+			} else {
+				return A5(
+					$elm$core$Dict$balance,
+					color,
+					key,
+					value,
+					left,
+					A2($elm$core$Dict$removeHelp, targetKey, right));
+			}
+		} else {
+			return $elm$core$Dict$RBEmpty_elm_builtin;
+		}
+	});
+var $elm$core$Dict$remove = F2(
+	function (key, dict) {
+		var _v0 = A2($elm$core$Dict$removeHelp, key, dict);
+		if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
+			var _v1 = _v0.a;
+			var k = _v0.b;
+			var v = _v0.c;
+			var l = _v0.d;
+			var r = _v0.e;
+			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
+		} else {
+			var x = _v0;
+			return x;
+		}
+	});
+var $elm$core$Dict$update = F3(
+	function (targetKey, alter, dictionary) {
+		var _v0 = alter(
+			A2($elm$core$Dict$get, targetKey, dictionary));
+		if (_v0.$ === 'Just') {
+			var value = _v0.a;
+			return A3($elm$core$Dict$insert, targetKey, value, dictionary);
+		} else {
+			return A2($elm$core$Dict$remove, targetKey, dictionary);
+		}
+	});
+var $elm$browser$Debugger$Expando$updateIndex = F3(
+	function (n, func, list) {
+		if (!list.b) {
+			return _List_Nil;
+		} else {
+			var x = list.a;
+			var xs = list.b;
+			return (n <= 0) ? A2(
+				$elm$core$List$cons,
+				func(x),
+				xs) : A2(
+				$elm$core$List$cons,
+				x,
+				A3($elm$browser$Debugger$Expando$updateIndex, n - 1, func, xs));
+		}
+	});
+var $elm$browser$Debugger$Expando$update = F2(
+	function (msg, value) {
+		switch (value.$) {
+			case 'S':
+				return value;
+			case 'Primitive':
+				return value;
+			case 'Sequence':
+				var seqType = value.a;
+				var isClosed = value.b;
+				var valueList = value.c;
+				switch (msg.$) {
+					case 'Toggle':
+						return A3($elm$browser$Debugger$Expando$Sequence, seqType, !isClosed, valueList);
+					case 'Index':
+						if (msg.a.$ === 'None') {
+							var _v3 = msg.a;
+							var index = msg.b;
+							var subMsg = msg.c;
+							return A3(
+								$elm$browser$Debugger$Expando$Sequence,
+								seqType,
+								isClosed,
+								A3(
+									$elm$browser$Debugger$Expando$updateIndex,
+									index,
+									$elm$browser$Debugger$Expando$update(subMsg),
+									valueList));
+						} else {
+							return value;
+						}
+					default:
+						return value;
+				}
+			case 'Dictionary':
+				var isClosed = value.a;
+				var keyValuePairs = value.b;
+				switch (msg.$) {
+					case 'Toggle':
+						return A2($elm$browser$Debugger$Expando$Dictionary, !isClosed, keyValuePairs);
+					case 'Index':
+						var redirect = msg.a;
+						var index = msg.b;
+						var subMsg = msg.c;
+						switch (redirect.$) {
+							case 'None':
+								return value;
+							case 'Key':
+								return A2(
+									$elm$browser$Debugger$Expando$Dictionary,
+									isClosed,
+									A3(
+										$elm$browser$Debugger$Expando$updateIndex,
+										index,
+										function (_v6) {
+											var k = _v6.a;
+											var v = _v6.b;
+											return _Utils_Tuple2(
+												A2($elm$browser$Debugger$Expando$update, subMsg, k),
+												v);
+										},
+										keyValuePairs));
+							default:
+								return A2(
+									$elm$browser$Debugger$Expando$Dictionary,
+									isClosed,
+									A3(
+										$elm$browser$Debugger$Expando$updateIndex,
+										index,
+										function (_v7) {
+											var k = _v7.a;
+											var v = _v7.b;
+											return _Utils_Tuple2(
+												k,
+												A2($elm$browser$Debugger$Expando$update, subMsg, v));
+										},
+										keyValuePairs));
+						}
+					default:
+						return value;
+				}
+			case 'Record':
+				var isClosed = value.a;
+				var valueDict = value.b;
+				switch (msg.$) {
+					case 'Toggle':
+						return A2($elm$browser$Debugger$Expando$Record, !isClosed, valueDict);
+					case 'Index':
+						return value;
+					default:
+						var field = msg.a;
+						var subMsg = msg.b;
+						return A2(
+							$elm$browser$Debugger$Expando$Record,
+							isClosed,
+							A3(
+								$elm$core$Dict$update,
+								field,
+								$elm$browser$Debugger$Expando$updateField(subMsg),
+								valueDict));
+				}
+			default:
+				var maybeName = value.a;
+				var isClosed = value.b;
+				var valueList = value.c;
+				switch (msg.$) {
+					case 'Toggle':
+						return A3($elm$browser$Debugger$Expando$Constructor, maybeName, !isClosed, valueList);
+					case 'Index':
+						if (msg.a.$ === 'None') {
+							var _v10 = msg.a;
+							var index = msg.b;
+							var subMsg = msg.c;
+							return A3(
+								$elm$browser$Debugger$Expando$Constructor,
+								maybeName,
+								isClosed,
+								A3(
+									$elm$browser$Debugger$Expando$updateIndex,
+									index,
+									$elm$browser$Debugger$Expando$update(subMsg),
+									valueList));
+						} else {
+							return value;
+						}
+					default:
+						return value;
+				}
+		}
+	});
+var $elm$browser$Debugger$Expando$updateField = F2(
+	function (msg, maybeExpando) {
+		if (maybeExpando.$ === 'Nothing') {
+			return maybeExpando;
+		} else {
+			var expando = maybeExpando.a;
+			return $elm$core$Maybe$Just(
+				A2($elm$browser$Debugger$Expando$update, msg, expando));
+		}
+	});
+var $elm$browser$Debugger$Main$Upload = function (a) {
+	return {$: 'Upload', a: a};
+};
+var $elm$browser$Debugger$Main$upload = function (popout) {
+	return A2(
+		$elm$core$Task$perform,
+		$elm$browser$Debugger$Main$Upload,
+		_Debugger_upload(popout));
+};
+var $elm$browser$Debugger$Overlay$BadMetadata = function (a) {
+	return {$: 'BadMetadata', a: a};
+};
+var $elm$browser$Debugger$Overlay$badMetadata = $elm$browser$Debugger$Overlay$BadMetadata;
+var $elm$browser$Debugger$Main$withGoodMetadata = F2(
+	function (model, func) {
+		var _v0 = model.metadata;
+		if (_v0.$ === 'Ok') {
+			var metadata = _v0.a;
+			return func(metadata);
+		} else {
+			var error = _v0.a;
+			return _Utils_Tuple2(
+				_Utils_update(
+					model,
+					{
+						overlay: $elm$browser$Debugger$Overlay$badMetadata(error)
+					}),
+				$elm$core$Platform$Cmd$none);
+		}
+	});
+var $elm$browser$Debugger$Main$wrapUpdate = F3(
+	function (update, msg, model) {
+		wrapUpdate:
+		while (true) {
+			switch (msg.$) {
+				case 'NoOp':
+					return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
+				case 'UserMsg':
+					var userMsg = msg.a;
+					var userModel = $elm$browser$Debugger$Main$getLatestModel(model.state);
+					var newHistory = A3($elm$browser$Debugger$History$add, userMsg, userModel, model.history);
+					var _v1 = A2(update, userMsg, userModel);
+					var newUserModel = _v1.a;
+					var userCmds = _v1.b;
+					var commands = A2($elm$core$Platform$Cmd$map, $elm$browser$Debugger$Main$UserMsg, userCmds);
+					var _v2 = model.state;
+					if (_v2.$ === 'Running') {
+						return _Utils_Tuple2(
+							_Utils_update(
+								model,
+								{
+									expandoModel: A2($elm$browser$Debugger$Expando$merge, newUserModel, model.expandoModel),
+									expandoMsg: A2($elm$browser$Debugger$Expando$merge, userMsg, model.expandoMsg),
+									history: newHistory,
+									state: $elm$browser$Debugger$Main$Running(newUserModel)
+								}),
+							$elm$core$Platform$Cmd$batch(
+								_List_fromArray(
+									[
+										commands,
+										$elm$browser$Debugger$Main$scroll(model.popout)
+									])));
+					} else {
+						var index = _v2.a;
+						var indexModel = _v2.b;
+						var history = _v2.e;
+						return _Utils_Tuple2(
+							_Utils_update(
+								model,
+								{
+									history: newHistory,
+									state: A5($elm$browser$Debugger$Main$Paused, index, indexModel, newUserModel, userMsg, history)
+								}),
+							commands);
+					}
+				case 'TweakExpandoMsg':
+					var eMsg = msg.a;
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								expandoMsg: A2($elm$browser$Debugger$Expando$update, eMsg, model.expandoMsg)
+							}),
+						$elm$core$Platform$Cmd$none);
+				case 'TweakExpandoModel':
+					var eMsg = msg.a;
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								expandoModel: A2($elm$browser$Debugger$Expando$update, eMsg, model.expandoModel)
+							}),
+						$elm$core$Platform$Cmd$none);
+				case 'Resume':
+					var _v3 = model.state;
+					if (_v3.$ === 'Running') {
+						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
+					} else {
+						var userModel = _v3.c;
+						var userMsg = _v3.d;
+						return _Utils_Tuple2(
+							_Utils_update(
+								model,
+								{
+									expandoModel: A2($elm$browser$Debugger$Expando$merge, userModel, model.expandoModel),
+									expandoMsg: A2($elm$browser$Debugger$Expando$merge, userMsg, model.expandoMsg),
+									state: $elm$browser$Debugger$Main$Running(userModel)
+								}),
+							$elm$browser$Debugger$Main$scroll(model.popout));
+					}
+				case 'Jump':
+					var index = msg.a;
+					return _Utils_Tuple2(
+						A3($elm$browser$Debugger$Main$jumpUpdate, update, index, model),
+						$elm$core$Platform$Cmd$none);
+				case 'SliderJump':
+					var index = msg.a;
+					return _Utils_Tuple2(
+						A3($elm$browser$Debugger$Main$jumpUpdate, update, index, model),
+						A2(
+							$elm$browser$Debugger$Main$scrollTo,
+							$elm$browser$Debugger$History$idForMessageIndex(index),
+							model.popout));
+				case 'Open':
+					return _Utils_Tuple2(
+						model,
+						A2(
+							$elm$core$Task$perform,
+							$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
+							_Debugger_open(model.popout)));
+				case 'Up':
+					var _v4 = model.state;
+					if (_v4.$ === 'Running') {
+						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
+					} else {
+						var i = _v4.a;
+						var history = _v4.e;
+						var targetIndex = i + 1;
+						if (_Utils_cmp(
+							targetIndex,
+							$elm$browser$Debugger$History$size(history)) < 0) {
+							var $temp$update = update,
+								$temp$msg = $elm$browser$Debugger$Main$SliderJump(targetIndex),
+								$temp$model = model;
+							update = $temp$update;
+							msg = $temp$msg;
+							model = $temp$model;
+							continue wrapUpdate;
+						} else {
+							var $temp$update = update,
+								$temp$msg = $elm$browser$Debugger$Main$Resume,
+								$temp$model = model;
+							update = $temp$update;
+							msg = $temp$msg;
+							model = $temp$model;
+							continue wrapUpdate;
+						}
+					}
+				case 'Down':
+					var _v5 = model.state;
+					if (_v5.$ === 'Running') {
+						var $temp$update = update,
+							$temp$msg = $elm$browser$Debugger$Main$Jump(
+							$elm$browser$Debugger$History$size(model.history) - 1),
+							$temp$model = model;
+						update = $temp$update;
+						msg = $temp$msg;
+						model = $temp$model;
+						continue wrapUpdate;
+					} else {
+						var index = _v5.a;
+						if (index > 0) {
+							var $temp$update = update,
+								$temp$msg = $elm$browser$Debugger$Main$SliderJump(index - 1),
+								$temp$model = model;
+							update = $temp$update;
+							msg = $temp$msg;
+							model = $temp$model;
+							continue wrapUpdate;
+						} else {
+							return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
+						}
+					}
+				case 'Import':
+					return A2(
+						$elm$browser$Debugger$Main$withGoodMetadata,
+						model,
+						function (_v6) {
+							return _Utils_Tuple2(
+								model,
+								$elm$browser$Debugger$Main$upload(model.popout));
+						});
+				case 'Export':
+					return A2(
+						$elm$browser$Debugger$Main$withGoodMetadata,
+						model,
+						function (metadata) {
+							return _Utils_Tuple2(
+								model,
+								A2($elm$browser$Debugger$Main$download, metadata, model.history));
+						});
+				case 'Upload':
+					var jsonString = msg.a;
+					return A2(
+						$elm$browser$Debugger$Main$withGoodMetadata,
+						model,
+						function (metadata) {
+							var _v7 = A2($elm$browser$Debugger$Overlay$assessImport, metadata, jsonString);
+							if (_v7.$ === 'Err') {
+								var newOverlay = _v7.a;
+								return _Utils_Tuple2(
+									_Utils_update(
+										model,
+										{overlay: newOverlay}),
+									$elm$core$Platform$Cmd$none);
+							} else {
+								var rawHistory = _v7.a;
+								return A3($elm$browser$Debugger$Main$loadNewHistory, rawHistory, update, model);
+							}
+						});
+				case 'OverlayMsg':
+					var overlayMsg = msg.a;
+					var _v8 = A2($elm$browser$Debugger$Overlay$close, overlayMsg, model.overlay);
+					if (_v8.$ === 'Nothing') {
+						return _Utils_Tuple2(
+							_Utils_update(
+								model,
+								{overlay: $elm$browser$Debugger$Overlay$none}),
+							$elm$core$Platform$Cmd$none);
+					} else {
+						var rawHistory = _v8.a;
+						return A3($elm$browser$Debugger$Main$loadNewHistory, rawHistory, update, model);
+					}
+				case 'SwapLayout':
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								layout: $elm$browser$Debugger$Main$swapLayout(model.layout)
+							}),
+						$elm$core$Platform$Cmd$none);
+				case 'DragStart':
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								layout: A2($elm$browser$Debugger$Main$setDragStatus, $elm$browser$Debugger$Main$Moving, model.layout)
+							}),
+						$elm$core$Platform$Cmd$none);
+				case 'Drag':
+					var info = msg.a;
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								layout: A2($elm$browser$Debugger$Main$drag, info, model.layout)
+							}),
+						$elm$core$Platform$Cmd$none);
+				default:
+					return _Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								layout: A2($elm$browser$Debugger$Main$setDragStatus, $elm$browser$Debugger$Main$Static, model.layout)
+							}),
+						$elm$core$Platform$Cmd$none);
+			}
+		}
+	});
+var $elm$browser$Browser$External = function (a) {
+	return {$: 'External', a: a};
+};
+var $elm$browser$Browser$Internal = function (a) {
+	return {$: 'Internal', a: a};
+};
+var $elm$browser$Browser$Dom$NotFound = function (a) {
+	return {$: 'NotFound', a: a};
+};
+var $elm$url$Url$Http = {$: 'Http'};
+var $elm$url$Url$Https = {$: 'Https'};
+var $elm$url$Url$Url = F6(
+	function (protocol, host, port_, path, query, fragment) {
+		return {fragment: fragment, host: host, path: path, port_: port_, protocol: protocol, query: query};
+	});
+var $elm$core$String$dropLeft = F2(
+	function (n, string) {
+		return (n < 1) ? string : A3(
+			$elm$core$String$slice,
+			n,
+			$elm$core$String$length(string),
+			string);
+	});
+var $elm$core$String$indexes = _String_indexes;
+var $elm$core$String$isEmpty = function (string) {
+	return string === '';
+};
+var $elm$url$Url$chompBeforePath = F5(
+	function (protocol, path, params, frag, str) {
+		if ($elm$core$String$isEmpty(str) || A2($elm$core$String$contains, '@', str)) {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			var _v0 = A2($elm$core$String$indexes, ':', str);
+			if (!_v0.b) {
+				return $elm$core$Maybe$Just(
+					A6($elm$url$Url$Url, protocol, str, $elm$core$Maybe$Nothing, path, params, frag));
+			} else {
+				if (!_v0.b.b) {
+					var i = _v0.a;
+					var _v1 = $elm$core$String$toInt(
+						A2($elm$core$String$dropLeft, i + 1, str));
+					if (_v1.$ === 'Nothing') {
+						return $elm$core$Maybe$Nothing;
+					} else {
+						var port_ = _v1;
+						return $elm$core$Maybe$Just(
+							A6(
+								$elm$url$Url$Url,
+								protocol,
+								A2($elm$core$String$left, i, str),
+								port_,
+								path,
+								params,
+								frag));
+					}
+				} else {
+					return $elm$core$Maybe$Nothing;
+				}
+			}
+		}
+	});
+var $elm$url$Url$chompBeforeQuery = F4(
+	function (protocol, params, frag, str) {
+		if ($elm$core$String$isEmpty(str)) {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			var _v0 = A2($elm$core$String$indexes, '/', str);
+			if (!_v0.b) {
+				return A5($elm$url$Url$chompBeforePath, protocol, '/', params, frag, str);
+			} else {
+				var i = _v0.a;
+				return A5(
+					$elm$url$Url$chompBeforePath,
+					protocol,
+					A2($elm$core$String$dropLeft, i, str),
+					params,
+					frag,
+					A2($elm$core$String$left, i, str));
+			}
+		}
+	});
+var $elm$url$Url$chompBeforeFragment = F3(
+	function (protocol, frag, str) {
+		if ($elm$core$String$isEmpty(str)) {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			var _v0 = A2($elm$core$String$indexes, '?', str);
+			if (!_v0.b) {
+				return A4($elm$url$Url$chompBeforeQuery, protocol, $elm$core$Maybe$Nothing, frag, str);
+			} else {
+				var i = _v0.a;
+				return A4(
+					$elm$url$Url$chompBeforeQuery,
+					protocol,
+					$elm$core$Maybe$Just(
+						A2($elm$core$String$dropLeft, i + 1, str)),
+					frag,
+					A2($elm$core$String$left, i, str));
+			}
+		}
+	});
+var $elm$url$Url$chompAfterProtocol = F2(
+	function (protocol, str) {
+		if ($elm$core$String$isEmpty(str)) {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			var _v0 = A2($elm$core$String$indexes, '#', str);
+			if (!_v0.b) {
+				return A3($elm$url$Url$chompBeforeFragment, protocol, $elm$core$Maybe$Nothing, str);
+			} else {
+				var i = _v0.a;
+				return A3(
+					$elm$url$Url$chompBeforeFragment,
+					protocol,
+					$elm$core$Maybe$Just(
+						A2($elm$core$String$dropLeft, i + 1, str)),
+					A2($elm$core$String$left, i, str));
+			}
+		}
+	});
+var $elm$core$String$startsWith = _String_startsWith;
+var $elm$url$Url$fromString = function (str) {
+	return A2($elm$core$String$startsWith, 'http://', str) ? A2(
+		$elm$url$Url$chompAfterProtocol,
+		$elm$url$Url$Http,
+		A2($elm$core$String$dropLeft, 7, str)) : (A2($elm$core$String$startsWith, 'https://', str) ? A2(
+		$elm$url$Url$chompAfterProtocol,
+		$elm$url$Url$Https,
+		A2($elm$core$String$dropLeft, 8, str)) : $elm$core$Maybe$Nothing);
+};
+var $elm$core$Basics$never = function (_v0) {
+	never:
+	while (true) {
+		var nvr = _v0.a;
+		var $temp$_v0 = nvr;
+		_v0 = $temp$_v0;
+		continue never;
+	}
+};
+var $elm$browser$Browser$document = _Browser_document;
+var $author$project$Types$Vault = function (a) {
+	return {$: 'Vault', a: a};
+};
+var $elm$core$String$concat = function (strings) {
+	return A2($elm$core$String$join, '', strings);
+};
+var $elm$core$Maybe$map = F2(
+	function (f, maybe) {
+		if (maybe.$ === 'Just') {
+			var value = maybe.a;
+			return $elm$core$Maybe$Just(
+				f(value));
+		} else {
+			return $elm$core$Maybe$Nothing;
+		}
+	});
+var $author$project$Internal$Grammar$ServerName$toString = function (_v0) {
+	var port_ = _v0.port_;
+	var host = _v0.host;
+	var portString = A2(
+		$elm$core$Maybe$withDefault,
+		'',
+		A2(
+			$elm$core$Maybe$map,
+			$elm$core$Basics$append(':'),
+			A2($elm$core$Maybe$map, $elm$core$String$fromInt, port_)));
+	var hostString = function () {
+		if (host.$ === 'DNS') {
+			var name = host.a;
+			return name;
+		} else {
+			var back = host.a.back;
+			var front = host.a.front;
+			return function (i) {
+				return '[' + (i + ']');
+			}(
+				$elm$core$String$concat(
+					($elm$core$List$length(front) === 8) ? A2($elm$core$List$intersperse, ':', front) : (($elm$core$List$length(back) === 8) ? A2($elm$core$List$intersperse, ':', back) : $elm$core$List$concat(
+						_List_fromArray(
+							[
+								A2($elm$core$List$intersperse, ':', front),
+								_List_fromArray(
+								['::']),
+								A2($elm$core$List$intersperse, ':', back)
+							])))));
+		}
+	}();
+	return _Utils_ap(hostString, portString);
+};
+var $author$project$Internal$Values$User$domain = A2(
+	$elm$core$Basics$composeR,
+	function ($) {
+		return $.domain;
+	},
+	$author$project$Internal$Grammar$ServerName$toString);
+var $elm$parser$Parser$ExpectingEnd = {$: 'ExpectingEnd'};
+var $elm$parser$Parser$Advanced$Bad = F2(
+	function (a, b) {
+		return {$: 'Bad', a: a, b: b};
+	});
+var $elm$parser$Parser$Advanced$Good = F3(
+	function (a, b, c) {
+		return {$: 'Good', a: a, b: b, c: c};
+	});
+var $elm$parser$Parser$Advanced$Parser = function (a) {
+	return {$: 'Parser', a: a};
+};
+var $elm$parser$Parser$Advanced$AddRight = F2(
+	function (a, b) {
+		return {$: 'AddRight', a: a, b: b};
+	});
+var $elm$parser$Parser$Advanced$DeadEnd = F4(
+	function (row, col, problem, contextStack) {
+		return {col: col, contextStack: contextStack, problem: problem, row: row};
+	});
+var $elm$parser$Parser$Advanced$Empty = {$: 'Empty'};
+var $elm$parser$Parser$Advanced$fromState = F2(
+	function (s, x) {
+		return A2(
+			$elm$parser$Parser$Advanced$AddRight,
+			$elm$parser$Parser$Advanced$Empty,
+			A4($elm$parser$Parser$Advanced$DeadEnd, s.row, s.col, x, s.context));
+	});
+var $elm$parser$Parser$Advanced$end = function (x) {
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			return _Utils_eq(
+				$elm$core$String$length(s.src),
+				s.offset) ? A3($elm$parser$Parser$Advanced$Good, false, _Utils_Tuple0, s) : A2(
+				$elm$parser$Parser$Advanced$Bad,
+				false,
+				A2($elm$parser$Parser$Advanced$fromState, s, x));
+		});
+};
+var $elm$parser$Parser$end = $elm$parser$Parser$Advanced$end($elm$parser$Parser$ExpectingEnd);
+var $elm$parser$Parser$Advanced$map2 = F3(
+	function (func, _v0, _v1) {
+		var parseA = _v0.a;
+		var parseB = _v1.a;
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s0) {
+				var _v2 = parseA(s0);
+				if (_v2.$ === 'Bad') {
+					var p = _v2.a;
+					var x = _v2.b;
+					return A2($elm$parser$Parser$Advanced$Bad, p, x);
+				} else {
+					var p1 = _v2.a;
+					var a = _v2.b;
+					var s1 = _v2.c;
+					var _v3 = parseB(s1);
+					if (_v3.$ === 'Bad') {
+						var p2 = _v3.a;
+						var x = _v3.b;
+						return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x);
+					} else {
+						var p2 = _v3.a;
+						var b = _v3.b;
+						var s2 = _v3.c;
+						return A3(
+							$elm$parser$Parser$Advanced$Good,
+							p1 || p2,
+							A2(func, a, b),
+							s2);
+					}
+				}
+			});
+	});
+var $elm$parser$Parser$Advanced$ignorer = F2(
+	function (keepParser, ignoreParser) {
+		return A3($elm$parser$Parser$Advanced$map2, $elm$core$Basics$always, keepParser, ignoreParser);
+	});
+var $elm$parser$Parser$ignorer = $elm$parser$Parser$Advanced$ignorer;
+var $elm$parser$Parser$DeadEnd = F3(
+	function (row, col, problem) {
+		return {col: col, problem: problem, row: row};
+	});
+var $elm$parser$Parser$problemToDeadEnd = function (p) {
+	return A3($elm$parser$Parser$DeadEnd, p.row, p.col, p.problem);
+};
+var $elm$parser$Parser$Advanced$bagToList = F2(
+	function (bag, list) {
+		bagToList:
+		while (true) {
+			switch (bag.$) {
+				case 'Empty':
+					return list;
+				case 'AddRight':
+					var bag1 = bag.a;
+					var x = bag.b;
+					var $temp$bag = bag1,
+						$temp$list = A2($elm$core$List$cons, x, list);
+					bag = $temp$bag;
+					list = $temp$list;
+					continue bagToList;
+				default:
+					var bag1 = bag.a;
+					var bag2 = bag.b;
+					var $temp$bag = bag1,
+						$temp$list = A2($elm$parser$Parser$Advanced$bagToList, bag2, list);
+					bag = $temp$bag;
+					list = $temp$list;
+					continue bagToList;
+			}
+		}
+	});
+var $elm$parser$Parser$Advanced$run = F2(
+	function (_v0, src) {
+		var parse = _v0.a;
+		var _v1 = parse(
+			{col: 1, context: _List_Nil, indent: 1, offset: 0, row: 1, src: src});
+		if (_v1.$ === 'Good') {
+			var value = _v1.b;
+			return $elm$core$Result$Ok(value);
+		} else {
+			var bag = _v1.b;
+			return $elm$core$Result$Err(
+				A2($elm$parser$Parser$Advanced$bagToList, bag, _List_Nil));
+		}
+	});
+var $elm$parser$Parser$run = F2(
+	function (parser, source) {
+		var _v0 = A2($elm$parser$Parser$Advanced$run, parser, source);
+		if (_v0.$ === 'Ok') {
+			var a = _v0.a;
+			return $elm$core$Result$Ok(a);
+		} else {
+			var problems = _v0.a;
+			return $elm$core$Result$Err(
+				A2($elm$core$List$map, $elm$parser$Parser$problemToDeadEnd, problems));
+		}
+	});
+var $elm$core$Result$toMaybe = function (result) {
+	if (result.$ === 'Ok') {
+		var v = result.a;
+		return $elm$core$Maybe$Just(v);
+	} else {
+		return $elm$core$Maybe$Nothing;
+	}
+};
+var $author$project$Internal$Grammar$UserId$UserID = F2(
+	function (localpart, domain) {
+		return {domain: domain, localpart: localpart};
+	});
+var $elm$parser$Parser$Advanced$keeper = F2(
+	function (parseFunc, parseArg) {
+		return A3($elm$parser$Parser$Advanced$map2, $elm$core$Basics$apL, parseFunc, parseArg);
+	});
+var $elm$parser$Parser$keeper = $elm$parser$Parser$Advanced$keeper;
+var $elm$parser$Parser$UnexpectedChar = {$: 'UnexpectedChar'};
+var $elm$parser$Parser$Advanced$isSubChar = _Parser_isSubChar;
+var $elm$parser$Parser$Advanced$chompIf = F2(
+	function (isGood, expecting) {
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s) {
+				var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, s.offset, s.src);
+				return _Utils_eq(newOffset, -1) ? A2(
+					$elm$parser$Parser$Advanced$Bad,
+					false,
+					A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : (_Utils_eq(newOffset, -2) ? A3(
+					$elm$parser$Parser$Advanced$Good,
+					true,
+					_Utils_Tuple0,
+					{col: 1, context: s.context, indent: s.indent, offset: s.offset + 1, row: s.row + 1, src: s.src}) : A3(
+					$elm$parser$Parser$Advanced$Good,
+					true,
+					_Utils_Tuple0,
+					{col: s.col + 1, context: s.context, indent: s.indent, offset: newOffset, row: s.row, src: s.src}));
+			});
+	});
+var $elm$parser$Parser$chompIf = function (isGood) {
+	return A2($elm$parser$Parser$Advanced$chompIf, isGood, $elm$parser$Parser$UnexpectedChar);
+};
+var $elm$parser$Parser$Advanced$mapChompedString = F2(
+	function (func, _v0) {
+		var parse = _v0.a;
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s0) {
+				var _v1 = parse(s0);
+				if (_v1.$ === 'Bad') {
+					var p = _v1.a;
+					var x = _v1.b;
+					return A2($elm$parser$Parser$Advanced$Bad, p, x);
+				} else {
+					var p = _v1.a;
+					var a = _v1.b;
+					var s1 = _v1.c;
+					return A3(
+						$elm$parser$Parser$Advanced$Good,
+						p,
+						A2(
+							func,
+							A3($elm$core$String$slice, s0.offset, s1.offset, s0.src),
+							a),
+						s1);
+				}
+			});
+	});
+var $elm$parser$Parser$Advanced$getChompedString = function (parser) {
+	return A2($elm$parser$Parser$Advanced$mapChompedString, $elm$core$Basics$always, parser);
+};
+var $elm$parser$Parser$getChompedString = $elm$parser$Parser$Advanced$getChompedString;
+var $elm$parser$Parser$Advanced$map = F2(
+	function (func, _v0) {
+		var parse = _v0.a;
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s0) {
+				var _v1 = parse(s0);
+				if (_v1.$ === 'Good') {
+					var p = _v1.a;
+					var a = _v1.b;
+					var s1 = _v1.c;
+					return A3(
+						$elm$parser$Parser$Advanced$Good,
+						p,
+						func(a),
+						s1);
+				} else {
+					var p = _v1.a;
+					var x = _v1.b;
+					return A2($elm$parser$Parser$Advanced$Bad, p, x);
+				}
+			});
+	});
+var $elm$parser$Parser$map = $elm$parser$Parser$Advanced$map;
+var $elm$parser$Parser$Done = function (a) {
+	return {$: 'Done', a: a};
+};
+var $elm$parser$Parser$Loop = function (a) {
+	return {$: 'Loop', a: a};
+};
+var $elm$parser$Parser$Advanced$loopHelp = F4(
+	function (p, state, callback, s0) {
+		loopHelp:
+		while (true) {
+			var _v0 = callback(state);
+			var parse = _v0.a;
+			var _v1 = parse(s0);
+			if (_v1.$ === 'Good') {
+				var p1 = _v1.a;
+				var step = _v1.b;
+				var s1 = _v1.c;
+				if (step.$ === 'Loop') {
+					var newState = step.a;
+					var $temp$p = p || p1,
+						$temp$state = newState,
+						$temp$callback = callback,
+						$temp$s0 = s1;
+					p = $temp$p;
+					state = $temp$state;
+					callback = $temp$callback;
+					s0 = $temp$s0;
+					continue loopHelp;
+				} else {
+					var result = step.a;
+					return A3($elm$parser$Parser$Advanced$Good, p || p1, result, s1);
+				}
+			} else {
+				var p1 = _v1.a;
+				var x = _v1.b;
+				return A2($elm$parser$Parser$Advanced$Bad, p || p1, x);
+			}
+		}
+	});
+var $elm$parser$Parser$Advanced$loop = F2(
+	function (state, callback) {
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s) {
+				return A4($elm$parser$Parser$Advanced$loopHelp, false, state, callback, s);
+			});
+	});
+var $elm$parser$Parser$Advanced$Done = function (a) {
+	return {$: 'Done', a: a};
+};
+var $elm$parser$Parser$Advanced$Loop = function (a) {
+	return {$: 'Loop', a: a};
+};
+var $elm$parser$Parser$toAdvancedStep = function (step) {
+	if (step.$ === 'Loop') {
+		var s = step.a;
+		return $elm$parser$Parser$Advanced$Loop(s);
+	} else {
+		var a = step.a;
+		return $elm$parser$Parser$Advanced$Done(a);
+	}
+};
+var $elm$parser$Parser$loop = F2(
+	function (state, callback) {
+		return A2(
+			$elm$parser$Parser$Advanced$loop,
+			state,
+			function (s) {
+				return A2(
+					$elm$parser$Parser$map,
+					$elm$parser$Parser$toAdvancedStep,
+					callback(s));
+			});
+	});
+var $elm$core$Basics$min = F2(
+	function (x, y) {
+		return (_Utils_cmp(x, y) < 0) ? x : y;
+	});
+var $elm$parser$Parser$Advanced$Append = F2(
+	function (a, b) {
+		return {$: 'Append', a: a, b: b};
+	});
+var $elm$parser$Parser$Advanced$oneOfHelp = F3(
+	function (s0, bag, parsers) {
+		oneOfHelp:
+		while (true) {
+			if (!parsers.b) {
+				return A2($elm$parser$Parser$Advanced$Bad, false, bag);
+			} else {
+				var parse = parsers.a.a;
+				var remainingParsers = parsers.b;
+				var _v1 = parse(s0);
+				if (_v1.$ === 'Good') {
+					var step = _v1;
+					return step;
+				} else {
+					var step = _v1;
+					var p = step.a;
+					var x = step.b;
+					if (p) {
+						return step;
+					} else {
+						var $temp$s0 = s0,
+							$temp$bag = A2($elm$parser$Parser$Advanced$Append, bag, x),
+							$temp$parsers = remainingParsers;
+						s0 = $temp$s0;
+						bag = $temp$bag;
+						parsers = $temp$parsers;
+						continue oneOfHelp;
+					}
+				}
+			}
+		}
+	});
+var $elm$parser$Parser$Advanced$oneOf = function (parsers) {
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			return A3($elm$parser$Parser$Advanced$oneOfHelp, s, $elm$parser$Parser$Advanced$Empty, parsers);
+		});
+};
+var $elm$parser$Parser$oneOf = $elm$parser$Parser$Advanced$oneOf;
+var $elm$parser$Parser$Advanced$succeed = function (a) {
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			return A3($elm$parser$Parser$Advanced$Good, false, a, s);
+		});
+};
+var $elm$parser$Parser$succeed = $elm$parser$Parser$Advanced$succeed;
+var $author$project$Internal$Tools$ParserExtra$times = F3(
+	function (inf, sup, parser) {
+		var low = A2(
+			$elm$core$Basics$max,
+			0,
+			A2($elm$core$Basics$min, inf, sup));
+		var high = A2($elm$core$Basics$max, 0, sup);
+		return A2(
+			$elm$parser$Parser$loop,
+			_List_Nil,
+			function (tail) {
+				return (_Utils_cmp(
+					$elm$core$List$length(tail),
+					low) < 0) ? A2(
+					$elm$parser$Parser$keeper,
+					$elm$parser$Parser$succeed(
+						function (head) {
+							return $elm$parser$Parser$Loop(
+								A2($elm$core$List$cons, head, tail));
+						}),
+					parser) : ((_Utils_cmp(
+					$elm$core$List$length(tail),
+					high) < 0) ? $elm$parser$Parser$oneOf(
+					_List_fromArray(
+						[
+							A2(
+							$elm$parser$Parser$keeper,
+							$elm$parser$Parser$succeed(
+								function (head) {
+									return $elm$parser$Parser$Loop(
+										A2($elm$core$List$cons, head, tail));
+								}),
+							parser),
+							$elm$parser$Parser$succeed(
+							$elm$parser$Parser$Done(
+								$elm$core$List$reverse(tail)))
+						])) : $elm$parser$Parser$succeed(
+					$elm$parser$Parser$Done(
+						$elm$core$List$reverse(tail))));
+			});
+	});
+var $author$project$Internal$Grammar$UserId$validHistoricalUsernameChar = function (c) {
+	var i = $elm$core$Char$toCode(c);
+	return ((33 <= i) && (i <= 57)) || ((59 <= i) && (i <= 126));
+};
+var $author$project$Internal$Grammar$UserId$localpartParser = A2(
+	$elm$parser$Parser$map,
+	$elm$core$String$concat,
+	A3(
+		$author$project$Internal$Tools$ParserExtra$times,
+		1,
+		255,
+		$elm$parser$Parser$getChompedString(
+			$elm$parser$Parser$chompIf($author$project$Internal$Grammar$UserId$validHistoricalUsernameChar))));
+var $elm$core$Basics$abs = function (n) {
+	return (n < 0) ? (-n) : n;
+};
+var $elm$parser$Parser$Advanced$andThen = F2(
+	function (callback, _v0) {
+		var parseA = _v0.a;
+		return $elm$parser$Parser$Advanced$Parser(
+			function (s0) {
+				var _v1 = parseA(s0);
+				if (_v1.$ === 'Bad') {
+					var p = _v1.a;
+					var x = _v1.b;
+					return A2($elm$parser$Parser$Advanced$Bad, p, x);
+				} else {
+					var p1 = _v1.a;
+					var a = _v1.b;
+					var s1 = _v1.c;
+					var _v2 = callback(a);
+					var parseB = _v2.a;
+					var _v3 = parseB(s1);
+					if (_v3.$ === 'Bad') {
+						var p2 = _v3.a;
+						var x = _v3.b;
+						return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x);
+					} else {
+						var p2 = _v3.a;
+						var b = _v3.b;
+						var s2 = _v3.c;
+						return A3($elm$parser$Parser$Advanced$Good, p1 || p2, b, s2);
+					}
+				}
+			});
+	});
+var $elm$parser$Parser$andThen = $elm$parser$Parser$Advanced$andThen;
+var $elm$parser$Parser$Advanced$getOffset = $elm$parser$Parser$Advanced$Parser(
+	function (s) {
+		return A3($elm$parser$Parser$Advanced$Good, false, s.offset, s);
+	});
+var $elm$parser$Parser$getOffset = $elm$parser$Parser$Advanced$getOffset;
+var $elm$parser$Parser$Problem = function (a) {
+	return {$: 'Problem', a: a};
+};
+var $elm$parser$Parser$Advanced$problem = function (x) {
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			return A2(
+				$elm$parser$Parser$Advanced$Bad,
+				false,
+				A2($elm$parser$Parser$Advanced$fromState, s, x));
+		});
+};
+var $elm$parser$Parser$problem = function (msg) {
+	return $elm$parser$Parser$Advanced$problem(
+		$elm$parser$Parser$Problem(msg));
+};
+var $author$project$Internal$Tools$ParserExtra$maxLength = F2(
+	function (n, parser) {
+		return A2(
+			$elm$parser$Parser$andThen,
+			$elm$core$Basics$identity,
+			A2(
+				$elm$parser$Parser$keeper,
+				A2(
+					$elm$parser$Parser$keeper,
+					A2(
+						$elm$parser$Parser$keeper,
+						$elm$parser$Parser$succeed(
+							F3(
+								function (start, value, end) {
+									return (_Utils_cmp(
+										$elm$core$Basics$abs(end - start),
+										n) > 0) ? $elm$parser$Parser$problem('Parsed too much text!') : $elm$parser$Parser$succeed(value);
+								})),
+						$elm$parser$Parser$getOffset),
+					parser),
+				$elm$parser$Parser$getOffset));
+	});
+var $author$project$Internal$Grammar$ServerName$ServerName = F2(
+	function (host, port_) {
+		return {host: host, port_: port_};
+	});
+var $author$project$Internal$Grammar$ServerName$DNS = function (a) {
+	return {$: 'DNS', a: a};
+};
+var $author$project$Internal$Grammar$ServerName$IPv6 = function (a) {
+	return {$: 'IPv6', a: a};
+};
+var $elm$parser$Parser$Advanced$chompWhileHelp = F5(
+	function (isGood, offset, row, col, s0) {
+		chompWhileHelp:
+		while (true) {
+			var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, offset, s0.src);
+			if (_Utils_eq(newOffset, -1)) {
+				return A3(
+					$elm$parser$Parser$Advanced$Good,
+					_Utils_cmp(s0.offset, offset) < 0,
+					_Utils_Tuple0,
+					{col: col, context: s0.context, indent: s0.indent, offset: offset, row: row, src: s0.src});
+			} else {
+				if (_Utils_eq(newOffset, -2)) {
+					var $temp$isGood = isGood,
+						$temp$offset = offset + 1,
+						$temp$row = row + 1,
+						$temp$col = 1,
+						$temp$s0 = s0;
+					isGood = $temp$isGood;
+					offset = $temp$offset;
+					row = $temp$row;
+					col = $temp$col;
+					s0 = $temp$s0;
+					continue chompWhileHelp;
+				} else {
+					var $temp$isGood = isGood,
+						$temp$offset = newOffset,
+						$temp$row = row,
+						$temp$col = col + 1,
+						$temp$s0 = s0;
+					isGood = $temp$isGood;
+					offset = $temp$offset;
+					row = $temp$row;
+					col = $temp$col;
+					s0 = $temp$s0;
+					continue chompWhileHelp;
+				}
+			}
+		}
+	});
+var $elm$parser$Parser$Advanced$chompWhile = function (isGood) {
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			return A5($elm$parser$Parser$Advanced$chompWhileHelp, isGood, s.offset, s.row, s.col, s);
+		});
+};
+var $elm$parser$Parser$chompWhile = $elm$parser$Parser$Advanced$chompWhile;
+var $author$project$Internal$Grammar$ServerName$dnsNameParser = $elm$parser$Parser$getChompedString(
+	A2(
+		$elm$parser$Parser$ignorer,
+		$elm$parser$Parser$chompIf($elm$core$Char$isAlphaNum),
+		$elm$parser$Parser$chompWhile(
+			function (c) {
+				return $elm$core$Char$isAlphaNum(c) || (_Utils_eq(
+					c,
+					_Utils_chr('-')) || _Utils_eq(
+					c,
+					_Utils_chr('.')));
+			})));
+var $author$project$Internal$Grammar$ServerName$IPv6Address = F2(
+	function (front, back) {
+		return {back: back, front: front};
+	});
+var $elm$core$Char$isHexDigit = function (_char) {
+	var code = $elm$core$Char$toCode(_char);
+	return ((48 <= code) && (code <= 57)) || (((65 <= code) && (code <= 70)) || ((97 <= code) && (code <= 102)));
+};
+var $author$project$Internal$Grammar$ServerName$ipv6NumParser = A2(
+	$elm$parser$Parser$map,
+	$elm$core$String$concat,
+	A3(
+		$author$project$Internal$Tools$ParserExtra$times,
+		1,
+		4,
+		$elm$parser$Parser$getChompedString(
+			$elm$parser$Parser$chompIf($elm$core$Char$isHexDigit))));
+var $elm$parser$Parser$ExpectingSymbol = function (a) {
+	return {$: 'ExpectingSymbol', a: a};
+};
+var $elm$parser$Parser$Advanced$Token = F2(
+	function (a, b) {
+		return {$: 'Token', a: a, b: b};
+	});
+var $elm$parser$Parser$Advanced$isSubString = _Parser_isSubString;
+var $elm$parser$Parser$Advanced$token = function (_v0) {
+	var str = _v0.a;
+	var expecting = _v0.b;
+	var progress = !$elm$core$String$isEmpty(str);
+	return $elm$parser$Parser$Advanced$Parser(
+		function (s) {
+			var _v1 = A5($elm$parser$Parser$Advanced$isSubString, str, s.offset, s.row, s.col, s.src);
+			var newOffset = _v1.a;
+			var newRow = _v1.b;
+			var newCol = _v1.c;
+			return _Utils_eq(newOffset, -1) ? A2(
+				$elm$parser$Parser$Advanced$Bad,
+				false,
+				A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : A3(
+				$elm$parser$Parser$Advanced$Good,
+				progress,
+				_Utils_Tuple0,
+				{col: newCol, context: s.context, indent: s.indent, offset: newOffset, row: newRow, src: s.src});
+		});
+};
+var $elm$parser$Parser$Advanced$symbol = $elm$parser$Parser$Advanced$token;
+var $elm$parser$Parser$symbol = function (str) {
+	return $elm$parser$Parser$Advanced$symbol(
+		A2(
+			$elm$parser$Parser$Advanced$Token,
+			str,
+			$elm$parser$Parser$ExpectingSymbol(str)));
+};
+var $author$project$Internal$Grammar$ServerName$ipv6LeftParser = $elm$parser$Parser$oneOf(
+	_List_fromArray(
+		[
+			A2(
+			$elm$parser$Parser$ignorer,
+			$elm$parser$Parser$succeed(_List_Nil),
+			$elm$parser$Parser$symbol(':')),
+			A2(
+			$elm$parser$Parser$keeper,
+			A2(
+				$elm$parser$Parser$keeper,
+				$elm$parser$Parser$succeed($elm$core$Basics$apR),
+				A3(
+					$author$project$Internal$Tools$ParserExtra$times,
+					1,
+					7,
+					A2(
+						$elm$parser$Parser$ignorer,
+						$author$project$Internal$Grammar$ServerName$ipv6NumParser,
+						$elm$parser$Parser$symbol(':')))),
+			$elm$parser$Parser$oneOf(
+				_List_fromArray(
+					[
+						A2(
+						$elm$parser$Parser$keeper,
+						$elm$parser$Parser$succeed(
+							F2(
+								function (bottom, tail) {
+									return _Utils_ap(
+										tail,
+										_List_fromArray(
+											[bottom]));
+								})),
+						$author$project$Internal$Grammar$ServerName$ipv6NumParser),
+						$elm$parser$Parser$succeed($elm$core$Basics$identity)
+					])))
+		]));
+var $author$project$Internal$Grammar$ServerName$ipv6RightParser = function (n) {
+	return (n > 0) ? A2(
+		$elm$parser$Parser$keeper,
+		A2(
+			$elm$parser$Parser$ignorer,
+			$elm$parser$Parser$succeed($elm$core$Basics$identity),
+			$elm$parser$Parser$symbol(':')),
+		$elm$parser$Parser$oneOf(
+			_List_fromArray(
+				[
+					A2(
+					$elm$parser$Parser$keeper,
+					A2(
+						$elm$parser$Parser$keeper,
+						$elm$parser$Parser$succeed($elm$core$List$cons),
+						$author$project$Internal$Grammar$ServerName$ipv6NumParser),
+					A3(
+						$author$project$Internal$Tools$ParserExtra$times,
+						0,
+						n - 1,
+						A2(
+							$elm$parser$Parser$keeper,
+							A2(
+								$elm$parser$Parser$ignorer,
+								$elm$parser$Parser$succeed($elm$core$Basics$identity),
+								$elm$parser$Parser$symbol(':')),
+							$author$project$Internal$Grammar$ServerName$ipv6NumParser))),
+					$elm$parser$Parser$succeed(_List_Nil)
+				]))) : A2(
+		$elm$parser$Parser$ignorer,
+		$elm$parser$Parser$succeed(_List_Nil),
+		$elm$parser$Parser$symbol(':'));
+};
+var $author$project$Internal$Grammar$ServerName$ipv6Parser = A2(
+	$elm$parser$Parser$andThen,
+	function (front) {
+		return ($elm$core$List$length(front) < 8) ? A2(
+			$elm$parser$Parser$keeper,
+			$elm$parser$Parser$succeed(
+				$author$project$Internal$Grammar$ServerName$IPv6Address(front)),
+			$author$project$Internal$Grammar$ServerName$ipv6RightParser(
+				(8 - 1) - $elm$core$List$length(front))) : $elm$parser$Parser$succeed(
+			A2($author$project$Internal$Grammar$ServerName$IPv6Address, front, _List_Nil));
+	},
+	$author$project$Internal$Grammar$ServerName$ipv6LeftParser);
+var $author$project$Internal$Grammar$ServerName$hostnameParser = $elm$parser$Parser$oneOf(
+	_List_fromArray(
+		[
+			A2(
+			$elm$parser$Parser$keeper,
+			A2(
+				$elm$parser$Parser$ignorer,
+				$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$IPv6),
+				$elm$parser$Parser$symbol('[')),
+			A2(
+				$elm$parser$Parser$ignorer,
+				$author$project$Internal$Grammar$ServerName$ipv6Parser,
+				$elm$parser$Parser$symbol(']'))),
+			A2(
+			$elm$parser$Parser$keeper,
+			$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$DNS),
+			$author$project$Internal$Grammar$ServerName$dnsNameParser)
+		]));
+var $elm$core$Basics$pow = _Basics_pow;
+var $author$project$Internal$Grammar$ServerName$portParser = A2(
+	$elm$parser$Parser$andThen,
+	function (v) {
+		var _v0 = $elm$core$String$toInt(v);
+		if (_v0.$ === 'Just') {
+			var i = _v0.a;
+			return ((0 <= i) && (_Utils_cmp(
+				i,
+				A2($elm$core$Basics$pow, 2, 16) - 1) < 1)) ? $elm$parser$Parser$succeed(i) : $elm$parser$Parser$problem('Port out of range: ' + v);
+		} else {
+			return $elm$parser$Parser$problem('Not a port number');
+		}
+	},
+	$elm$parser$Parser$getChompedString(
+		A2(
+			$elm$parser$Parser$ignorer,
+			$elm$parser$Parser$chompIf($elm$core$Char$isDigit),
+			$elm$parser$Parser$chompWhile($elm$core$Char$isDigit))));
+var $author$project$Internal$Grammar$ServerName$serverNameParser = A2(
+	$elm$parser$Parser$keeper,
+	A2(
+		$elm$parser$Parser$keeper,
+		$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$ServerName),
+		$author$project$Internal$Grammar$ServerName$hostnameParser),
+	$elm$parser$Parser$oneOf(
+		_List_fromArray(
+			[
+				A2(
+				$elm$parser$Parser$keeper,
+				A2(
+					$elm$parser$Parser$ignorer,
+					$elm$parser$Parser$succeed($elm$core$Maybe$Just),
+					$elm$parser$Parser$symbol(':')),
+				$author$project$Internal$Grammar$ServerName$portParser),
+				$elm$parser$Parser$succeed($elm$core$Maybe$Nothing)
+			])));
+var $author$project$Internal$Grammar$UserId$userIdParser = A2(
+	$author$project$Internal$Tools$ParserExtra$maxLength,
+	255,
+	A2(
+		$elm$parser$Parser$keeper,
+		A2(
+			$elm$parser$Parser$keeper,
+			A2(
+				$elm$parser$Parser$ignorer,
+				$elm$parser$Parser$succeed($author$project$Internal$Grammar$UserId$UserID),
+				$elm$parser$Parser$symbol('@')),
+			A2(
+				$elm$parser$Parser$ignorer,
+				$author$project$Internal$Grammar$UserId$localpartParser,
+				$elm$parser$Parser$symbol(':'))),
+		$author$project$Internal$Grammar$ServerName$serverNameParser));
+var $author$project$Internal$Grammar$UserId$fromString = A2(
+	$elm$core$Basics$composeR,
+	$elm$parser$Parser$run(
+		A2($elm$parser$Parser$ignorer, $author$project$Internal$Grammar$UserId$userIdParser, $elm$parser$Parser$end)),
+	$elm$core$Result$toMaybe);
+var $author$project$Internal$Values$User$fromString = $author$project$Internal$Grammar$UserId$fromString;
+var $author$project$Internal$Tools$Hashdict$Hashdict = function (a) {
+	return {$: 'Hashdict', a: a};
+};
+var $miniBill$elm_fast_dict$Internal$Dict = F2(
+	function (a, b) {
+		return {$: 'Dict', a: a, b: b};
+	});
+var $miniBill$elm_fast_dict$Internal$Leaf = {$: 'Leaf'};
+var $miniBill$elm_fast_dict$FastDict$empty = A2($miniBill$elm_fast_dict$Internal$Dict, 0, $miniBill$elm_fast_dict$Internal$Leaf);
+var $author$project$Internal$Tools$Hashdict$empty = function (hash) {
+	return $author$project$Internal$Tools$Hashdict$Hashdict(
+		{hash: hash, values: $miniBill$elm_fast_dict$FastDict$empty});
+};
+var $author$project$Internal$Values$Context$init = function (sn) {
+	return {
+		accessTokens: $author$project$Internal$Tools$Hashdict$empty(
+			function ($) {
+				return $.value;
+			}),
+		baseUrl: $elm$core$Maybe$Nothing,
+		deviceId: $elm$core$Maybe$Nothing,
+		now: $elm$core$Maybe$Nothing,
+		password: $elm$core$Maybe$Nothing,
+		refreshToken: $elm$core$Maybe$Nothing,
+		serverName: sn,
+		suggestedAccessToken: $elm$core$Maybe$Nothing,
+		transaction: $elm$core$Maybe$Nothing,
+		username: $elm$core$Maybe$Nothing,
+		versions: $elm$core$Maybe$Nothing
+	};
+};
+var $author$project$Internal$Config$Default$currentVersion = 'beta 3.2.0';
+var $author$project$Internal$Config$Default$deviceName = 'Elm SDK (' + ($author$project$Internal$Config$Default$currentVersion + ')');
+var $author$project$Internal$Config$Default$removePasswordOnLogin = true;
+var $author$project$Internal$Config$Default$syncTime = 30 * 1000;
+var $author$project$Internal$Values$Settings$init = {currentVersion: $author$project$Internal$Config$Default$currentVersion, deviceName: $author$project$Internal$Config$Default$deviceName, removePasswordOnLogin: $author$project$Internal$Config$Default$removePasswordOnLogin, syncTime: $author$project$Internal$Config$Default$syncTime};
+var $author$project$Internal$Values$Envelope$init = function (data) {
+	return {
+		content: data.content,
+		context: $author$project$Internal$Values$Context$init(data.serverName),
+		settings: $author$project$Internal$Values$Settings$init
+	};
+};
+var $author$project$Internal$Values$Vault$init = function (mUser) {
+	return {
+		accountData: $miniBill$elm_fast_dict$FastDict$empty,
+		rooms: $author$project$Internal$Tools$Hashdict$empty(
+			function ($) {
+				return $.roomId;
+			}),
+		user: mUser
+	};
+};
+var $author$project$Matrix$fromUserId = A2(
+	$elm$core$Basics$composeR,
+	$author$project$Internal$Values$User$fromString,
+	A2(
+		$elm$core$Basics$composeR,
+		$elm$core$Maybe$map(
+			function (u) {
+				return $author$project$Internal$Values$Envelope$init(
+					{
+						content: $author$project$Internal$Values$Vault$init(
+							$elm$core$Maybe$Just(u)),
+						serverName: 'https://' + $author$project$Internal$Values$User$domain(u)
+					});
+			}),
+		$elm$core$Maybe$map($author$project$Types$Vault)));
+var $author$project$Internal$Values$Envelope$mapContext = F2(
+	function (f, data) {
+		return _Utils_update(
+			data,
+			{
+				context: f(data.context)
+			});
+	});
+var $author$project$Matrix$Settings$setPassword = F2(
+	function (password, _v0) {
+		var vault = _v0.a;
+		return $author$project$Types$Vault(
+			A2(
+				$author$project$Internal$Values$Envelope$mapContext,
+				function (c) {
+					return _Utils_update(
+						c,
+						{
+							password: $elm$core$Maybe$Just(password)
+						});
+				},
+				vault));
+	});
+var $author$project$Main$init = function (_v0) {
+	return _Utils_Tuple2(
+		{
+			num: 0,
+			roomId: '!JINVwXzMRWBeidMDDa:matrix.directory',
+			text: '',
+			vault: A2(
+				$elm$core$Maybe$map,
+				$author$project$Matrix$Settings$setPassword('ZYTAscs65Xz66h'),
+				$author$project$Matrix$fromUserId('@elm_sdk_1:matrix.directory'))
+		},
+		$elm$core$Platform$Cmd$none);
+};
+var $elm$core$Platform$Sub$batch = _Platform_batch;
+var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
+var $author$project$Main$subscriptions = function (_v0) {
+	return $elm$core$Platform$Sub$none;
+};
+var $author$project$Main$SentEvent = function (a) {
+	return {$: 'SentEvent', a: a};
+};
+var $author$project$Types$VaultUpdate = function (a) {
+	return {$: 'VaultUpdate', a: a};
+};
+var $author$project$Internal$Values$Context$APIContext = function (a) {
+	return {$: 'APIContext', a: a};
+};
+var $author$project$Internal$Config$Leaks$accessToken = 'elm-sdk-placeholder-access-token-leaks';
+var $author$project$Internal$Config$Leaks$baseUrl = 'elm-sdk-placeholder-baseurl-leaks.example.org';
+var $elm$time$Time$Posix = function (a) {
+	return {$: 'Posix', a: a};
+};
+var $elm$time$Time$millisToPosix = $elm$time$Time$Posix;
+var $elm$time$Time$posixToMillis = function (_v0) {
+	var millis = _v0.a;
+	return millis;
+};
+var $author$project$Internal$Tools$Timestamp$add = function (m) {
+	return A2(
+		$elm$core$Basics$composeR,
+		$elm$time$Time$posixToMillis,
+		A2(
+			$elm$core$Basics$composeR,
+			$elm$core$Basics$add(m),
+			$elm$time$Time$millisToPosix));
+};
+var $elm$core$List$head = function (list) {
+	if (list.b) {
+		var x = list.a;
+		var xs = list.b;
+		return $elm$core$Maybe$Just(x);
+	} else {
+		return $elm$core$Maybe$Nothing;
+	}
+};
+var $elm$core$List$sortBy = _List_sortBy;
+var $author$project$Internal$Tools$Timestamp$toMs = $elm$time$Time$posixToMillis;
+var $miniBill$elm_fast_dict$FastDict$foldrInner = F3(
+	function (func, acc, t) {
+		foldrInner:
+		while (true) {
+			if (t.$ === 'Leaf') {
+				return acc;
+			} else {
+				var key = t.b;
+				var value = t.c;
+				var left = t.d;
+				var right = t.e;
+				var $temp$func = func,
+					$temp$acc = A3(
+					func,
+					key,
+					value,
+					A3($miniBill$elm_fast_dict$FastDict$foldrInner, func, acc, right)),
+					$temp$t = left;
+				func = $temp$func;
+				acc = $temp$acc;
+				t = $temp$t;
+				continue foldrInner;
+			}
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$foldr = F3(
+	function (func, acc, _v0) {
+		var dict = _v0.b;
+		return A3($miniBill$elm_fast_dict$FastDict$foldrInner, func, acc, dict);
+	});
+var $miniBill$elm_fast_dict$FastDict$values = function (dict) {
+	return A3(
+		$miniBill$elm_fast_dict$FastDict$foldr,
+		F3(
+			function (_v0, value, valueList) {
+				return A2($elm$core$List$cons, value, valueList);
+			}),
+		_List_Nil,
+		dict);
+};
+var $author$project$Internal$Tools$Hashdict$values = function (_v0) {
+	var h = _v0.a;
+	return $miniBill$elm_fast_dict$FastDict$values(h.values);
+};
+var $author$project$Internal$Values$Context$mostPopularToken = function (c) {
+	var _v0 = c.suggestedAccessToken;
+	if (_v0.$ === 'Just') {
+		return c.suggestedAccessToken;
+	} else {
+		return A2(
+			$elm$core$Maybe$map,
+			function ($) {
+				return $.value;
+			},
+			$elm$core$List$head(
+				A2(
+					$elm$core$List$sortBy,
+					function (token) {
+						var _v1 = token.expiryMs;
+						if (_v1.$ === 'Nothing') {
+							return _Utils_Tuple2(
+								0,
+								$author$project$Internal$Tools$Timestamp$toMs(token.created));
+						} else {
+							var e = _v1.a;
+							return _Utils_Tuple2(
+								1,
+								$author$project$Internal$Tools$Timestamp$toMs(
+									A2($author$project$Internal$Tools$Timestamp$add, e, token.created)));
+						}
+					},
+					$author$project$Internal$Tools$Hashdict$values(c.accessTokens))));
+	}
+};
+var $author$project$Internal$Config$Leaks$transaction = 'elm-sdk-placeholder-transaction-leaks';
+var $elm$core$Set$Set_elm_builtin = function (a) {
+	return {$: 'Set_elm_builtin', a: a};
+};
+var $elm$core$Dict$singleton = F2(
+	function (key, value) {
+		return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, key, value, $elm$core$Dict$RBEmpty_elm_builtin, $elm$core$Dict$RBEmpty_elm_builtin);
+	});
+var $elm$core$Set$singleton = function (key) {
+	return $elm$core$Set$Set_elm_builtin(
+		A2($elm$core$Dict$singleton, key, _Utils_Tuple0));
+};
+var $author$project$Internal$Config$Leaks$versions = {
+	unstableFeatures: $elm$core$Set$singleton('elm-sdk-placeholder-versions-unstableFeatures-leaks'),
+	versions: _List_fromArray(
+		['elm-sdk-placeholder-versions-versions-leaks'])
+};
+var $author$project$Internal$Values$Context$apiFormat = function (context) {
+	return $author$project$Internal$Values$Context$APIContext(
+		{
+			accessToken: A2(
+				$elm$core$Maybe$withDefault,
+				$author$project$Internal$Config$Leaks$accessToken,
+				$author$project$Internal$Values$Context$mostPopularToken(context)),
+			baseUrl: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$baseUrl, context.baseUrl),
+			context: context,
+			now: A2(
+				$elm$core$Maybe$withDefault,
+				$elm$time$Time$millisToPosix(0),
+				context.now),
+			transaction: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$transaction, context.transaction),
+			versions: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$versions, context.versions)
+		});
+};
+var $elm$core$Task$onError = _Scheduler_onError;
+var $author$project$Internal$Api$Chain$toTask = F2(
+	function (chain, context) {
+		return A2(
+			$elm$core$Task$map,
+			function (backpack) {
+				return {logs: backpack.logs, messages: backpack.messages};
+			},
+			A2(
+				$elm$core$Task$onError,
+				function (e) {
+					return $elm$core$Task$succeed(
+						$elm$core$Basics$never(e.error));
+				},
+				chain(context)));
+	});
+var $author$project$Internal$Api$Task$run = F3(
+	function (toMsg, task, context) {
+		return A2(
+			$elm$core$Task$perform,
+			toMsg,
+			A2($author$project$Internal$Api$Chain$toTask, task, context));
+	});
+var $elm$core$Task$fail = _Scheduler_fail;
+var $elm$core$Task$mapError = F2(
+	function (convert, task) {
+		return A2(
+			$elm$core$Task$onError,
+			A2($elm$core$Basics$composeL, $elm$core$Task$fail, convert),
+			task);
+	});
+var $author$project$Internal$Api$Chain$andThen = F2(
+	function (f2, f1) {
+		return function (context) {
+			return A2(
+				$elm$core$Task$andThen,
+				function (old) {
+					return A2(
+						$elm$core$Task$mapError,
+						function (_new) {
+							return {
+								error: _new.error,
+								logs: A2($elm$core$List$append, old.logs, _new.logs),
+								messages: A2($elm$core$List$append, old.messages, _new.messages)
+							};
+						},
+						A2(
+							$elm$core$Task$map,
+							function (_new) {
+								return {
+									contextChange: A2($elm$core$Basics$composeR, old.contextChange, _new.contextChange),
+									logs: A2($elm$core$List$append, old.logs, _new.logs),
+									messages: A2($elm$core$List$append, old.messages, _new.messages)
+								};
+							},
+							f2(
+								old.contextChange(context))));
+				},
+				f1(context));
+		};
+	});
+var $author$project$Internal$Api$Chain$succeed = F2(
+	function (piece, _v0) {
+		return $elm$core$Task$succeed(piece);
+	});
+var $author$project$Internal$Api$Chain$onError = F2(
+	function (onErr, f) {
+		return function (context) {
+			return A2(
+				$elm$core$Task$onError,
+				function (old) {
+					return A3(
+						$elm$core$Basics$apR,
+						$author$project$Internal$Api$Chain$succeed(
+							{contextChange: $elm$core$Basics$identity, logs: old.logs, messages: old.messages}),
+						$author$project$Internal$Api$Chain$andThen(
+							onErr(old.error)),
+						context);
+				},
+				f(context));
+		};
+	});
+var $author$project$Internal$Api$Chain$catchWith = F2(
+	function (onErr, f) {
+		return A2(
+			$author$project$Internal$Api$Chain$onError,
+			function (e) {
+				return $author$project$Internal$Api$Chain$succeed(
+					onErr(e));
+			},
+			f);
+	});
+var $author$project$Internal$Config$Log$Log = F2(
+	function (channel, content) {
+		return {channel: channel, content: content};
+	});
+var $author$project$Internal$Config$Log$caughtError = 'caught-error';
+var $author$project$Internal$Config$Log$debug = 'debug';
+var $author$project$Internal$Config$Log$error = 'error';
+var $author$project$Internal$Config$Log$info = 'info';
+var $author$project$Internal$Config$Log$securityWarn = 'security-warn';
+var $author$project$Internal$Config$Log$warn = 'warn';
+var $author$project$Internal$Config$Log$log = {
+	caughtError: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$caughtError),
+	debug: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$debug),
+	error: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$error),
+	info: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$info),
+	securityWarn: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$securityWarn),
+	warn: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$warn)
+};
+var $author$project$Internal$Values$Context$reset = function (_v0) {
+	var c = _v0.a;
+	return $author$project$Internal$Values$Context$APIContext(c);
+};
+var $author$project$Internal$Api$Task$finishTask = function (uftask) {
+	return A2(
+		$author$project$Internal$Api$Chain$catchWith,
+		function (e) {
+			switch (e.$) {
+				case 'MissingPassword':
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.error('Cannot log in - password is missing')
+							]),
+						messages: _List_Nil
+					};
+				case 'MissingUsername':
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.error('Cannot log in - username is missing')
+							]),
+						messages: _List_Nil
+					};
+				case 'NoSupportedVersion':
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.error('No supported version is available to complete the API interaction.')
+							]),
+						messages: _List_Nil
+					};
+				case 'ServerReturnsBadJSON':
+					var t = e.a;
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.error('The server returned invalid JSON: ' + t)
+							]),
+						messages: _List_Nil
+					};
+				case 'ServerReturnsError':
+					var name = e.a;
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.error('The server returns an error: ' + name)
+							]),
+						messages: _List_Nil
+					};
+				default:
+					return {
+						contextChange: $author$project$Internal$Values$Context$reset,
+						logs: _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.warn('Encountered unhandled error')
+							]),
+						messages: _List_Nil
+					};
+			}
+		},
+		A2(
+			$author$project$Internal$Api$Chain$andThen,
+			$author$project$Internal$Api$Chain$succeed(
+				{contextChange: $author$project$Internal$Values$Context$reset, logs: _List_Nil, messages: _List_Nil}),
+			uftask));
+};
+var $author$project$Internal$Api$Request$MissingPassword = {$: 'MissingPassword'};
+var $author$project$Internal$Api$Request$MissingUsername = {$: 'MissingUsername'};
+var $author$project$Internal$Api$Chain$fail = F2(
+	function (e, _v0) {
+		return $elm$core$Task$fail(
+			{error: e, logs: _List_Nil, messages: _List_Nil});
+	});
+var $author$project$Internal$Values$Context$fromApiFormat = function (_v0) {
+	var c = _v0.a;
+	return c.context;
+};
+var $author$project$Internal$Api$Api$SpecVersion = function (a) {
+	return {$: 'SpecVersion', a: a};
+};
+var $author$project$Internal$Api$Api$VC = function (a) {
+	return {$: 'VC', a: a};
+};
+var $author$project$Internal$Api$Api$forVersion = F3(
+	function (name, chain, prev) {
+		return $author$project$Internal$Api$Api$VC(
+			{
+				chain: chain,
+				name: $author$project$Internal$Api$Api$SpecVersion(name),
+				prev: $elm$core$Maybe$Just(prev)
+			});
+	});
+var $author$project$Internal$Values$Envelope$ContentUpdate = function (a) {
+	return {$: 'ContentUpdate', a: a};
+};
+var $author$project$Internal$Values$Envelope$More = function (a) {
+	return {$: 'More', a: a};
+};
+var $author$project$Internal$Values$Envelope$Optional = function (a) {
+	return {$: 'Optional', a: a};
+};
+var $author$project$Internal$Values$Envelope$RemovePasswordIfNecessary = {$: 'RemovePasswordIfNecessary'};
+var $author$project$Internal$Values$Envelope$SetAccessToken = function (a) {
+	return {$: 'SetAccessToken', a: a};
+};
+var $author$project$Internal$Values$Vault$SetUser = function (a) {
+	return {$: 'SetUser', a: a};
+};
+var $author$project$Internal$Api$Request$BodyParam = F2(
+	function (a, b) {
+		return {$: 'BodyParam', a: a, b: b};
+	});
+var $author$project$Internal$Api$Request$bodyValue = F3(
+	function (key, value, _v0) {
+		return A2($author$project$Internal$Api$Request$BodyParam, key, value);
+	});
+var $author$project$Internal$Tools$Json$encode = function (_v0) {
+	var data = _v0.a;
+	return data.encoder;
+};
+var $author$project$Internal$Tools$Json$Coder = function (a) {
+	return {$: 'Coder', a: a};
+};
+var $author$project$Internal$Tools$Json$DocsString = {$: 'DocsString'};
+var $author$project$Internal$Tools$Json$empty = function (x) {
+	return _Utils_Tuple2(x, _List_Nil);
+};
+var $author$project$Internal$Tools$Json$string = $author$project$Internal$Tools$Json$Coder(
+	{
+		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$string),
+		docs: $author$project$Internal$Tools$Json$DocsString,
+		encoder: $elm$json$Json$Encode$string
+	});
+var $author$project$Internal$Api$Request$bodyString = F2(
+	function (key, value) {
+		return A2(
+			$author$project$Internal$Api$Request$bodyValue,
+			key,
+			A2($author$project$Internal$Tools$Json$encode, $author$project$Internal$Tools$Json$string, value));
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV1 = F4(
+	function (accessToken, homeserver, refreshToken, user) {
+		return {accessToken: accessToken, homeserver: homeserver, refreshToken: refreshToken, user: user};
+	});
+var $elm$core$String$any = _String_any;
+var $author$project$Internal$Grammar$UserId$isHistorical = function (_v0) {
+	var localpart = _v0.localpart;
+	return A2(
+		$elm$core$String$any,
+		function (c) {
+			var i = $elm$core$Char$toCode(c);
+			return !(((97 <= i) && (i <= 122)) || $elm$core$Char$isAlpha(c));
+		},
+		localpart);
+};
+var $author$project$Internal$Tools$Json$DocsParser = function (a) {
+	return {$: 'DocsParser', a: a};
+};
+var $elm$json$Json$Decode$andThen = _Json_andThen;
+var $elm$json$Json$Decode$fail = _Json_fail;
+var $author$project$Internal$Tools$Json$parser = function (_v0) {
+	var toString = _v0.toString;
+	var p = _v0.p;
+	var name = _v0.name;
+	return $author$project$Internal$Tools$Json$Coder(
+		{
+			decoder: A2(
+				$elm$json$Json$Decode$andThen,
+				function (v) {
+					var _v1 = A2($elm$parser$Parser$run, p, v);
+					if (_v1.$ === 'Err') {
+						return $elm$json$Json$Decode$fail('Failed to parse ' + (name + '!'));
+					} else {
+						var o = _v1.a;
+						return $elm$json$Json$Decode$succeed(o);
+					}
+				},
+				$elm$json$Json$Decode$string),
+			docs: $author$project$Internal$Tools$Json$DocsParser(name),
+			encoder: A2($elm$core$Basics$composeR, toString, $elm$json$Json$Encode$string)
+		});
+};
+var $author$project$Internal$Grammar$UserId$toString = function (_v0) {
+	var domain = _v0.domain;
+	var localpart = _v0.localpart;
+	return $elm$core$String$concat(
+		_List_fromArray(
+			[
+				'@',
+				localpart,
+				':',
+				$author$project$Internal$Grammar$ServerName$toString(domain)
+			]));
+};
+var $author$project$Internal$Values$User$coder = $author$project$Internal$Tools$Json$parser(
+	{
+		name: 'Username',
+		p: A2(
+			$elm$parser$Parser$andThen,
+			function (name) {
+				return $elm$parser$Parser$succeed(
+					_Utils_Tuple2(
+						name,
+						$author$project$Internal$Grammar$UserId$isHistorical(name) ? _List_fromArray(
+							[
+								$author$project$Internal$Config$Log$log.warn('Historical user found')
+							]) : _List_Nil));
+			},
+			$author$project$Internal$Grammar$UserId$userIdParser),
+		toString: $author$project$Internal$Grammar$UserId$toString
+	});
+var $author$project$Internal$Tools$Json$Field = function (a) {
+	return {$: 'Field', a: a};
+};
+var $author$project$Internal$Tools$Json$OptionalField = {$: 'OptionalField'};
+var $author$project$Internal$Tools$Json$OptionalFieldWithDefault = function (a) {
+	return {$: 'OptionalFieldWithDefault', a: a};
+};
+var $author$project$Internal$Tools$Json$RequiredField = {$: 'RequiredField'};
+var $elm$json$Json$Decode$oneOf = _Json_oneOf;
+var $elm$json$Json$Decode$maybe = function (decoder) {
+	return $elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				A2($elm$json$Json$Decode$map, $elm$core$Maybe$Just, decoder),
+				$elm$json$Json$Decode$succeed($elm$core$Maybe$Nothing)
+			]));
+};
+var $elm$json$Json$Decode$null = _Json_decodeNull;
+var $author$project$Internal$Tools$DecodeExtra$opField = F2(
+	function (fieldName, decoder) {
+		return A2(
+			$elm$json$Json$Decode$andThen,
+			function (v) {
+				if (v.$ === 'Just') {
+					return A2(
+						$elm$json$Json$Decode$field,
+						fieldName,
+						$elm$json$Json$Decode$oneOf(
+							_List_fromArray(
+								[
+									$elm$json$Json$Decode$null($elm$core$Maybe$Nothing),
+									A2($elm$json$Json$Decode$map, $elm$core$Maybe$Just, decoder)
+								])));
+				} else {
+					return $elm$json$Json$Decode$succeed($elm$core$Maybe$Nothing);
+				}
+			},
+			$elm$json$Json$Decode$maybe(
+				A2($elm$json$Json$Decode$field, fieldName, $elm$json$Json$Decode$value)));
+	});
+var $author$project$Internal$Tools$DecodeExtra$opFieldWithDefault = F3(
+	function (fieldName, _default, decoder) {
+		return A2(
+			$elm$json$Json$Decode$map,
+			$elm$core$Maybe$withDefault(_default),
+			A2($author$project$Internal$Tools$DecodeExtra$opField, fieldName, decoder));
+	});
+var $author$project$Internal$Tools$Json$field = {
+	optional: {
+		value: function (_v0) {
+			var coder = _v0.coder;
+			var description = _v0.description;
+			var toField = _v0.toField;
+			var fieldName = _v0.fieldName;
+			var docs = coder.a.docs;
+			var decoder = coder.a.decoder;
+			var encoder = coder.a.encoder;
+			return $author$project$Internal$Tools$Json$Field(
+				{
+					decoder: A2(
+						$elm$json$Json$Decode$map,
+						function (out) {
+							if (out.$ === 'Just') {
+								var _v3 = out.a;
+								var v = _v3.a;
+								var l = _v3.b;
+								return _Utils_Tuple2(
+									$elm$core$Maybe$Just(v),
+									l);
+							} else {
+								return _Utils_Tuple2($elm$core$Maybe$Nothing, _List_Nil);
+							}
+						},
+						A2($author$project$Internal$Tools$DecodeExtra$opField, fieldName, decoder)),
+					description: description,
+					docs: docs,
+					encoder: $elm$core$Maybe$map(encoder),
+					fieldName: fieldName,
+					requiredness: $author$project$Internal$Tools$Json$OptionalField,
+					toField: toField
+				});
+		},
+		withDefault: function (_v4) {
+			var defaultToString = _v4.defaultToString;
+			var _default = _v4._default;
+			var coder = _v4.coder;
+			var description = _v4.description;
+			var toField = _v4.toField;
+			var fieldName = _v4.fieldName;
+			var docs = coder.a.docs;
+			var decoder = coder.a.decoder;
+			var encoder = coder.a.encoder;
+			return $author$project$Internal$Tools$Json$Field(
+				{
+					decoder: A3($author$project$Internal$Tools$DecodeExtra$opFieldWithDefault, fieldName, _default, decoder),
+					description: description,
+					docs: docs,
+					encoder: function (o) {
+						var v = encoder(o);
+						return _Utils_eq(
+							A2($elm$json$Json$Encode$encode, 0, v),
+							A2(
+								$elm$json$Json$Encode$encode,
+								0,
+								encoder(_default.a))) ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(v);
+					},
+					fieldName: fieldName,
+					requiredness: $author$project$Internal$Tools$Json$OptionalFieldWithDefault(
+						defaultToString(_default.a)),
+					toField: toField
+				});
+		}
+	},
+	required: function (_v6) {
+		var coder = _v6.coder;
+		var description = _v6.description;
+		var toField = _v6.toField;
+		var fieldName = _v6.fieldName;
+		var docs = coder.a.docs;
+		var decoder = coder.a.decoder;
+		var encoder = coder.a.encoder;
+		return $author$project$Internal$Tools$Json$Field(
+			{
+				decoder: A2($elm$json$Json$Decode$field, fieldName, decoder),
+				description: description,
+				docs: docs,
+				encoder: A2($elm$core$Basics$composeR, encoder, $elm$core$Maybe$Just),
+				fieldName: fieldName,
+				requiredness: $author$project$Internal$Tools$Json$RequiredField,
+				toField: toField
+			});
+	}
+};
+var $author$project$Internal$Tools$Json$DocsObject = function (a) {
+	return {$: 'DocsObject', a: a};
+};
+var $elm$json$Json$Decode$map4 = _Json_map4;
+var $elm$core$Tuple$mapSecond = F2(
+	function (func, _v0) {
+		var x = _v0.a;
+		var y = _v0.b;
+		return _Utils_Tuple2(
+			x,
+			func(y));
+	});
+var $author$project$Internal$Tools$EncodeExtra$maybeObject = A2(
+	$elm$core$Basics$composeR,
+	$elm$core$List$filterMap(
+		function (_v0) {
+			var name = _v0.a;
+			var value = _v0.b;
+			if (value.$ === 'Just') {
+				var v = value.a;
+				return $elm$core$Maybe$Just(
+					_Utils_Tuple2(name, v));
+			} else {
+				return $elm$core$Maybe$Nothing;
+			}
+		}),
+	$elm$json$Json$Encode$object);
+var $author$project$Internal$Tools$Json$objectEncoder = F2(
+	function (items, object) {
+		return $author$project$Internal$Tools$EncodeExtra$maybeObject(
+			A2(
+				$elm$core$List$map,
+				$elm$core$Tuple$mapSecond(
+					function (f) {
+						return f(object);
+					}),
+				items));
+	});
+var $author$project$Internal$Tools$Json$toDecoderField = function (_v0) {
+	var data = _v0.a;
+	return data.decoder;
+};
+var $author$project$Internal$Tools$Json$toDocsField = function (x) {
+	var requiredness = x.a.requiredness;
+	var docs = x.a.docs;
+	var description = x.a.description;
+	var fieldName = x.a.fieldName;
+	return {content: docs, description: description, field: fieldName, required: requiredness};
+};
+var $author$project$Internal$Tools$Json$toEncodeField = function (_v0) {
+	var data = _v0.a;
+	return _Utils_Tuple2(
+		data.fieldName,
+		A2($elm$core$Basics$composeR, data.toField, data.encoder));
+};
+var $author$project$Internal$Tools$Json$object4 = F5(
+	function (_v0, fa, fb, fc, fd) {
+		var init = _v0.init;
+		var description = _v0.description;
+		var name = _v0.name;
+		return $author$project$Internal$Tools$Json$Coder(
+			{
+				decoder: A5(
+					$elm$json$Json$Decode$map4,
+					F4(
+						function (_v1, _v2, _v3, _v4) {
+							var a = _v1.a;
+							var la = _v1.b;
+							var b = _v2.a;
+							var lb = _v2.b;
+							var c = _v3.a;
+							var lc = _v3.b;
+							var d = _v4.a;
+							var ld = _v4.b;
+							return _Utils_Tuple2(
+								A4(init, a, b, c, d),
+								$elm$core$List$concat(
+									_List_fromArray(
+										[la, lb, lc, ld])));
+						}),
+					$author$project$Internal$Tools$Json$toDecoderField(fa),
+					$author$project$Internal$Tools$Json$toDecoderField(fb),
+					$author$project$Internal$Tools$Json$toDecoderField(fc),
+					$author$project$Internal$Tools$Json$toDecoderField(fd)),
+				docs: $author$project$Internal$Tools$Json$DocsObject(
+					{
+						description: description,
+						keys: _List_fromArray(
+							[
+								$author$project$Internal$Tools$Json$toDocsField(fa),
+								$author$project$Internal$Tools$Json$toDocsField(fb),
+								$author$project$Internal$Tools$Json$toDocsField(fc),
+								$author$project$Internal$Tools$Json$toDocsField(fd)
+							]),
+						name: name
+					}),
+				encoder: $author$project$Internal$Tools$Json$objectEncoder(
+					_List_fromArray(
+						[
+							$author$project$Internal$Tools$Json$toEncodeField(fa),
+							$author$project$Internal$Tools$Json$toEncodeField(fb),
+							$author$project$Internal$Tools$Json$toEncodeField(fc),
+							$author$project$Internal$Tools$Json$toEncodeField(fd)
+						]))
+			});
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV1 = A5(
+	$author$project$Internal$Tools$Json$object4,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/r0.0.0/client_server.html#post-matrix-client-r0-login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV1,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests. The access token may expire at some point, and if so, it SHOULD come with a refresh_token. There is no specific error message to indicate that a request has failed because an access token has expired; instead, if a client has reason to believe its access token is valid, and it receives an auth error, they should attempt to refresh for a new token on failure, and retry the request with the new token.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['A refresh_token may be exchanged for a new access_token using the /tokenrefresh API endpoint.']),
+			fieldName: 'refresh_token',
+			toField: function ($) {
+				return $.refreshToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}));
+var $author$project$Internal$Values$Context$getNow = function (_v0) {
+	var c = _v0.a;
+	return c.now;
+};
+var $author$project$Internal$Config$Text$logs = {
+	baseUrlFound: F2(
+		function (url, baseUrl) {
+			return $elm$core$String$concat(
+				_List_fromArray(
+					['Found baseURL of ', url, ' at address ', baseUrl]));
+		}),
+	getEventId: $elm$core$Basics$append('Received event with id = '),
+	getNow: function (now) {
+		return $elm$core$String$concat(
+			_List_fromArray(
+				[
+					'Identified current time at Unix time ',
+					$elm$core$String$fromInt(now)
+				]));
+	},
+	httpRequest: F2(
+		function (method, url) {
+			return $elm$core$String$concat(
+				_List_fromArray(
+					['Matrix HTTP: ', method, ' ', url]));
+		}),
+	invitedUser: F2(
+		function (userId, roomId) {
+			return $elm$core$String$concat(
+				_List_fromArray(
+					['Invited user ', userId, ' to room ', roomId]));
+		}),
+	keyIsNotAnInt: function (key) {
+		return $elm$core$String$concat(
+			_List_fromArray(
+				['Encountered a key `', key, '` that cannot be converted to an Int']));
+	},
+	loggedInAs: function (username) {
+		return $elm$core$String$concat(
+			_List_fromArray(
+				['Successfully logged in as user ', username]));
+	},
+	sendEvent: function (eventId) {
+		if (eventId.$ === 'Just') {
+			var e = eventId.a;
+			return 'Sent event, received event id ' + e;
+		} else {
+			return 'Sent event, event id not known - make sure to check transaction id';
+		}
+	},
+	serverReturnedInvalidJSON: $elm$core$Basics$append('The server returned invalid JSON: '),
+	serverReturnedUnknownJSON: $elm$core$Basics$append('The server returned JSON that doesn\'t seem to live up to spec rules: ')
+};
+var $author$project$Internal$Api$Request$ServerReturnsError = F2(
+	function (a, b) {
+		return {$: 'ServerReturnsError', a: a, b: b};
+	});
+var $author$project$Internal$Api$Request$StatusCodeResponse = F2(
+	function (a, b) {
+		return {$: 'StatusCodeResponse', a: a, b: b};
+	});
+var $elm$core$Tuple$pair = F2(
+	function (a, b) {
+		return _Utils_Tuple2(a, b);
+	});
+var $elm$core$List$singleton = function (value) {
+	return _List_fromArray(
+		[value]);
+};
+var $author$project$Internal$Api$Request$onStatusCode = F3(
+	function (code, err, _v0) {
+		return A2(
+			$author$project$Internal$Api$Request$StatusCodeResponse,
+			code,
+			_Utils_Tuple2(
+				A2(
+					$author$project$Internal$Api$Request$ServerReturnsError,
+					err,
+					$elm$json$Json$Encode$object(
+						$elm$core$List$singleton(
+							A2(
+								$elm$core$Tuple$pair,
+								'errcode',
+								$elm$json$Json$Encode$string(err))))),
+				$elm$core$List$singleton(
+					$author$project$Internal$Config$Log$log.warn(
+						$elm$core$String$concat(
+							_List_fromArray(
+								[
+									'Received an invalid HTTP response from Matrix server ',
+									'but managed to decode it using the status code ',
+									$elm$core$String$fromInt(code),
+									': Default to errcode ',
+									err
+								]))))));
+	});
+var $author$project$Internal$Values$Envelope$HttpRequest = function (a) {
+	return {$: 'HttpRequest', a: a};
+};
+var $author$project$Internal$Values$Context$getBaseUrl = function (_v0) {
+	var c = _v0.a;
+	return c.baseUrl;
+};
+var $author$project$Internal$Api$Request$callAPI = F2(
+	function (_v0, context) {
+		var path = _v0.path;
+		var method = _v0.method;
+		return {
+			attributes: _List_Nil,
+			baseUrl: $author$project$Internal$Values$Context$getBaseUrl(context),
+			context: context,
+			method: method,
+			path: path
+		};
+	});
+var $author$project$Internal$Tools$Json$decode = function (_v0) {
+	var data = _v0.a;
+	return data.decoder;
+};
+var $elm$http$Http$BadStatus_ = F2(
+	function (a, b) {
+		return {$: 'BadStatus_', a: a, b: b};
+	});
+var $elm$http$Http$BadUrl_ = function (a) {
+	return {$: 'BadUrl_', a: a};
+};
+var $elm$http$Http$GoodStatus_ = F2(
+	function (a, b) {
+		return {$: 'GoodStatus_', a: a, b: b};
+	});
+var $elm$http$Http$NetworkError_ = {$: 'NetworkError_'};
+var $elm$http$Http$Receiving = function (a) {
+	return {$: 'Receiving', a: a};
+};
+var $elm$http$Http$Sending = function (a) {
+	return {$: 'Sending', a: a};
+};
+var $elm$http$Http$Timeout_ = {$: 'Timeout_'};
+var $elm$core$Maybe$isJust = function (maybe) {
+	if (maybe.$ === 'Just') {
+		return true;
+	} else {
+		return false;
+	}
+};
+var $elm$core$Platform$sendToSelf = _Platform_sendToSelf;
+var $elm$http$Http$emptyBody = _Http_emptyBody;
+var $author$project$Internal$Api$Request$getBody = function (attributes) {
+	return function (fb) {
+		if (fb.$ === 'Just') {
+			return fb;
+		} else {
+			var _v2 = A2(
+				$elm$core$List$filterMap,
+				function (attr) {
+					if (attr.$ === 'BodyParam') {
+						var key = attr.a;
+						var value = attr.b;
+						return $elm$core$Maybe$Just(
+							_Utils_Tuple2(key, value));
+					} else {
+						return $elm$core$Maybe$Nothing;
+					}
+				},
+				attributes);
+			if (!_v2.b) {
+				return $elm$core$Maybe$Nothing;
+			} else {
+				var head = _v2.a;
+				var tail = _v2.b;
+				return $elm$core$Maybe$Just(
+					$elm$json$Json$Encode$object(
+						A2($elm$core$List$cons, head, tail)));
+			}
+		}
+	}(
+		$elm$core$List$head(
+			$elm$core$List$reverse(
+				A2(
+					$elm$core$List$filterMap,
+					function (attr) {
+						if (attr.$ === 'FullBody') {
+							var v = attr.a;
+							return $elm$core$Maybe$Just(v);
+						} else {
+							return $elm$core$Maybe$Nothing;
+						}
+					},
+					attributes))));
+};
+var $author$project$Internal$Api$Request$getHeaders = $elm$core$List$filterMap(
+	function (attr) {
+		if (attr.$ === 'Header') {
+			var h = attr.a;
+			return $elm$core$Maybe$Just(h);
+		} else {
+			return $elm$core$Maybe$Nothing;
+		}
+	});
+var $author$project$Internal$Api$Request$getStatusCodes = A2(
+	$elm$core$Basics$composeR,
+	$elm$core$List$filterMap(
+		function (attr) {
+			if (attr.$ === 'StatusCodeResponse') {
+				var code = attr.a;
+				var err = attr.b;
+				return $elm$core$Maybe$Just(
+					_Utils_Tuple2(code, err));
+			} else {
+				return $elm$core$Maybe$Nothing;
+			}
+		}),
+	$elm$core$Dict$fromList);
+var $author$project$Internal$Api$Request$getTimeout = A2(
+	$elm$core$Basics$composeR,
+	$elm$core$List$filterMap(
+		function (attr) {
+			if (attr.$ === 'Timeout') {
+				var f = attr.a;
+				return $elm$core$Maybe$Just(f);
+			} else {
+				return $elm$core$Maybe$Nothing;
+			}
+		}),
+	A2($elm$core$Basics$composeR, $elm$core$List$reverse, $elm$core$List$head));
+var $elm$url$Url$Builder$toQueryPair = function (_v0) {
+	var key = _v0.a;
+	var value = _v0.b;
+	return key + ('=' + value);
+};
+var $elm$url$Url$Builder$toQuery = function (parameters) {
+	if (!parameters.b) {
+		return '';
+	} else {
+		return '?' + A2(
+			$elm$core$String$join,
+			'&',
+			A2($elm$core$List$map, $elm$url$Url$Builder$toQueryPair, parameters));
+	}
+};
+var $elm$url$Url$Builder$crossOrigin = F3(
+	function (prePath, pathSegments, parameters) {
+		return prePath + ('/' + (A2($elm$core$String$join, '/', pathSegments) + $elm$url$Url$Builder$toQuery(parameters)));
+	});
+var $author$project$Internal$Api$Request$getQueryParams = $elm$core$List$filterMap(
+	function (attr) {
+		if (attr.$ === 'QueryParam') {
+			var q = attr.a;
+			return $elm$core$Maybe$Just(q);
+		} else {
+			return $elm$core$Maybe$Nothing;
+		}
+	});
+var $elm$url$Url$percentEncode = _Url_percentEncode;
+var $author$project$Internal$Api$Request$getUrl = function (_v0) {
+	var path = _v0.path;
+	var baseUrl = _v0.baseUrl;
+	var attributes = _v0.attributes;
+	return A3(
+		$elm$url$Url$Builder$crossOrigin,
+		baseUrl,
+		A2($elm$core$List$map, $elm$url$Url$percentEncode, path),
+		$author$project$Internal$Api$Request$getQueryParams(attributes));
+};
+var $elm$http$Http$jsonBody = function (value) {
+	return A2(
+		_Http_pair,
+		'application/json',
+		A2($elm$json$Json$Encode$encode, 0, value));
+};
+var $elm$http$Http$BadUrl = function (a) {
+	return {$: 'BadUrl', a: a};
+};
+var $author$project$Internal$Api$Request$InternetException = function (a) {
+	return {$: 'InternetException', a: a};
+};
+var $elm$http$Http$NetworkError = {$: 'NetworkError'};
+var $elm$http$Http$Timeout = {$: 'Timeout'};
+var $author$project$Internal$Api$Request$ServerReturnsBadJSON = function (a) {
+	return {$: 'ServerReturnsBadJSON', a: a};
+};
+var $elm$core$Result$mapError = F2(
+	function (f, result) {
+		if (result.$ === 'Ok') {
+			var v = result.a;
+			return $elm$core$Result$Ok(v);
+		} else {
+			var e = result.a;
+			return $elm$core$Result$Err(
+				f(e));
+		}
+	});
+var $author$project$Internal$Api$Request$decodeServerValue = F3(
+	function (decoder, value, statusCodeError) {
+		return A2(
+			$elm$core$Result$mapError,
+			function (err) {
+				var error = $elm$core$Maybe$Nothing;
+				var description = $elm$json$Json$Decode$errorToString(err);
+				var _v0 = _Utils_Tuple2(error, statusCodeError);
+				if (_v0.a.$ === 'Just') {
+					var e = _v0.a.a;
+					return e;
+				} else {
+					if (_v0.b.$ === 'Just') {
+						var _v1 = _v0.a;
+						var e = _v0.b.a;
+						return e;
+					} else {
+						var _v2 = _v0.a;
+						var _v3 = _v0.b;
+						return _Utils_Tuple2(
+							$author$project$Internal$Api$Request$ServerReturnsBadJSON(description),
+							$elm$core$List$singleton(
+								$author$project$Internal$Config$Log$log.error(
+									$author$project$Internal$Config$Text$logs.serverReturnedUnknownJSON(description))));
+					}
+				}
+			},
+			A2($elm$json$Json$Decode$decodeValue, decoder, value));
+	});
+var $author$project$Internal$Api$Request$decodeServerResponse = F3(
+	function (decoder, body, statusCodeError) {
+		var _v0 = A2($elm$json$Json$Decode$decodeString, $elm$json$Json$Decode$value, body);
+		if (_v0.$ === 'Err') {
+			var e = _v0.a;
+			var description = $elm$json$Json$Decode$errorToString(e);
+			return $elm$core$Result$Err(
+				_Utils_Tuple2(
+					$author$project$Internal$Api$Request$ServerReturnsBadJSON(description),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.error(
+							$author$project$Internal$Config$Text$logs.serverReturnedInvalidJSON(description)))));
+		} else {
+			var v = _v0.a;
+			return A3($author$project$Internal$Api$Request$decodeServerValue, decoder, v, statusCodeError);
+		}
+	});
+var $elm$http$Http$stringResolver = A2(_Http_expect, '', $elm$core$Basics$identity);
+var $author$project$Internal$Api$Request$rawApiCallResolver = F2(
+	function (decoder, statusCodeErrors) {
+		return $elm$http$Http$stringResolver(
+			function (response) {
+				switch (response.$) {
+					case 'BadUrl_':
+						var s = response.a;
+						return $elm$core$Result$Err(
+							A3(
+								$elm$core$Basics$apR,
+								$author$project$Internal$Api$Request$InternetException(
+									$elm$http$Http$BadUrl(s)),
+								$elm$core$Tuple$pair,
+								_List_fromArray(
+									[
+										$author$project$Internal$Config$Log$log.error('Encountered bad URL ' + s)
+									])));
+					case 'Timeout_':
+						return $elm$core$Result$Err(
+							A3(
+								$elm$core$Basics$apR,
+								$author$project$Internal$Api$Request$InternetException($elm$http$Http$Timeout),
+								$elm$core$Tuple$pair,
+								_List_fromArray(
+									[
+										$author$project$Internal$Config$Log$log.error('Encountered timeout - maybe the server is down?')
+									])));
+					case 'NetworkError_':
+						return $elm$core$Result$Err(
+							A3(
+								$elm$core$Basics$apR,
+								$author$project$Internal$Api$Request$InternetException($elm$http$Http$NetworkError),
+								$elm$core$Tuple$pair,
+								_List_fromArray(
+									[
+										$author$project$Internal$Config$Log$log.error('Encountered a network error - the user might be offline')
+									])));
+					case 'BadStatus_':
+						var metadata = response.a;
+						var body = response.b;
+						return A3(
+							$author$project$Internal$Api$Request$decodeServerResponse,
+							decoder,
+							body,
+							A2($elm$core$Dict$get, metadata.statusCode, statusCodeErrors));
+					default:
+						var metadata = response.a;
+						var body = response.b;
+						return A3(
+							$author$project$Internal$Api$Request$decodeServerResponse,
+							decoder,
+							body,
+							A2($elm$core$Dict$get, metadata.statusCode, statusCodeErrors));
+				}
+			});
+	});
+var $elm$http$Http$resultToTask = function (result) {
+	if (result.$ === 'Ok') {
+		var a = result.a;
+		return $elm$core$Task$succeed(a);
+	} else {
+		var x = result.a;
+		return $elm$core$Task$fail(x);
+	}
+};
+var $elm$http$Http$task = function (r) {
+	return A3(
+		_Http_toTask,
+		_Utils_Tuple0,
+		$elm$http$Http$resultToTask,
+		{allowCookiesFromOtherDomains: false, body: r.body, expect: r.resolver, headers: r.headers, method: r.method, timeout: r.timeout, tracker: $elm$core$Maybe$Nothing, url: r.url});
+};
+var $author$project$Internal$Api$Request$toChain = F2(
+	function (data, apiContext) {
+		return function (call) {
+			var r = {
+				body: A2(
+					$elm$core$Maybe$withDefault,
+					$elm$http$Http$emptyBody,
+					A2(
+						$elm$core$Maybe$map,
+						$elm$http$Http$jsonBody,
+						$author$project$Internal$Api$Request$getBody(call.attributes))),
+				headers: $author$project$Internal$Api$Request$getHeaders(call.attributes),
+				method: call.method,
+				resolver: A2(
+					$author$project$Internal$Api$Request$rawApiCallResolver,
+					$author$project$Internal$Tools$Json$decode(data.coder),
+					$author$project$Internal$Api$Request$getStatusCodes(call.attributes)),
+				timeout: $author$project$Internal$Api$Request$getTimeout(call.attributes),
+				url: $author$project$Internal$Api$Request$getUrl(call)
+			};
+			var logR = {
+				body: A2(
+					$elm$core$Maybe$withDefault,
+					$elm$http$Http$emptyBody,
+					A2(
+						$elm$core$Maybe$map,
+						$elm$http$Http$jsonBody,
+						$author$project$Internal$Api$Request$getBody(call.attributes))),
+				headers: $author$project$Internal$Api$Request$getHeaders(call.attributes),
+				method: call.method,
+				resolver: A2(
+					$author$project$Internal$Api$Request$rawApiCallResolver,
+					A2(
+						$elm$json$Json$Decode$map,
+						function (_v4) {
+							var out = _v4.a;
+							var logs = _v4.b;
+							var _v5 = data.toUpdate(out);
+							var u = _v5.a;
+							var uLogs = _v5.b;
+							return _Utils_Tuple2(
+								u,
+								A2($elm$core$List$append, logs, uLogs));
+						},
+						$author$project$Internal$Tools$Json$decode(data.coder)),
+					$author$project$Internal$Api$Request$getStatusCodes(call.attributes)),
+				timeout: $author$project$Internal$Api$Request$getTimeout(call.attributes),
+				url: $author$project$Internal$Api$Request$getUrl(call)
+			};
+			var _v0 = data.logHttp(logR);
+			var httpU = _v0.a;
+			var httpLogs = _v0.b;
+			return A2(
+				$elm$core$Task$mapError,
+				function (_v3) {
+					var err = _v3.a;
+					var logs = _v3.b;
+					return {
+						error: err,
+						logs: A2($elm$core$List$append, httpLogs, logs),
+						messages: _List_fromArray(
+							[httpU])
+					};
+				},
+				A2(
+					$elm$core$Task$map,
+					function (_v1) {
+						var httpO = _v1.a;
+						var logs = _v1.b;
+						var _v2 = data.toUpdate(httpO);
+						var u = _v2.a;
+						var uLogs = _v2.b;
+						return {
+							contextChange: data.toContextChange(httpO),
+							logs: $elm$core$List$concat(
+								_List_fromArray(
+									[httpLogs, logs, uLogs])),
+							messages: _List_fromArray(
+								[httpU, u])
+						};
+					},
+					$elm$http$Http$task(r)));
+		}(
+			data.request(apiContext));
+	});
+var $author$project$Internal$Api$Request$withAttributes = F3(
+	function (attrs, f, context) {
+		return function (data) {
+			return _Utils_update(
+				data,
+				{
+					attributes: A2(
+						$elm$core$List$append,
+						data.attributes,
+						A2(
+							$elm$core$List$map,
+							function (attr) {
+								return attr(data.context);
+							},
+							attrs))
+				});
+		}(
+			f(context));
+	});
+var $author$project$Internal$Api$Api$request = function (data) {
+	return $author$project$Internal$Api$Request$toChain(
+		{
+			coder: data.coder,
+			logHttp: function (r) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$HttpRequest(r),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.info(
+							$elm$core$String$concat(
+								_List_fromArray(
+									['Matrix HTTP: ', r.method, ' ', r.url])))));
+			},
+			request: A2(
+				$author$project$Internal$Api$Request$withAttributes,
+				data.attributes,
+				$author$project$Internal$Api$Request$callAPI(
+					{method: data.method, path: data.path})),
+			toContextChange: data.contextChange,
+			toUpdate: data.toUpdate
+		});
+};
+var $author$project$Internal$Values$Context$setAccessToken = F2(
+	function (value, _v0) {
+		var c = _v0.a;
+		return $author$project$Internal$Values$Context$APIContext(
+			_Utils_update(
+				c,
+				{accessToken: value}));
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV1 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV1,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'r0', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: $elm$core$Maybe$Nothing,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: out.refreshToken,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$RemovePasswordIfNecessary,
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Values$Envelope$SetDeviceId = function (a) {
+	return {$: 'SetDeviceId', a: a};
+};
+var $author$project$Internal$Api$Request$NoAttr = {$: 'NoAttr'};
+var $author$project$Internal$Api$Request$empty = $elm$core$Basics$always($author$project$Internal$Api$Request$NoAttr);
+var $author$project$Internal$Api$Request$bodyOpString = F2(
+	function (key, value) {
+		if (value.$ === 'Just') {
+			var v = value.a;
+			return A2($author$project$Internal$Api$Request$bodyString, key, v);
+		} else {
+			return $author$project$Internal$Api$Request$empty;
+		}
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV2 = F4(
+	function (accessToken, deviceId, homeserver, user) {
+		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user};
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV2 = A5(
+	$author$project$Internal$Tools$Json$object4,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV2,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
+			fieldName: 'device_id',
+			toField: function ($) {
+				return $.deviceId;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}));
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV2 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'string')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV2,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'r0', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: $elm$core$Maybe$Nothing,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: $elm$core$Maybe$Nothing,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV3 = F4(
+	function (accessToken, deviceId, homeserver, user) {
+		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user};
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV3 = A5(
+	$author$project$Internal$Tools$Json$object4,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV3,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
+			fieldName: 'device_id',
+			toField: function ($) {
+				return $.deviceId;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}));
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV3 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2(
+						$author$project$Internal$Api$Request$bodyValue,
+						'identifier',
+						$elm$json$Json$Encode$object(
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'type',
+									$elm$json$Json$Encode$string('m.id.user')),
+									_Utils_Tuple2(
+									'user',
+									$elm$json$Json$Encode$string(username))
+								]))),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV3,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'r0', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: $elm$core$Maybe$Nothing,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: $elm$core$Maybe$Nothing,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Values$Envelope$SetBaseUrl = function (a) {
+	return {$: 'SetBaseUrl', a: a};
+};
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV4 = F5(
+	function (accessToken, deviceId, homeserver, user, wellKnown) {
+		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user, wellKnown: wellKnown};
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$DiscoveryInformationV1 = F2(
+	function (homeserver, identityServer) {
+		return {homeserver: homeserver, identityServer: identityServer};
+	});
+var $author$project$Internal$Config$Leaks$field = 'elm-sdk-placeholder-json-field';
+var $author$project$Internal$Tools$Json$object2 = F3(
+	function (_v0, fa, fb) {
+		var init = _v0.init;
+		var description = _v0.description;
+		var name = _v0.name;
+		return $author$project$Internal$Tools$Json$Coder(
+			{
+				decoder: A3(
+					$elm$json$Json$Decode$map2,
+					F2(
+						function (_v1, _v2) {
+							var a = _v1.a;
+							var la = _v1.b;
+							var b = _v2.a;
+							var lb = _v2.b;
+							return _Utils_Tuple2(
+								A2(init, a, b),
+								$elm$core$List$concat(
+									_List_fromArray(
+										[la, lb])));
+						}),
+					$author$project$Internal$Tools$Json$toDecoderField(fa),
+					$author$project$Internal$Tools$Json$toDecoderField(fb)),
+				docs: $author$project$Internal$Tools$Json$DocsObject(
+					{
+						description: description,
+						keys: _List_fromArray(
+							[
+								$author$project$Internal$Tools$Json$toDocsField(fa),
+								$author$project$Internal$Tools$Json$toDocsField(fb)
+							]),
+						name: name
+					}),
+				encoder: $author$project$Internal$Tools$Json$objectEncoder(
+					_List_fromArray(
+						[
+							$author$project$Internal$Tools$Json$toEncodeField(fa),
+							$author$project$Internal$Tools$Json$toEncodeField(fb)
+						]))
+			});
+	});
+var $author$project$Internal$Tools$Json$DocsValue = {$: 'DocsValue'};
+var $author$project$Internal$Tools$Json$value = $author$project$Internal$Tools$Json$Coder(
+	{
+		decoder: A2(
+			$elm$json$Json$Decode$map,
+			function (v) {
+				return _Utils_Tuple2(v, _List_Nil);
+			},
+			$elm$json$Json$Decode$value),
+		docs: $author$project$Internal$Tools$Json$DocsValue,
+		encoder: $elm$core$Basics$identity
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1 = A3(
+	$author$project$Internal$Tools$Json$object2,
+	{
+		description: _List_fromArray(
+			['Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes.', 'Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL.', 'https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$DiscoveryInformationV1,
+		name: 'Discovery Information'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: A3(
+				$author$project$Internal$Tools$Json$object2,
+				{
+					description: _List_fromArray(
+						['Used by clients to discover homeserver information.']),
+					init: F2(
+						function (a, _v0) {
+							return {baseUrl: a};
+						}),
+					name: 'Homeserver Information'
+				},
+				$author$project$Internal$Tools$Json$field.required(
+					{
+						coder: $author$project$Internal$Tools$Json$string,
+						description: _List_fromArray(
+							['The base URL for the homeserver for client-server connections.']),
+						fieldName: 'base_url',
+						toField: function ($) {
+							return $.baseUrl;
+						}
+					}),
+				$author$project$Internal$Tools$Json$field.optional.value(
+					{
+						coder: $author$project$Internal$Tools$Json$value,
+						description: _List_fromArray(
+							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+						fieldName: $author$project$Internal$Config$Leaks$field,
+						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+					})),
+			description: _List_fromArray(
+				['Used by clients to discover homeserver information.']),
+			fieldName: 'm.homeserver',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: A3(
+				$author$project$Internal$Tools$Json$object2,
+				{
+					description: _List_fromArray(
+						['Used by clients to discover homeserver information.']),
+					init: F2(
+						function (a, _v1) {
+							return {baseUrl: a};
+						}),
+					name: 'Homeserver Information'
+				},
+				$author$project$Internal$Tools$Json$field.required(
+					{
+						coder: $author$project$Internal$Tools$Json$string,
+						description: _List_fromArray(
+							['The base URL for the homeserver for client-server connections.']),
+						fieldName: 'base_url',
+						toField: function ($) {
+							return $.baseUrl;
+						}
+					}),
+				$author$project$Internal$Tools$Json$field.optional.value(
+					{
+						coder: $author$project$Internal$Tools$Json$value,
+						description: _List_fromArray(
+							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+						fieldName: $author$project$Internal$Config$Leaks$field,
+						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+					})),
+			description: _List_fromArray(
+				['Used by clients to discover identity server information.']),
+			fieldName: 'm.identity_server',
+			toField: function ($) {
+				return $.identityServer;
+			}
+		}));
+var $author$project$Internal$Tools$Json$object5 = F6(
+	function (_v0, fa, fb, fc, fd, fe) {
+		var init = _v0.init;
+		var description = _v0.description;
+		var name = _v0.name;
+		return $author$project$Internal$Tools$Json$Coder(
+			{
+				decoder: A6(
+					$elm$json$Json$Decode$map5,
+					F5(
+						function (_v1, _v2, _v3, _v4, _v5) {
+							var a = _v1.a;
+							var la = _v1.b;
+							var b = _v2.a;
+							var lb = _v2.b;
+							var c = _v3.a;
+							var lc = _v3.b;
+							var d = _v4.a;
+							var ld = _v4.b;
+							var e = _v5.a;
+							var le = _v5.b;
+							return _Utils_Tuple2(
+								A5(init, a, b, c, d, e),
+								$elm$core$List$concat(
+									_List_fromArray(
+										[la, lb, lc, ld, le])));
+						}),
+					$author$project$Internal$Tools$Json$toDecoderField(fa),
+					$author$project$Internal$Tools$Json$toDecoderField(fb),
+					$author$project$Internal$Tools$Json$toDecoderField(fc),
+					$author$project$Internal$Tools$Json$toDecoderField(fd),
+					$author$project$Internal$Tools$Json$toDecoderField(fe)),
+				docs: $author$project$Internal$Tools$Json$DocsObject(
+					{
+						description: description,
+						keys: _List_fromArray(
+							[
+								$author$project$Internal$Tools$Json$toDocsField(fa),
+								$author$project$Internal$Tools$Json$toDocsField(fb),
+								$author$project$Internal$Tools$Json$toDocsField(fc),
+								$author$project$Internal$Tools$Json$toDocsField(fd),
+								$author$project$Internal$Tools$Json$toDocsField(fe)
+							]),
+						name: name
+					}),
+				encoder: $author$project$Internal$Tools$Json$objectEncoder(
+					_List_fromArray(
+						[
+							$author$project$Internal$Tools$Json$toEncodeField(fa),
+							$author$project$Internal$Tools$Json$toEncodeField(fb),
+							$author$project$Internal$Tools$Json$toEncodeField(fc),
+							$author$project$Internal$Tools$Json$toEncodeField(fd),
+							$author$project$Internal$Tools$Json$toEncodeField(fe)
+						]))
+			});
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4 = A6(
+	$author$project$Internal$Tools$Json$object5,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.5.0.html#post-matrix-client-r0-login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV4,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
+			fieldName: 'device_id',
+			toField: function ($) {
+				return $.deviceId;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
+			description: _List_fromArray(
+				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
+			fieldName: 'well_known',
+			toField: function ($) {
+				return $.wellKnown;
+			}
+		}));
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV4 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2(
+						$author$project$Internal$Api$Request$bodyValue,
+						'identifier',
+						$elm$json$Json$Encode$object(
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'type',
+									$elm$json$Json$Encode$string('m.id.user')),
+									_Utils_Tuple2(
+									'user',
+									$elm$json$Json$Encode$string(username))
+								]))),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'r0', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: $elm$core$Maybe$Nothing,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: $elm$core$Maybe$Nothing,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										$author$project$Internal$Values$Envelope$SetBaseUrl,
+										A2(
+											$elm$core$Maybe$map,
+											A2(
+												$elm$core$Basics$composeR,
+												function ($) {
+													return $.homeserver;
+												},
+												function ($) {
+													return $.baseUrl;
+												}),
+											out.wellKnown))),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV5 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2(
+						$author$project$Internal$Api$Request$bodyValue,
+						'identifier',
+						$elm$json$Json$Encode$object(
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'type',
+									$elm$json$Json$Encode$string('m.id.user')),
+									_Utils_Tuple2(
+									'user',
+									$elm$json$Json$Encode$string(username))
+								]))),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'v3', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: $elm$core$Maybe$Nothing,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: $elm$core$Maybe$Nothing,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										$author$project$Internal$Values$Envelope$SetBaseUrl,
+										A2(
+											$elm$core$Maybe$map,
+											A2(
+												$elm$core$Basics$composeR,
+												function ($) {
+													return $.homeserver;
+												},
+												function ($) {
+													return $.baseUrl;
+												}),
+											out.wellKnown))),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Tools$Json$DocsBool = {$: 'DocsBool'};
+var $elm$json$Json$Decode$bool = _Json_decodeBool;
+var $elm$json$Json$Encode$bool = _Json_wrap;
+var $author$project$Internal$Tools$Json$bool = $author$project$Internal$Tools$Json$Coder(
+	{
+		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$bool),
+		docs: $author$project$Internal$Tools$Json$DocsBool,
+		encoder: $elm$json$Json$Encode$bool
+	});
+var $author$project$Internal$Api$Request$bodyBool = F2(
+	function (key, value) {
+		return A2(
+			$author$project$Internal$Api$Request$bodyValue,
+			key,
+			A2($author$project$Internal$Tools$Json$encode, $author$project$Internal$Tools$Json$bool, value));
+	});
+var $author$project$Internal$Api$Request$bodyOpBool = F2(
+	function (key, value) {
+		if (value.$ === 'Just') {
+			var v = value.a;
+			return A2($author$project$Internal$Api$Request$bodyBool, key, v);
+		} else {
+			return $author$project$Internal$Api$Request$empty;
+		}
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV5 = F7(
+	function (accessToken, deviceId, expiresInMs, homeserver, refreshToken, user, wellKnown) {
+		return {accessToken: accessToken, deviceId: deviceId, expiresInMs: expiresInMs, homeserver: homeserver, refreshToken: refreshToken, user: user, wellKnown: wellKnown};
+	});
+var $author$project$Internal$Tools$Json$DocsInt = {$: 'DocsInt'};
+var $elm$json$Json$Encode$int = _Json_wrap;
+var $author$project$Internal$Tools$Json$int = $author$project$Internal$Tools$Json$Coder(
+	{
+		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$int),
+		docs: $author$project$Internal$Tools$Json$DocsInt,
+		encoder: $elm$json$Json$Encode$int
+	});
+var $elm$json$Json$Decode$map7 = _Json_map7;
+var $author$project$Internal$Tools$Json$object7 = F8(
+	function (_v0, fa, fb, fc, fd, fe, ff, fg) {
+		var init = _v0.init;
+		var description = _v0.description;
+		var name = _v0.name;
+		return $author$project$Internal$Tools$Json$Coder(
+			{
+				decoder: A8(
+					$elm$json$Json$Decode$map7,
+					F7(
+						function (_v1, _v2, _v3, _v4, _v5, _v6, _v7) {
+							var a = _v1.a;
+							var la = _v1.b;
+							var b = _v2.a;
+							var lb = _v2.b;
+							var c = _v3.a;
+							var lc = _v3.b;
+							var d = _v4.a;
+							var ld = _v4.b;
+							var e = _v5.a;
+							var le = _v5.b;
+							var f = _v6.a;
+							var lf = _v6.b;
+							var g = _v7.a;
+							var lg = _v7.b;
+							return _Utils_Tuple2(
+								A7(init, a, b, c, d, e, f, g),
+								$elm$core$List$concat(
+									_List_fromArray(
+										[la, lb, lc, ld, le, lf, lg])));
+						}),
+					$author$project$Internal$Tools$Json$toDecoderField(fa),
+					$author$project$Internal$Tools$Json$toDecoderField(fb),
+					$author$project$Internal$Tools$Json$toDecoderField(fc),
+					$author$project$Internal$Tools$Json$toDecoderField(fd),
+					$author$project$Internal$Tools$Json$toDecoderField(fe),
+					$author$project$Internal$Tools$Json$toDecoderField(ff),
+					$author$project$Internal$Tools$Json$toDecoderField(fg)),
+				docs: $author$project$Internal$Tools$Json$DocsObject(
+					{
+						description: description,
+						keys: _List_fromArray(
+							[
+								$author$project$Internal$Tools$Json$toDocsField(fa),
+								$author$project$Internal$Tools$Json$toDocsField(fb),
+								$author$project$Internal$Tools$Json$toDocsField(fc),
+								$author$project$Internal$Tools$Json$toDocsField(fd),
+								$author$project$Internal$Tools$Json$toDocsField(fe),
+								$author$project$Internal$Tools$Json$toDocsField(ff),
+								$author$project$Internal$Tools$Json$toDocsField(fg)
+							]),
+						name: name
+					}),
+				encoder: $author$project$Internal$Tools$Json$objectEncoder(
+					_List_fromArray(
+						[
+							$author$project$Internal$Tools$Json$toEncodeField(fa),
+							$author$project$Internal$Tools$Json$toEncodeField(fb),
+							$author$project$Internal$Tools$Json$toEncodeField(fc),
+							$author$project$Internal$Tools$Json$toEncodeField(fd),
+							$author$project$Internal$Tools$Json$toEncodeField(fe),
+							$author$project$Internal$Tools$Json$toEncodeField(ff),
+							$author$project$Internal$Tools$Json$toEncodeField(fg)
+						]))
+			});
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV5 = A8(
+	$author$project$Internal$Tools$Json$object7,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV5,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
+			fieldName: 'device_id',
+			toField: function ($) {
+				return $.deviceId;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$int,
+			description: _List_fromArray(
+				['The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. ']),
+			fieldName: 'expires_in_ms',
+			toField: function ($) {
+				return $.expiresInMs;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint.']),
+			fieldName: 'refresh_token',
+			toField: function ($) {
+				return $.refreshToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
+			description: _List_fromArray(
+				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
+			fieldName: 'well_known',
+			toField: function ($) {
+				return $.wellKnown;
+			}
+		}));
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV6 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var enableRefreshToken = _v0.enableRefreshToken;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2(
+						$author$project$Internal$Api$Request$bodyValue,
+						'identifier',
+						$elm$json$Json$Encode$object(
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'type',
+									$elm$json$Json$Encode$string('m.id.user')),
+									_Utils_Tuple2(
+									'user',
+									$elm$json$Json$Encode$string(username))
+								]))),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyOpBool, 'refresh_token', enableRefreshToken),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV5,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'v3', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: out.expiresInMs,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: out.refreshToken,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
+										out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										$author$project$Internal$Values$Envelope$SetBaseUrl,
+										A2(
+											$elm$core$Maybe$map,
+											A2(
+												$elm$core$Basics$composeR,
+												function ($) {
+													return $.homeserver;
+												},
+												function ($) {
+													return $.baseUrl;
+												}),
+											out.wellKnown))),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV6 = F7(
+	function (accessToken, deviceId, expiresInMs, homeserver, refreshToken, user, wellKnown) {
+		return {accessToken: accessToken, deviceId: deviceId, expiresInMs: expiresInMs, homeserver: homeserver, refreshToken: refreshToken, user: user, wellKnown: wellKnown};
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV6 = A8(
+	$author$project$Internal$Tools$Json$object7,
+	{
+		description: _List_fromArray(
+			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login']),
+		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV6,
+		name: 'Login Response'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['An access token for the account. This access token can then be used to authorize other requests.']),
+			fieldName: 'access_token',
+			toField: function ($) {
+				return $.accessToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
+			fieldName: 'device_id',
+			toField: function ($) {
+				return $.deviceId;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$int,
+			description: _List_fromArray(
+				['The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. ']),
+			fieldName: 'expires_in_ms',
+			toField: function ($) {
+				return $.expiresInMs;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['The hostname of the homeserver on which the account has been registered.']),
+			fieldName: 'home_server',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint.']),
+			fieldName: 'refresh_token',
+			toField: function ($) {
+				return $.refreshToken;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Values$User$coder,
+			description: _List_fromArray(
+				['The fully-qualified Matrix ID that has been registered.']),
+			fieldName: 'user_id',
+			toField: function ($) {
+				return $.user;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
+			description: _List_fromArray(
+				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
+			fieldName: 'well_known',
+			toField: function ($) {
+				return $.wellKnown;
+			}
+		}));
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV7 = function (_v0) {
+	var password = _v0.password;
+	var username = _v0.username;
+	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
+	var enableRefreshToken = _v0.enableRefreshToken;
+	var deviceId = _v0.deviceId;
+	return function (context) {
+		return A2(
+			$author$project$Internal$Api$Api$request,
+			{
+				attributes: _List_fromArray(
+					[
+						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
+						A2(
+						$author$project$Internal$Api$Request$bodyValue,
+						'identifier',
+						$elm$json$Json$Encode$object(
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'type',
+									$elm$json$Json$Encode$string('m.id.user')),
+									_Utils_Tuple2(
+									'user',
+									$elm$json$Json$Encode$string(username))
+								]))),
+						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
+						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
+						A2($author$project$Internal$Api$Request$bodyOpBool, 'refresh_token', enableRefreshToken),
+						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
+						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
+						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
+						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
+					]),
+				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV6,
+				contextChange: function (out) {
+					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
+				},
+				method: 'POST',
+				path: _List_fromArray(
+					['_matrix', 'client', 'v3', 'login']),
+				toUpdate: function (out) {
+					return _Utils_Tuple2(
+						$author$project$Internal$Values$Envelope$More(
+							_List_fromArray(
+								[
+									$author$project$Internal$Values$Envelope$SetAccessToken(
+									{
+										created: $author$project$Internal$Values$Context$getNow(context),
+										expiryMs: out.expiresInMs,
+										lastUsed: $author$project$Internal$Values$Context$getNow(context),
+										refresh: out.refreshToken,
+										value: out.accessToken
+									}),
+									$author$project$Internal$Values$Envelope$ContentUpdate(
+									$author$project$Internal$Values$Vault$SetUser(out.user)),
+									$author$project$Internal$Values$Envelope$Optional(
+									A2(
+										$elm$core$Maybe$map,
+										$author$project$Internal$Values$Envelope$SetBaseUrl,
+										A2(
+											$elm$core$Maybe$map,
+											A2(
+												$elm$core$Basics$composeR,
+												function ($) {
+													return $.homeserver;
+												},
+												function ($) {
+													return $.baseUrl;
+												}),
+											out.wellKnown))),
+									$author$project$Internal$Values$Envelope$SetDeviceId(out.deviceId)
+								])),
+						$elm$core$List$singleton(
+							$author$project$Internal$Config$Log$log.debug(
+								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
+				}
+			},
+			context);
+	};
+};
+var $author$project$Internal$Api$Api$sameForVersion = F2(
+	function (name, _v0) {
+		var data = _v0.a;
+		return $author$project$Internal$Api$Api$VC(
+			{
+				chain: data.chain,
+				name: $author$project$Internal$Api$Api$SpecVersion(name),
+				prev: $elm$core$Maybe$Just(
+					$author$project$Internal$Api$Api$VC(data))
+			});
+	});
+var $author$project$Internal$Api$Api$startWithVersion = F2(
+	function (name, chain) {
+		return $author$project$Internal$Api$Api$VC(
+			{
+				chain: chain,
+				name: $author$project$Internal$Api$Api$SpecVersion(name),
+				prev: $elm$core$Maybe$Nothing
+			});
+	});
+var $author$project$Internal$Api$Request$NoSupportedVersion = {$: 'NoSupportedVersion'};
+var $micahhahn$elm_safe_recursion$Recursion$Base = function (a) {
+	return {$: 'Base', a: a};
+};
+var $micahhahn$elm_safe_recursion$Recursion$base = $micahhahn$elm_safe_recursion$Recursion$Base;
+var $author$project$Internal$Values$Context$getVersions = function (_v0) {
+	var c = _v0.a;
+	return c.versions;
+};
+var $micahhahn$elm_safe_recursion$Recursion$Recurse = F2(
+	function (a, b) {
+		return {$: 'Recurse', a: a, b: b};
+	});
+var $micahhahn$elm_safe_recursion$Recursion$recurse = function (r) {
+	return A2($micahhahn$elm_safe_recursion$Recursion$Recurse, r, $micahhahn$elm_safe_recursion$Recursion$base);
+};
+var $micahhahn$elm_safe_recursion$Recursion$runRecursion = F2(
+	function (project, init) {
+		var go = F2(
+			function (step, stack) {
+				go:
+				while (true) {
+					if (step.$ === 'Base') {
+						var t = step.a;
+						if (!stack.b) {
+							return t;
+						} else {
+							var next = stack.a;
+							var rest = stack.b;
+							var $temp$step = next(t),
+								$temp$stack = rest;
+							step = $temp$step;
+							stack = $temp$stack;
+							continue go;
+						}
+					} else {
+						var r = step.a;
+						var after = step.b;
+						var $temp$step = project(r),
+							$temp$stack = A2($elm$core$List$cons, after, stack);
+						step = $temp$step;
+						stack = $temp$stack;
+						continue go;
+					}
+				}
+			});
+		return A2(
+			go,
+			project(init),
+			_List_Nil);
+	});
+var $elm$core$List$any = F2(
+	function (isOkay, list) {
+		any:
+		while (true) {
+			if (!list.b) {
+				return false;
+			} else {
+				var x = list.a;
+				var xs = list.b;
+				if (isOkay(x)) {
+					return true;
+				} else {
+					var $temp$isOkay = isOkay,
+						$temp$list = xs;
+					isOkay = $temp$isOkay;
+					list = $temp$list;
+					continue any;
+				}
+			}
+		}
+	});
+var $elm$core$List$member = F2(
+	function (x, xs) {
+		return A2(
+			$elm$core$List$any,
+			function (a) {
+				return _Utils_eq(a, x);
+			},
+			xs);
+	});
+var $elm$core$Dict$member = F2(
+	function (key, dict) {
+		var _v0 = A2($elm$core$Dict$get, key, dict);
+		if (_v0.$ === 'Just') {
+			return true;
+		} else {
+			return false;
+		}
+	});
+var $elm$core$Set$member = F2(
+	function (key, _v0) {
+		var dict = _v0.a;
+		return A2($elm$core$Dict$member, key, dict);
+	});
+var $author$project$Internal$Api$Api$supportedVersion = F2(
+	function (_v0, name) {
+		var unstableFeatures = _v0.unstableFeatures;
+		var versions = _v0.versions;
+		if (name.$ === 'SpecVersion') {
+			var n = name.a;
+			return A2($elm$core$List$member, n, versions);
+		} else {
+			var n = name.a;
+			return A2($elm$core$Set$member, n, unstableFeatures);
+		}
+	});
+var $author$project$Internal$Api$Api$versionChain = F2(
+	function (vc, input) {
+		return function (context) {
+			var _v0 = $author$project$Internal$Values$Context$getVersions(context);
+			var versions = _v0;
+			return A2(
+				$micahhahn$elm_safe_recursion$Recursion$runRecursion,
+				function (mvc) {
+					if (mvc.$ === 'Nothing') {
+						return $micahhahn$elm_safe_recursion$Recursion$base(
+							A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$NoSupportedVersion, context));
+					} else {
+						var data = mvc.a.a;
+						return A2($author$project$Internal$Api$Api$supportedVersion, versions, data.name) ? $micahhahn$elm_safe_recursion$Recursion$base(
+							A2(data.chain, input, context)) : $micahhahn$elm_safe_recursion$Recursion$recurse(data.prev);
+					}
+				},
+				$elm$core$Maybe$Just(vc));
+		};
+	});
+var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPassword = $author$project$Internal$Api$Api$versionChain(
+	A2(
+		$author$project$Internal$Api$Api$sameForVersion,
+		'v1.10',
+		A2(
+			$author$project$Internal$Api$Api$sameForVersion,
+			'v1.9',
+			A2(
+				$author$project$Internal$Api$Api$sameForVersion,
+				'v1.8',
+				A2(
+					$author$project$Internal$Api$Api$sameForVersion,
+					'v1.7',
+					A2(
+						$author$project$Internal$Api$Api$sameForVersion,
+						'v1.6',
+						A2(
+							$author$project$Internal$Api$Api$sameForVersion,
+							'v1.5',
+							A3(
+								$author$project$Internal$Api$Api$forVersion,
+								'v1.4',
+								$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV7,
+								A3(
+									$author$project$Internal$Api$Api$forVersion,
+									'v1.3',
+									$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV6,
+									A2(
+										$author$project$Internal$Api$Api$sameForVersion,
+										'v1.2',
+										A3(
+											$author$project$Internal$Api$Api$forVersion,
+											'v1.1',
+											$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV5,
+											A2(
+												$author$project$Internal$Api$Api$sameForVersion,
+												'r0.6.1',
+												A2(
+													$author$project$Internal$Api$Api$sameForVersion,
+													'r0.6.0',
+													A3(
+														$author$project$Internal$Api$Api$forVersion,
+														'r0.5.0',
+														$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV4,
+														A3(
+															$author$project$Internal$Api$Api$forVersion,
+															'r0.4.0',
+															$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV3,
+															A3(
+																$author$project$Internal$Api$Api$forVersion,
+																'r0.3.0',
+																$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV2,
+																A2(
+																	$author$project$Internal$Api$Api$sameForVersion,
+																	'r0.2.0',
+																	A2(
+																		$author$project$Internal$Api$Api$sameForVersion,
+																		'r0.1.0',
+																		A2(
+																			$author$project$Internal$Api$Api$sameForVersion,
+																			'r0.0.1',
+																			A2($author$project$Internal$Api$Api$startWithVersion, 'r0.0.0', $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV1))))))))))))))))))));
+var $author$project$Internal$Api$Task$getAccessToken = function (c) {
+	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c);
+	var context = _v0;
+	var _v1 = _Utils_Tuple3(
+		$author$project$Internal$Values$Context$mostPopularToken(context),
+		context.username,
+		context.password);
+	if (_v1.a.$ === 'Just') {
+		var a = _v1.a.a;
+		return A2(
+			$author$project$Internal$Api$Chain$succeed,
+			{
+				contextChange: $author$project$Internal$Values$Context$setAccessToken(a),
+				logs: _List_fromArray(
+					[
+						$author$project$Internal$Config$Log$log.debug('Using cached access token from Vault')
+					]),
+				messages: _List_Nil
+			},
+			c);
+	} else {
+		if (_v1.b.$ === 'Nothing') {
+			var _v3 = _v1.a;
+			var _v4 = _v1.b;
+			return A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$MissingUsername, c);
+		} else {
+			if (_v1.c.$ === 'Just') {
+				var _v2 = _v1.a;
+				var u = _v1.b.a;
+				var p = _v1.c.a;
+				return A2(
+					$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPassword,
+					{
+						deviceId: $author$project$Internal$Values$Context$fromApiFormat(c).deviceId,
+						enableRefreshToken: $elm$core$Maybe$Just(true),
+						initialDeviceDisplayName: $elm$core$Maybe$Nothing,
+						password: p,
+						username: u
+					},
+					c);
+			} else {
+				var _v5 = _v1.a;
+				var _v6 = _v1.c;
+				return A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$MissingPassword, c);
+			}
+		}
+	}
+};
+var $author$project$Internal$Values$Envelope$SetNow = function (a) {
+	return {$: 'SetNow', a: a};
+};
+var $elm$time$Time$Name = function (a) {
+	return {$: 'Name', a: a};
+};
+var $elm$time$Time$Offset = function (a) {
+	return {$: 'Offset', a: a};
+};
+var $elm$time$Time$Zone = F2(
+	function (a, b) {
+		return {$: 'Zone', a: a, b: b};
+	});
+var $elm$time$Time$customZone = $elm$time$Time$Zone;
+var $elm$time$Time$now = _Time_now($elm$time$Time$millisToPosix);
+var $author$project$Internal$Values$Context$setNow = F2(
+	function (t, _v0) {
+		var c = _v0.a;
+		return $author$project$Internal$Values$Context$APIContext(
+			_Utils_update(
+				c,
+				{now: t}));
+	});
+var $author$project$Internal$Api$Now$Api$getNow = function (_v0) {
+	return A2(
+		$elm$core$Task$map,
+		function (now) {
+			return {
+				contextChange: $author$project$Internal$Values$Context$setNow(now),
+				logs: $elm$core$List$singleton(
+					$author$project$Internal$Config$Log$log.debug(
+						$author$project$Internal$Config$Text$logs.getNow(
+							$elm$time$Time$posixToMillis(now)))),
+				messages: _List_fromArray(
+					[
+						$author$project$Internal$Values$Envelope$SetNow(now)
+					])
+			};
+		},
+		$elm$time$Time$now);
+};
+var $author$project$Internal$Api$Task$getNow = $author$project$Internal$Api$Now$Api$getNow;
+var $author$project$Internal$Api$BaseUrl$Api$DiscoveryInformation = F2(
+	function (homeserver, identityServer) {
+		return {homeserver: homeserver, identityServer: identityServer};
+	});
+var $author$project$Internal$Api$BaseUrl$Api$coder = A3(
+	$author$project$Internal$Tools$Json$object2,
+	{
+		description: _List_fromArray(
+			['Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes.', 'Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL.', 'https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient']),
+		init: $author$project$Internal$Api$BaseUrl$Api$DiscoveryInformation,
+		name: 'Discovery Information'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: A3(
+				$author$project$Internal$Tools$Json$object2,
+				{
+					description: _List_fromArray(
+						['Used by clients to discover homeserver information.']),
+					init: F2(
+						function (a, _v0) {
+							return {baseUrl: a};
+						}),
+					name: 'Homeserver Information'
+				},
+				$author$project$Internal$Tools$Json$field.required(
+					{
+						coder: $author$project$Internal$Tools$Json$string,
+						description: _List_fromArray(
+							['The base URL for the homeserver for client-server connections.']),
+						fieldName: 'base_url',
+						toField: function ($) {
+							return $.baseUrl;
+						}
+					}),
+				$author$project$Internal$Tools$Json$field.optional.value(
+					{
+						coder: $author$project$Internal$Tools$Json$value,
+						description: _List_fromArray(
+							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+						fieldName: $author$project$Internal$Config$Leaks$field,
+						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+					})),
+			description: _List_fromArray(
+				['Used by clients to discover homeserver information.']),
+			fieldName: 'm.homeserver',
+			toField: function ($) {
+				return $.homeserver;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: A3(
+				$author$project$Internal$Tools$Json$object2,
+				{
+					description: _List_fromArray(
+						['Used by clients to discover homeserver information.']),
+					init: F2(
+						function (a, _v1) {
+							return {baseUrl: a};
+						}),
+					name: 'Homeserver Information'
+				},
+				$author$project$Internal$Tools$Json$field.required(
+					{
+						coder: $author$project$Internal$Tools$Json$string,
+						description: _List_fromArray(
+							['The base URL for the homeserver for client-server connections.']),
+						fieldName: 'base_url',
+						toField: function ($) {
+							return $.baseUrl;
+						}
+					}),
+				$author$project$Internal$Tools$Json$field.optional.value(
+					{
+						coder: $author$project$Internal$Tools$Json$value,
+						description: _List_fromArray(
+							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+						fieldName: $author$project$Internal$Config$Leaks$field,
+						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+					})),
+			description: _List_fromArray(
+				['Used by clients to discover identity server information.']),
+			fieldName: 'm.identity_server',
+			toField: function ($) {
+				return $.identityServer;
+			}
+		}));
+var $author$project$Internal$Values$Context$setBaseUrl = F2(
+	function (value, _v0) {
+		var c = _v0.a;
+		return $author$project$Internal$Values$Context$APIContext(
+			_Utils_update(
+				c,
+				{baseUrl: value}));
+	});
+var $author$project$Internal$Api$BaseUrl$Api$baseUrl = function (data) {
+	return $author$project$Internal$Api$Request$toChain(
+		{
+			coder: $author$project$Internal$Api$BaseUrl$Api$coder,
+			logHttp: function (r) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$HttpRequest(r),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.info(
+							A2($author$project$Internal$Config$Text$logs.httpRequest, r.method, r.url))));
+			},
+			request: function (context) {
+				return {
+					attributes: _List_Nil,
+					baseUrl: data.url,
+					context: context,
+					method: 'GET',
+					path: _List_fromArray(
+						['.well-known', 'matrix', 'client'])
+				};
+			},
+			toContextChange: function (info) {
+				return $author$project$Internal$Values$Context$setBaseUrl(info.homeserver.baseUrl);
+			},
+			toUpdate: function (info) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$SetBaseUrl(info.homeserver.baseUrl),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.debug(
+							A2($author$project$Internal$Config$Text$logs.baseUrlFound, data.url, info.homeserver.baseUrl))));
+			}
+		});
+};
+var $author$project$Internal$Api$Task$getBaseUrl = function (c) {
+	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c).baseUrl;
+	if (_v0.$ === 'Just') {
+		var b = _v0.a;
+		return A2(
+			$author$project$Internal$Api$Chain$succeed,
+			{
+				contextChange: $author$project$Internal$Values$Context$setBaseUrl(b),
+				logs: _List_fromArray(
+					[
+						$author$project$Internal$Config$Log$log.debug('Using cached baseURL from Vault')
+					]),
+				messages: _List_Nil
+			},
+			c);
+	} else {
+		return A2(
+			$author$project$Internal$Api$BaseUrl$Api$baseUrl,
+			{
+				url: $author$project$Internal$Values$Context$fromApiFormat(c).serverName
+			},
+			c);
+	}
+};
+var $author$project$Internal$Values$Context$setVersions = F2(
+	function (value, _v0) {
+		var c = _v0.a;
+		return $author$project$Internal$Values$Context$APIContext(
+			_Utils_update(
+				c,
+				{versions: value}));
+	});
+var $author$project$Internal$Values$Envelope$SetVersions = function (a) {
+	return {$: 'SetVersions', a: a};
+};
+var $author$project$Internal$Values$Context$Versions = F2(
+	function (versions, unstableFeatures) {
+		return {unstableFeatures: unstableFeatures, versions: versions};
+	});
+var $elm$core$Set$empty = $elm$core$Set$Set_elm_builtin($elm$core$Dict$empty);
+var $elm$core$Set$foldl = F3(
+	function (func, initialState, _v0) {
+		var dict = _v0.a;
+		return A3(
+			$elm$core$Dict$foldl,
+			F3(
+				function (key, _v1, state) {
+					return A2(func, key, state);
+				}),
+			initialState,
+			dict);
+	});
+var $elm$core$Set$insert = F2(
+	function (key, _v0) {
+		var dict = _v0.a;
+		return $elm$core$Set$Set_elm_builtin(
+			A3($elm$core$Dict$insert, key, _Utils_Tuple0, dict));
+	});
+var $author$project$Internal$Tools$Json$DocsList = function (a) {
+	return {$: 'DocsList', a: a};
+};
+var $author$project$Internal$Tools$Json$list = function (_v0) {
+	var old = _v0.a;
+	return $author$project$Internal$Tools$Json$Coder(
+		{
+			decoder: A2(
+				$elm$json$Json$Decode$map,
+				function (items) {
+					return _Utils_Tuple2(
+						A2($elm$core$List$map, $elm$core$Tuple$first, items),
+						A2($elm$core$List$concatMap, $elm$core$Tuple$second, items));
+				},
+				$elm$json$Json$Decode$list(old.decoder)),
+			docs: $author$project$Internal$Tools$Json$DocsList(old.docs),
+			encoder: $elm$json$Json$Encode$list(old.encoder)
+		});
+};
+var $author$project$Internal$Tools$Json$DocsMap = function (a) {
+	return {$: 'DocsMap', a: a};
+};
+var $elm$core$Tuple$mapFirst = F2(
+	function (func, _v0) {
+		var x = _v0.a;
+		var y = _v0.b;
+		return _Utils_Tuple2(
+			func(x),
+			y);
+	});
+var $author$project$Internal$Tools$Json$map = F2(
+	function (_v0, _v1) {
+		var forth = _v0.forth;
+		var back = _v0.back;
+		var description = _v0.description;
+		var name = _v0.name;
+		var old = _v1.a;
+		return $author$project$Internal$Tools$Json$Coder(
+			{
+				decoder: A2(
+					$elm$json$Json$Decode$map,
+					$elm$core$Tuple$mapFirst(forth),
+					old.decoder),
+				docs: $author$project$Internal$Tools$Json$DocsMap(
+					{content: old.docs, description: description, name: name}),
+				encoder: A2($elm$core$Basics$composeR, back, old.encoder)
+			});
+	});
+var $author$project$Internal$Tools$Json$DocsDict = function (a) {
+	return {$: 'DocsDict', a: a};
+};
+var $elm$json$Json$Encode$dict = F3(
+	function (toKey, toValue, dictionary) {
+		return _Json_wrap(
+			A3(
+				$elm$core$Dict$foldl,
+				F3(
+					function (key, value, obj) {
+						return A3(
+							_Json_addField,
+							toKey(key),
+							toValue(value),
+							obj);
+					}),
+				_Json_emptyObject(_Utils_Tuple0),
+				dictionary));
+	});
+var $author$project$Internal$Tools$Json$slowDict = function (_v0) {
+	var data = _v0.a;
+	return $author$project$Internal$Tools$Json$Coder(
+		{
+			decoder: A2(
+				$elm$json$Json$Decode$map,
+				function (items) {
+					return _Utils_Tuple2(
+						$elm$core$Dict$fromList(
+							A2(
+								$elm$core$List$map,
+								$elm$core$Tuple$mapSecond($elm$core$Tuple$first),
+								items)),
+						A2(
+							$elm$core$List$concatMap,
+							$elm$core$Tuple$second,
+							A2($elm$core$List$map, $elm$core$Tuple$second, items)));
+				},
+				$elm$json$Json$Decode$keyValuePairs(data.decoder)),
+			docs: $author$project$Internal$Tools$Json$DocsDict(data.docs),
+			encoder: A2($elm$json$Json$Encode$dict, $elm$core$Basics$identity, data.encoder)
+		});
+};
+var $author$project$Internal$Api$Versions$Api$versionsCoder = A3(
+	$author$project$Internal$Tools$Json$object2,
+	{
+		description: _List_fromArray(
+			['Gets the versions of the specification supported by the server.', 'Values will take the form vX.Y or rX.Y.Z in historical cases. See the Specification Versioning for more information.', 'The server may additionally advertise experimental features it supports through unstable_features. These features should be namespaced and may optionally include version information within their name if desired. Features listed here are not for optionally toggling parts of the Matrix specification and should only be used to advertise support for a feature which has not yet landed in the spec. For example, a feature currently undergoing the proposal process may appear here and eventually be taken off this list once the feature lands in the spec and the server deems it reasonable to do so. Servers can choose to enable some features only for some users, so clients should include authentication in the request to get all the features available for the logged-in user. If no authentication is provided, the server should only return the features available to all users. Servers may wish to keep advertising features here after they’ve been released into the spec to give clients a chance to upgrade appropriately. Additionally, clients should avoid using unstable features in their stable releases.']),
+		init: $author$project$Internal$Values$Context$Versions,
+		name: 'Versions'
+	},
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$list($author$project$Internal$Tools$Json$string),
+			description: _List_fromArray(
+				['The supported versions.']),
+			fieldName: 'versions',
+			toField: function ($) {
+				return $.versions;
+			}
+		}),
+	$author$project$Internal$Tools$Json$field.optional.withDefault(
+		{
+			coder: A2(
+				$author$project$Internal$Tools$Json$map,
+				{
+					back: A2(
+						$elm$core$Set$foldl,
+						F2(
+							function (k, d) {
+								return A3($elm$core$Dict$insert, k, true, d);
+							}),
+						$elm$core$Dict$empty),
+					description: _List_fromArray(
+						['Turn a dictionary of supported values into a set that contains only supported values']),
+					forth: A2(
+						$elm$core$Dict$foldl,
+						F3(
+							function (k, v, s) {
+								return v ? A2($elm$core$Set$insert, k, s) : s;
+							}),
+						$elm$core$Set$empty),
+					name: 'Dict to set'
+				},
+				$author$project$Internal$Tools$Json$slowDict($author$project$Internal$Tools$Json$bool)),
+			_default: _Utils_Tuple2($elm$core$Set$empty, _List_Nil),
+			defaultToString: $elm$core$Basics$always('{}'),
+			description: _List_fromArray(
+				['Experimental features the server supports. Features not listed here, or the lack of this property all together, indicate that a feature is not supported.']),
+			fieldName: 'unstable_features',
+			toField: function ($) {
+				return $.unstableFeatures;
+			}
+		}));
+var $author$project$Internal$Api$Versions$Api$versions = $author$project$Internal$Api$Api$request(
+	{
+		attributes: _List_Nil,
+		coder: $author$project$Internal$Api$Versions$Api$versionsCoder,
+		contextChange: $author$project$Internal$Values$Context$setVersions,
+		method: 'GET',
+		path: _List_fromArray(
+			['_matrix', 'client', 'versions']),
+		toUpdate: function (v) {
+			return _Utils_Tuple2(
+				$author$project$Internal$Values$Envelope$SetVersions(v),
+				_List_Nil);
+		}
+	});
+var $author$project$Internal$Api$Task$getVersions = function (c) {
+	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c).versions;
+	if (_v0.$ === 'Just') {
+		var v = _v0.a;
+		return A2(
+			$author$project$Internal$Api$Chain$succeed,
+			{
+				contextChange: $author$project$Internal$Values$Context$setVersions(v),
+				logs: _List_fromArray(
+					[
+						$author$project$Internal$Config$Log$log.debug('Using cached versions from Vault')
+					]),
+				messages: _List_Nil
+			},
+			c);
+	} else {
+		return $author$project$Internal$Api$Versions$Api$versions(c);
+	}
+};
+var $author$project$Internal$Api$Task$makeVB = A2($author$project$Internal$Api$Chain$andThen, $author$project$Internal$Api$Task$getVersions, $author$project$Internal$Api$Task$getBaseUrl);
+var $author$project$Internal$Api$Task$makeVBA = A2(
+	$author$project$Internal$Api$Chain$andThen,
+	$author$project$Internal$Api$Task$getAccessToken,
+	A2($author$project$Internal$Api$Chain$andThen, $author$project$Internal$Api$Task$getNow, $author$project$Internal$Api$Task$makeVB));
+var $author$project$Internal$Api$Request$Header = function (a) {
+	return {$: 'Header', a: a};
+};
+var $author$project$Internal$Values$Context$getAccessToken = function (_v0) {
+	var c = _v0.a;
+	return c.accessToken;
+};
+var $elm$http$Http$Header = F2(
+	function (a, b) {
+		return {$: 'Header', a: a, b: b};
+	});
+var $elm$http$Http$header = $elm$http$Http$Header;
+var $author$project$Internal$Api$Request$accessToken = A2(
+	$elm$core$Basics$composeR,
+	$author$project$Internal$Values$Context$getAccessToken,
+	A2(
+		$elm$core$Basics$composeR,
+		$elm$core$Basics$append('Bearer '),
+		A2(
+			$elm$core$Basics$composeR,
+			$elm$http$Http$header('Authorization'),
+			$author$project$Internal$Api$Request$Header)));
+var $author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV1 = function (eventId) {
+	return {eventId: eventId};
+};
+var $author$project$Internal$Api$SendMessageEvent$Api$coderV1 = A3(
+	$author$project$Internal$Tools$Json$object2,
+	{
+		description: _List_fromArray(
+			['This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room.', 'The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event.', 'https://spec.matrix.org/legacy/r0.0.0/client_server.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid']),
+		init: $elm$core$Basics$always($author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV1),
+		name: 'EventResponse'
+	},
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$value,
+			description: _List_fromArray(
+				['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+			fieldName: $author$project$Internal$Config$Leaks$field,
+			toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+		}),
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['A unique identifier for the event.']),
+			fieldName: 'event_id',
+			toField: function ($) {
+				return $.eventId;
+			}
+		}));
+var $author$project$Internal$Api$Request$FullBody = function (a) {
+	return {$: 'FullBody', a: a};
+};
+var $author$project$Internal$Api$Request$fullBody = F2(
+	function (value, _v0) {
+		return $author$project$Internal$Api$Request$FullBody(value);
+	});
+var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV1 = function (_v0) {
+	var transactionId = _v0.transactionId;
+	var roomId = _v0.roomId;
+	var eventType = _v0.eventType;
+	var content = _v0.content;
+	return $author$project$Internal$Api$Api$request(
+		{
+			attributes: _List_fromArray(
+				[
+					$author$project$Internal$Api$Request$accessToken,
+					$author$project$Internal$Api$Request$fullBody(content)
+				]),
+			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV1,
+			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
+			method: 'PUT',
+			path: _List_fromArray(
+				['_matrix', 'client', 'r0', 'rooms', roomId, 'send', eventType, transactionId]),
+			toUpdate: function (out) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$More(_List_Nil),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.debug(
+							$author$project$Internal$Config$Text$logs.sendEvent(out.eventId))));
+			}
+		});
+};
+var $author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV2 = function (eventId) {
+	return {eventId: eventId};
+};
+var $author$project$Internal$Api$SendMessageEvent$Api$coderV2 = A3(
+	$author$project$Internal$Tools$Json$object2,
+	{
+		description: _List_fromArray(
+			['This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room.', 'The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event.', 'https://spec.matrix.org/legacy/client_server/r0.6.1.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid']),
+		init: $elm$core$Basics$always($author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV2),
+		name: 'EventResponse'
+	},
+	$author$project$Internal$Tools$Json$field.optional.value(
+		{
+			coder: $author$project$Internal$Tools$Json$value,
+			description: _List_fromArray(
+				['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
+			fieldName: $author$project$Internal$Config$Leaks$field,
+			toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
+		}),
+	$author$project$Internal$Tools$Json$field.required(
+		{
+			coder: $author$project$Internal$Tools$Json$string,
+			description: _List_fromArray(
+				['A unique identifier for the event.']),
+			fieldName: 'event_id',
+			toField: function ($) {
+				return $.eventId;
+			}
+		}));
+var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV2 = function (_v0) {
+	var transactionId = _v0.transactionId;
+	var roomId = _v0.roomId;
+	var eventType = _v0.eventType;
+	var content = _v0.content;
+	return $author$project$Internal$Api$Api$request(
+		{
+			attributes: _List_fromArray(
+				[
+					$author$project$Internal$Api$Request$accessToken,
+					$author$project$Internal$Api$Request$fullBody(content)
+				]),
+			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV2,
+			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
+			method: 'PUT',
+			path: _List_fromArray(
+				['_matrix', 'client', 'r0', 'rooms', roomId, 'send', eventType, transactionId]),
+			toUpdate: function (out) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$More(_List_Nil),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.debug(
+							$author$project$Internal$Config$Text$logs.sendEvent(
+								$elm$core$Maybe$Just(out.eventId)))));
+			}
+		});
+};
+var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV3 = function (_v0) {
+	var transactionId = _v0.transactionId;
+	var roomId = _v0.roomId;
+	var eventType = _v0.eventType;
+	var content = _v0.content;
+	return $author$project$Internal$Api$Api$request(
+		{
+			attributes: _List_fromArray(
+				[
+					$author$project$Internal$Api$Request$accessToken,
+					$author$project$Internal$Api$Request$fullBody(content)
+				]),
+			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV2,
+			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
+			method: 'PUT',
+			path: _List_fromArray(
+				['_matrix', 'client', 'v3', 'rooms', roomId, 'send', eventType, transactionId]),
+			toUpdate: function (out) {
+				return _Utils_Tuple2(
+					$author$project$Internal$Values$Envelope$More(_List_Nil),
+					$elm$core$List$singleton(
+						$author$project$Internal$Config$Log$log.debug(
+							$author$project$Internal$Config$Text$logs.sendEvent(
+								$elm$core$Maybe$Just(out.eventId)))));
+			}
+		});
+};
+var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEvent = $author$project$Internal$Api$Api$versionChain(
+	A2(
+		$author$project$Internal$Api$Api$sameForVersion,
+		'v1.11',
+		A2(
+			$author$project$Internal$Api$Api$sameForVersion,
+			'v1.10',
+			A2(
+				$author$project$Internal$Api$Api$sameForVersion,
+				'v1.9',
+				A2(
+					$author$project$Internal$Api$Api$sameForVersion,
+					'v1.8',
+					A2(
+						$author$project$Internal$Api$Api$sameForVersion,
+						'v1.7',
+						A2(
+							$author$project$Internal$Api$Api$sameForVersion,
+							'v1.6',
+							A2(
+								$author$project$Internal$Api$Api$sameForVersion,
+								'v1.5',
+								A2(
+									$author$project$Internal$Api$Api$sameForVersion,
+									'v1.4',
+									A2(
+										$author$project$Internal$Api$Api$sameForVersion,
+										'v1.3',
+										A2(
+											$author$project$Internal$Api$Api$sameForVersion,
+											'v1.2',
+											A3(
+												$author$project$Internal$Api$Api$forVersion,
+												'v1.1',
+												$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV3,
+												A3(
+													$author$project$Internal$Api$Api$forVersion,
+													'r0.6.1',
+													$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV2,
+													A2(
+														$author$project$Internal$Api$Api$sameForVersion,
+														'r0.6.0',
+														A2(
+															$author$project$Internal$Api$Api$sameForVersion,
+															'r0.5.0',
+															A2(
+																$author$project$Internal$Api$Api$sameForVersion,
+																'r0.4.0',
+																A2(
+																	$author$project$Internal$Api$Api$sameForVersion,
+																	'r0.3.0',
+																	A2(
+																		$author$project$Internal$Api$Api$sameForVersion,
+																		'r0.2.0',
+																		A2(
+																			$author$project$Internal$Api$Api$sameForVersion,
+																			'r0.1.0',
+																			A2(
+																				$author$project$Internal$Api$Api$sameForVersion,
+																				'r0.0.1',
+																				A2($author$project$Internal$Api$Api$startWithVersion, 'r0.0.0', $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV1)))))))))))))))))))));
+var $author$project$Internal$Api$Task$sendMessageEvent = function (input) {
+	return $author$project$Internal$Api$Task$finishTask(
+		A2(
+			$author$project$Internal$Api$Chain$andThen,
+			$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEvent(input),
+			$author$project$Internal$Api$Task$makeVBA));
+};
+var $author$project$Internal$Api$Main$sendMessageEvent = F2(
+	function (env, data) {
+		return A3(
+			$author$project$Internal$Api$Task$run,
+			data.toMsg,
+			$author$project$Internal$Api$Task$sendMessageEvent(
+				{content: data.content, eventType: data.eventType, roomId: data.roomId, transactionId: data.transactionId}),
+			$author$project$Internal$Values$Context$apiFormat(env.context));
+	});
+var $author$project$Matrix$sendMessageEvent = function (data) {
+	var _v0 = data.vault;
+	var vault = _v0.a;
+	return A2(
+		$author$project$Internal$Api$Main$sendMessageEvent,
+		vault,
+		{
+			content: data.content,
+			eventType: data.eventType,
+			roomId: data.roomId,
+			toMsg: A2($elm$core$Basics$composeR, $author$project$Types$VaultUpdate, data.toMsg),
+			transactionId: data.transactionId
+		});
+};
+var $miniBill$elm_fast_dict$Internal$Black = {$: 'Black'};
+var $miniBill$elm_fast_dict$Internal$InnerNode = F5(
+	function (a, b, c, d, e) {
+		return {$: 'InnerNode', a: a, b: b, c: c, d: d, e: e};
+	});
+var $miniBill$elm_fast_dict$Internal$Red = {$: 'Red'};
+var $miniBill$elm_fast_dict$FastDict$balance = F5(
+	function (color, key, value, left, right) {
+		if ((right.$ === 'InnerNode') && (right.a.$ === 'Red')) {
+			var _v1 = right.a;
+			var rK = right.b;
+			var rV = right.c;
+			var rLeft = right.d;
+			var rRight = right.e;
+			if ((left.$ === 'InnerNode') && (left.a.$ === 'Red')) {
+				var _v3 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var lLeft = left.d;
+				var lRight = left.e;
+				return A5(
+					$miniBill$elm_fast_dict$Internal$InnerNode,
+					$miniBill$elm_fast_dict$Internal$Red,
+					key,
+					value,
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, lK, lV, lLeft, lRight),
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					$miniBill$elm_fast_dict$Internal$InnerNode,
+					color,
+					rK,
+					rV,
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, left, rLeft),
+					rRight);
+			}
+		} else {
+			if ((((left.$ === 'InnerNode') && (left.a.$ === 'Red')) && (left.d.$ === 'InnerNode')) && (left.d.a.$ === 'Red')) {
+				var _v5 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var _v6 = left.d;
+				var _v7 = _v6.a;
+				var llK = _v6.b;
+				var llV = _v6.c;
+				var llLeft = _v6.d;
+				var llRight = _v6.e;
+				var lRight = left.e;
+				return A5(
+					$miniBill$elm_fast_dict$Internal$InnerNode,
+					$miniBill$elm_fast_dict$Internal$Red,
+					lK,
+					lV,
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, llK, llV, llLeft, llRight),
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, key, value, lRight, right));
+			} else {
+				return A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, left, right);
+			}
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$insertHelp = F3(
+	function (key, value, dict) {
+		if (dict.$ === 'Leaf') {
+			return _Utils_Tuple2(
+				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, $miniBill$elm_fast_dict$Internal$Leaf, $miniBill$elm_fast_dict$Internal$Leaf),
+				true);
+		} else {
+			var nColor = dict.a;
+			var nKey = dict.b;
+			var nValue = dict.c;
+			var nLeft = dict.d;
+			var nRight = dict.e;
+			var _v1 = A2($elm$core$Basics$compare, key, nKey);
+			switch (_v1.$) {
+				case 'LT':
+					var _v2 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, nLeft);
+					var newLeft = _v2.a;
+					var isNew = _v2.b;
+					return _Utils_Tuple2(
+						A5($miniBill$elm_fast_dict$FastDict$balance, nColor, nKey, nValue, newLeft, nRight),
+						isNew);
+				case 'EQ':
+					return _Utils_Tuple2(
+						A5($miniBill$elm_fast_dict$Internal$InnerNode, nColor, nKey, value, nLeft, nRight),
+						false);
+				default:
+					var _v3 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, nRight);
+					var newRight = _v3.a;
+					var isNew = _v3.b;
+					return _Utils_Tuple2(
+						A5($miniBill$elm_fast_dict$FastDict$balance, nColor, nKey, nValue, nLeft, newRight),
+						isNew);
+			}
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$insertInner = F3(
+	function (key, value, dict) {
+		var _v0 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, dict);
+		if ((_v0.a.$ === 'InnerNode') && (_v0.a.a.$ === 'Red')) {
+			var _v1 = _v0.a;
+			var _v2 = _v1.a;
+			var k = _v1.b;
+			var v = _v1.c;
+			var l = _v1.d;
+			var r = _v1.e;
+			var isNew = _v0.b;
+			return _Utils_Tuple2(
+				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, k, v, l, r),
+				isNew);
+		} else {
+			var x = _v0;
+			return x;
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$insert = F3(
+	function (key, value, _v0) {
+		var sz = _v0.a;
+		var dict = _v0.b;
+		var _v1 = A3($miniBill$elm_fast_dict$FastDict$insertInner, key, value, dict);
+		var result = _v1.a;
+		var isNew = _v1.b;
+		return isNew ? A2($miniBill$elm_fast_dict$Internal$Dict, sz + 1, result) : A2($miniBill$elm_fast_dict$Internal$Dict, sz, result);
+	});
+var $author$project$Internal$Tools$Hashdict$insert = F2(
+	function (v, _v0) {
+		var h = _v0.a;
+		return $author$project$Internal$Tools$Hashdict$Hashdict(
+			_Utils_update(
+				h,
+				{
+					values: A3(
+						$miniBill$elm_fast_dict$FastDict$insert,
+						h.hash(v),
+						v,
+						h.values)
+				}));
+	});
+var $miniBill$elm_fast_dict$FastDict$getMinInner = function (n) {
+	getMinInner:
+	while (true) {
+		if (n.$ === 'Leaf') {
+			return $elm$core$Maybe$Nothing;
+		} else {
+			if (n.d.$ === 'Leaf') {
+				var k = n.b;
+				var v = n.c;
+				var _v1 = n.d;
+				return $elm$core$Maybe$Just(
+					_Utils_Tuple2(k, v));
+			} else {
+				var l = n.d;
+				var $temp$n = l;
+				n = $temp$n;
+				continue getMinInner;
+			}
+		}
+	}
+};
+var $miniBill$elm_fast_dict$FastDict$moveRedLeft = F5(
+	function (clr, k, v, left, right) {
+		if (left.$ === 'InnerNode') {
+			var lK = left.b;
+			var lV = left.c;
+			var lLeft = left.d;
+			var lRight = left.e;
+			if (right.$ === 'InnerNode') {
+				if ((right.d.$ === 'InnerNode') && (right.d.a.$ === 'Red')) {
+					var rK = right.b;
+					var rV = right.c;
+					var _v2 = right.d;
+					var _v3 = _v2.a;
+					var rlK = _v2.b;
+					var rlV = _v2.c;
+					var rlL = _v2.d;
+					var rlR = _v2.e;
+					var rRight = right.e;
+					return {
+						color: $miniBill$elm_fast_dict$Internal$Red,
+						k: rlK,
+						left: A5(
+							$miniBill$elm_fast_dict$Internal$InnerNode,
+							$miniBill$elm_fast_dict$Internal$Black,
+							k,
+							v,
+							A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
+							rlL),
+						right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, rK, rV, rlR, rRight),
+						v: rlV
+					};
+				} else {
+					var rK = right.b;
+					var rV = right.c;
+					var rLeft = right.d;
+					var rRight = right.e;
+					if (clr.$ === 'Black') {
+						return {
+							color: $miniBill$elm_fast_dict$Internal$Black,
+							k: k,
+							left: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
+							right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight),
+							v: v
+						};
+					} else {
+						return {
+							color: $miniBill$elm_fast_dict$Internal$Black,
+							k: k,
+							left: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
+							right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight),
+							v: v
+						};
+					}
+				}
+			} else {
+				return {color: clr, k: k, left: left, right: right, v: v};
+			}
+		} else {
+			return {color: clr, k: k, left: left, right: right, v: v};
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$moveRedRight = function (key) {
+	return function (value) {
+		return function (lK) {
+			return function (lV) {
+				return function (lLeft) {
+					return function (lRight) {
+						return function (rK) {
+							return function (rV) {
+								return function (rLeft) {
+									return function (rRight) {
+										if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
+											var _v1 = lLeft.a;
+											var llK = lLeft.b;
+											var llV = lLeft.c;
+											var llLeft = lLeft.d;
+											var llRight = lLeft.e;
+											return A5(
+												$miniBill$elm_fast_dict$Internal$InnerNode,
+												$miniBill$elm_fast_dict$Internal$Red,
+												lK,
+												lV,
+												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, llK, llV, llLeft, llRight),
+												A5(
+													$miniBill$elm_fast_dict$Internal$InnerNode,
+													$miniBill$elm_fast_dict$Internal$Black,
+													key,
+													value,
+													lRight,
+													A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight)));
+										} else {
+											return A5(
+												$miniBill$elm_fast_dict$Internal$InnerNode,
+												$miniBill$elm_fast_dict$Internal$Black,
+												key,
+												value,
+												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
+												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight));
+										}
+									};
+								};
+							};
+						};
+					};
+				};
+			};
+		};
+	};
+};
+var $miniBill$elm_fast_dict$FastDict$removeHelpPrepEQGT = F6(
+	function (dict, color, key, value, left, right) {
+		if (left.$ === 'InnerNode') {
+			if (left.a.$ === 'Red') {
+				var _v1 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var lLeft = left.d;
+				var lRight = left.e;
+				return A5(
+					$miniBill$elm_fast_dict$Internal$InnerNode,
+					color,
+					lK,
+					lV,
+					lLeft,
+					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, lRight, right));
+			} else {
+				var _v2 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var lLeft = left.d;
+				var lRight = left.e;
+				_v3$2:
+				while (true) {
+					if ((right.$ === 'InnerNode') && (right.a.$ === 'Black')) {
+						if (right.d.$ === 'InnerNode') {
+							if (right.d.a.$ === 'Black') {
+								var _v4 = right.a;
+								var rK = right.b;
+								var rV = right.c;
+								var rLeft = right.d;
+								var _v5 = rLeft.a;
+								var rRight = right.e;
+								return $miniBill$elm_fast_dict$FastDict$moveRedRight(key)(value)(lK)(lV)(lLeft)(lRight)(rK)(rV)(rLeft)(rRight);
+							} else {
+								break _v3$2;
+							}
+						} else {
+							var _v6 = right.a;
+							var rK = right.b;
+							var rV = right.c;
+							var _v7 = right.d;
+							var rRight = right.e;
+							return $miniBill$elm_fast_dict$FastDict$moveRedRight(key)(value)(lK)(lV)(lLeft)(lRight)(rK)(rV)($miniBill$elm_fast_dict$Internal$Leaf)(rRight);
+						}
+					} else {
+						break _v3$2;
+					}
+				}
+				return dict;
+			}
+		} else {
+			return dict;
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$removeMin = function (dict) {
+	if ((dict.$ === 'InnerNode') && (dict.d.$ === 'InnerNode')) {
+		var color = dict.a;
+		var key = dict.b;
+		var value = dict.c;
+		var left = dict.d;
+		var lColor = left.a;
+		var lLeft = left.d;
+		var right = dict.e;
+		if (lColor.$ === 'Black') {
+			if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
+				var _v3 = lLeft.a;
+				return A5(
+					$miniBill$elm_fast_dict$Internal$InnerNode,
+					color,
+					key,
+					value,
+					$miniBill$elm_fast_dict$FastDict$removeMin(left),
+					right);
+			} else {
+				var res = A5($miniBill$elm_fast_dict$FastDict$moveRedLeft, color, key, value, left, right);
+				return A5(
+					$miniBill$elm_fast_dict$FastDict$balance,
+					res.color,
+					res.k,
+					res.v,
+					$miniBill$elm_fast_dict$FastDict$removeMin(res.left),
+					res.right);
+			}
+		} else {
+			return A5(
+				$miniBill$elm_fast_dict$Internal$InnerNode,
+				color,
+				key,
+				value,
+				$miniBill$elm_fast_dict$FastDict$removeMin(left),
+				right);
+		}
+	} else {
+		return $miniBill$elm_fast_dict$Internal$Leaf;
+	}
+};
+var $miniBill$elm_fast_dict$FastDict$removeHelp = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'Leaf') {
+			return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, false);
+		} else {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_cmp(targetKey, key) < 0) {
+				if ((left.$ === 'InnerNode') && (left.a.$ === 'Black')) {
+					var _v6 = left.a;
+					var lLeft = left.d;
+					if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
+						var _v8 = lLeft.a;
+						var _v9 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, left);
+						var newLeft = _v9.a;
+						var wasMember = _v9.b;
+						return _Utils_Tuple2(
+							A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, newLeft, right),
+							wasMember);
+					} else {
+						var res = A5($miniBill$elm_fast_dict$FastDict$moveRedLeft, color, key, value, left, right);
+						var _v10 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, res.left);
+						var newLeft = _v10.a;
+						var wasMember = _v10.b;
+						return _Utils_Tuple2(
+							A5($miniBill$elm_fast_dict$FastDict$balance, res.color, res.k, res.v, newLeft, res.right),
+							wasMember);
+					}
+				} else {
+					var _v11 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, left);
+					var newLeft = _v11.a;
+					var wasMember = _v11.b;
+					return _Utils_Tuple2(
+						A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, newLeft, right),
+						wasMember);
+				}
+			} else {
+				return A2(
+					$miniBill$elm_fast_dict$FastDict$removeHelpEQGT,
+					targetKey,
+					A6($miniBill$elm_fast_dict$FastDict$removeHelpPrepEQGT, dict, color, key, value, left, right));
+			}
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$removeHelpEQGT = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'InnerNode') {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_eq(targetKey, key)) {
+				var _v1 = $miniBill$elm_fast_dict$FastDict$getMinInner(right);
+				if (_v1.$ === 'Just') {
+					var _v2 = _v1.a;
+					var minKey = _v2.a;
+					var minValue = _v2.b;
+					return _Utils_Tuple2(
+						A5(
+							$miniBill$elm_fast_dict$FastDict$balance,
+							color,
+							minKey,
+							minValue,
+							left,
+							$miniBill$elm_fast_dict$FastDict$removeMin(right)),
+						true);
+				} else {
+					return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, true);
+				}
+			} else {
+				var _v3 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, right);
+				var newRight = _v3.a;
+				var wasMember = _v3.b;
+				return _Utils_Tuple2(
+					A5($miniBill$elm_fast_dict$FastDict$balance, color, key, value, left, newRight),
+					wasMember);
+			}
+		} else {
+			return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, false);
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$removeInner = F2(
+	function (key, dict) {
+		var _v0 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, key, dict);
+		if ((_v0.a.$ === 'InnerNode') && (_v0.a.a.$ === 'Red')) {
+			var _v1 = _v0.a;
+			var _v2 = _v1.a;
+			var k = _v1.b;
+			var v = _v1.c;
+			var l = _v1.d;
+			var r = _v1.e;
+			var wasMember = _v0.b;
+			return _Utils_Tuple2(
+				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, k, v, l, r),
+				wasMember);
+		} else {
+			var x = _v0;
+			return x;
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$remove = F2(
+	function (key, orig) {
+		var sz = orig.a;
+		var dict = orig.b;
+		var _v0 = A2($miniBill$elm_fast_dict$FastDict$removeInner, key, dict);
+		var result = _v0.a;
+		var wasMember = _v0.b;
+		return wasMember ? A2($miniBill$elm_fast_dict$Internal$Dict, sz - 1, result) : orig;
+	});
+var $author$project$Internal$Tools$Hashdict$removeKey = F2(
+	function (k, _v0) {
+		var h = _v0.a;
+		return $author$project$Internal$Tools$Hashdict$Hashdict(
+			_Utils_update(
+				h,
+				{
+					values: A2($miniBill$elm_fast_dict$FastDict$remove, k, h.values)
+				}));
+	});
+var $author$project$Internal$Values$Envelope$update = F3(
+	function (updateContent, eu, data) {
+		update:
+		while (true) {
+			var context = data.context;
+			switch (eu.$) {
+				case 'ContentUpdate':
+					var v = eu.a;
+					return _Utils_update(
+						data,
+						{
+							content: A2(updateContent, v, data.content)
+						});
+				case 'HttpRequest':
+					return data;
+				case 'More':
+					var items = eu.a;
+					return A3(
+						$elm$core$List$foldl,
+						$author$project$Internal$Values$Envelope$update(updateContent),
+						data,
+						items);
+				case 'Optional':
+					if (eu.a.$ === 'Just') {
+						var u = eu.a.a;
+						var $temp$updateContent = updateContent,
+							$temp$eu = u,
+							$temp$data = data;
+						updateContent = $temp$updateContent;
+						eu = $temp$eu;
+						data = $temp$data;
+						continue update;
+					} else {
+						var _v1 = eu.a;
+						return data;
+					}
+				case 'RemoveAccessToken':
+					var token = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									accessTokens: A2($author$project$Internal$Tools$Hashdict$removeKey, token, context.accessTokens)
+								})
+						});
+				case 'RemovePasswordIfNecessary':
+					return data.settings.removePasswordOnLogin ? _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{password: $elm$core$Maybe$Nothing})
+						}) : data;
+				case 'SetAccessToken':
+					var a = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									accessTokens: A2($author$project$Internal$Tools$Hashdict$insert, a, context.accessTokens)
+								})
+						});
+				case 'SetBaseUrl':
+					var b = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									baseUrl: $elm$core$Maybe$Just(b)
+								})
+						});
+				case 'SetDeviceId':
+					var d = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									deviceId: $elm$core$Maybe$Just(d)
+								})
+						});
+				case 'SetNow':
+					var n = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									now: $elm$core$Maybe$Just(n)
+								})
+						});
+				case 'SetRefreshToken':
+					var r = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									refreshToken: $elm$core$Maybe$Just(r)
+								})
+						});
+				default:
+					var vs = eu.a;
+					return _Utils_update(
+						data,
+						{
+							context: _Utils_update(
+								context,
+								{
+									versions: $elm$core$Maybe$Just(vs)
+								})
+						});
+			}
+		}
+	});
+var $author$project$Internal$Values$StateManager$StateManager = function (a) {
+	return {$: 'StateManager', a: a};
+};
+var $author$project$Internal$Values$StateManager$empty = $author$project$Internal$Values$StateManager$StateManager($miniBill$elm_fast_dict$FastDict$empty);
+var $author$project$Internal$Values$Timeline$StartOfTimeline = {$: 'StartOfTimeline'};
+var $author$project$Internal$Values$Timeline$Timeline = function (a) {
+	return {$: 'Timeline', a: a};
+};
+var $author$project$Internal$Tools$Iddict$Iddict = function (a) {
+	return {$: 'Iddict', a: a};
+};
+var $author$project$Internal$Tools$Iddict$empty = $author$project$Internal$Tools$Iddict$Iddict(
+	{cursor: 0, dict: $miniBill$elm_fast_dict$FastDict$empty});
+var $author$project$Internal$Values$Timeline$empty = $author$project$Internal$Values$Timeline$Timeline(
+	{
+		batches: $author$project$Internal$Tools$Iddict$empty,
+		events: $miniBill$elm_fast_dict$FastDict$empty,
+		filledBatches: 0,
+		mostRecentBatch: $author$project$Internal$Values$Timeline$StartOfTimeline,
+		tokens: $author$project$Internal$Tools$Hashdict$empty(
+			function ($) {
+				return $.name;
+			})
+	});
+var $author$project$Internal$Values$Room$init = function (roomId) {
+	return {
+		accountData: $miniBill$elm_fast_dict$FastDict$empty,
+		events: $author$project$Internal$Tools$Hashdict$empty(
+			function ($) {
+				return $.eventId;
+			}),
+		roomId: roomId,
+		state: $author$project$Internal$Values$StateManager$empty,
+		timeline: $author$project$Internal$Values$Timeline$empty
+	};
+};
+var $miniBill$elm_fast_dict$FastDict$getInner = F2(
+	function (targetKey, dict) {
+		getInner:
+		while (true) {
+			if (dict.$ === 'Leaf') {
+				return $elm$core$Maybe$Nothing;
+			} else {
+				var key = dict.b;
+				var value = dict.c;
+				var left = dict.d;
+				var right = dict.e;
+				var _v1 = A2($elm$core$Basics$compare, targetKey, key);
+				switch (_v1.$) {
+					case 'LT':
+						var $temp$targetKey = targetKey,
+							$temp$dict = left;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue getInner;
+					case 'EQ':
+						return $elm$core$Maybe$Just(value);
+					default:
+						var $temp$targetKey = targetKey,
+							$temp$dict = right;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue getInner;
+				}
+			}
+		}
+	});
+var $miniBill$elm_fast_dict$FastDict$get = F2(
+	function (targetKey, _v0) {
+		var dict = _v0.b;
+		return A2($miniBill$elm_fast_dict$FastDict$getInner, targetKey, dict);
+	});
+var $miniBill$elm_fast_dict$FastDict$update = F3(
+	function (targetKey, alter, dictionary) {
+		var _v0 = alter(
+			A2($miniBill$elm_fast_dict$FastDict$get, targetKey, dictionary));
+		if (_v0.$ === 'Just') {
+			var value = _v0.a;
+			return A3($miniBill$elm_fast_dict$FastDict$insert, targetKey, value, dictionary);
+		} else {
+			return A2($miniBill$elm_fast_dict$FastDict$remove, targetKey, dictionary);
+		}
+	});
+var $author$project$Internal$Tools$Hashdict$map = F3(
+	function (key, f, _v0) {
+		var h = _v0.a;
+		return $author$project$Internal$Tools$Hashdict$Hashdict(
+			_Utils_update(
+				h,
+				{
+					values: A3(
+						$miniBill$elm_fast_dict$FastDict$update,
+						key,
+						$elm$core$Maybe$map(
+							function (value) {
+								var newValue = f(value);
+								return _Utils_eq(
+									h.hash(newValue),
+									h.hash(value)) ? newValue : value;
+							}),
+						h.values)
+				}));
+	});
+var $author$project$Internal$Values$Vault$mapRoom = F3(
+	function (roomId, f, vault) {
+		return _Utils_update(
+			vault,
+			{
+				rooms: A3($author$project$Internal$Tools$Hashdict$map, roomId, f, vault.rooms)
+			});
+	});
+var $author$project$Internal$Values$Vault$setAccountData = F3(
+	function (key, value, vault) {
+		return _Utils_update(
+			vault,
+			{
+				accountData: A3($miniBill$elm_fast_dict$FastDict$insert, key, value, vault.accountData)
+			});
+	});
+var $author$project$Internal$Values$Room$addEventsToTimeline = F3(
+	function (f, _v0, room) {
+		var end = _v0.end;
+		var start = _v0.start;
+		var filter = _v0.filter;
+		var events = _v0.events;
+		var batch = {
+			end: end,
+			events: A2(
+				$elm$core$List$map,
+				function ($) {
+					return $.eventId;
+				},
+				events),
+			filter: filter,
+			start: start
+		};
+		return _Utils_update(
+			room,
+			{
+				events: A3($elm$core$List$foldl, $author$project$Internal$Tools$Hashdict$insert, room.events, events),
+				timeline: A2(f, batch, room.timeline)
+			});
+	});
+var $author$project$Internal$Values$Timeline$connectITokenToIToken = F3(
+	function (pointer1, pointer2, _v0) {
+		var tl = _v0.a;
+		var _v1 = _Utils_Tuple2(pointer1, pointer2);
+		if ((_v1.a.$ === 'ITokenPTR') && (_v1.b.$ === 'ITokenPTR')) {
+			var early = _v1.a.a;
+			var late = _v1.b.a;
+			return _Utils_eq(early, late) ? $author$project$Internal$Values$Timeline$Timeline(tl) : $author$project$Internal$Values$Timeline$Timeline(
+				_Utils_update(
+					tl,
+					{
+						tokens: A3(
+							$author$project$Internal$Tools$Hashdict$map,
+							late,
+							function (data) {
+								return _Utils_update(
+									data,
+									{
+										inFrontOf: A2($elm$core$Set$insert, early, data.inFrontOf)
+									});
+							},
+							A3(
+								$author$project$Internal$Tools$Hashdict$map,
+								early,
+								function (data) {
+									return _Utils_update(
+										data,
+										{
+											behind: A2($elm$core$Set$insert, late, data.behind)
+										});
+								},
+								tl.tokens))
+					}));
+		} else {
+			return $author$project$Internal$Values$Timeline$Timeline(tl);
+		}
+	});
+var $author$project$Internal$Values$Timeline$IBatchPTR = function (a) {
+	return {$: 'IBatchPTR', a: a};
+};
+var $author$project$Internal$Tools$Iddict$map = F3(
+	function (k, f, _v0) {
+		var d = _v0.a;
+		return $author$project$Internal$Tools$Iddict$Iddict(
+			_Utils_update(
+				d,
+				{
+					dict: A3(
+						$miniBill$elm_fast_dict$FastDict$update,
+						k,
+						$elm$core$Maybe$map(f),
+						d.dict)
+				}));
+	});
+var $author$project$Internal$Values$Timeline$connectIBatchToIToken = F3(
+	function (_v0, pointer, _v1) {
+		var bptr = _v0.a;
+		var tl = _v1.a;
+		if (pointer.$ === 'StartOfTimeline') {
+			return $author$project$Internal$Values$Timeline$Timeline(tl);
+		} else {
+			var tptr = pointer.a;
+			return $author$project$Internal$Values$Timeline$Timeline(
+				_Utils_update(
+					tl,
+					{
+						batches: A3(
+							$author$project$Internal$Tools$Iddict$map,
+							bptr,
+							function (batch) {
+								return _Utils_update(
+									batch,
+									{end: pointer});
+							},
+							tl.batches),
+						tokens: A3(
+							$author$project$Internal$Tools$Hashdict$map,
+							tptr,
+							function (token) {
+								return _Utils_update(
+									token,
+									{
+										ends: A2($elm$core$Set$insert, bptr, token.ends)
+									});
+							},
+							tl.tokens)
+					}));
+		}
+	});
+var $author$project$Internal$Values$Timeline$connectITokenToIBatch = F3(
+	function (pointer, _v0, _v1) {
+		var bptr = _v0.a;
+		var tl = _v1.a;
+		if (pointer.$ === 'StartOfTimeline') {
+			return $author$project$Internal$Values$Timeline$Timeline(tl);
+		} else {
+			var tptr = pointer.a;
+			return $author$project$Internal$Values$Timeline$Timeline(
+				_Utils_update(
+					tl,
+					{
+						batches: A3(
+							$author$project$Internal$Tools$Iddict$map,
+							bptr,
+							function (batch) {
+								return _Utils_update(
+									batch,
+									{start: pointer});
+							},
+							tl.batches),
+						tokens: A3(
+							$author$project$Internal$Tools$Hashdict$map,
+							tptr,
+							function (token) {
+								return _Utils_update(
+									token,
+									{
+										starts: A2($elm$core$Set$insert, bptr, token.starts)
+									});
+							},
+							tl.tokens)
+					}));
+		}
+	});
+var $author$project$Internal$Tools$Iddict$insert = F2(
+	function (v, _v0) {
+		var d = _v0.a;
+		return _Utils_Tuple2(
+			d.cursor,
+			$author$project$Internal$Tools$Iddict$Iddict(
+				{
+					cursor: d.cursor + 1,
+					dict: A3($miniBill$elm_fast_dict$FastDict$insert, d.cursor, v, d.dict)
+				}));
+	});
+var $author$project$Internal$Values$Timeline$insertIBatch = F2(
+	function (ibatch, _v0) {
+		var tl = _v0.a;
+		var _v1 = A2($author$project$Internal$Tools$Iddict$insert, ibatch, tl.batches);
+		var batchPTR = _v1.a;
+		var newBatches = _v1.b;
+		return A3(
+			$author$project$Internal$Values$Timeline$connectIBatchToIToken,
+			$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
+			ibatch.end,
+			A3(
+				$author$project$Internal$Values$Timeline$connectITokenToIBatch,
+				ibatch.start,
+				$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
+				$author$project$Internal$Values$Timeline$Timeline(
+					_Utils_update(
+						tl,
+						{
+							batches: newBatches,
+							events: A3(
+								$elm$core$List$foldl,
+								F2(
+									function (event, dict) {
+										return A3(
+											$miniBill$elm_fast_dict$FastDict$update,
+											event,
+											function (value) {
+												if (value.$ === 'Nothing') {
+													return $elm$core$Maybe$Just(
+														_Utils_Tuple2(
+															$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
+															_List_Nil));
+												} else {
+													var _v3 = value.a;
+													var head = _v3.a;
+													var tail = _v3.b;
+													return $elm$core$Maybe$Just(
+														_Utils_Tuple2(
+															$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
+															A2($elm$core$List$cons, head, tail)));
+												}
+											},
+											dict);
+									}),
+								tl.events,
+								ibatch.events),
+							filledBatches: $elm$core$List$isEmpty(ibatch.events) ? tl.filledBatches : (tl.filledBatches + 1)
+						}))));
+	});
+var $author$project$Internal$Values$Timeline$ITokenPTR = function (a) {
+	return {$: 'ITokenPTR', a: a};
+};
+var $author$project$Internal$Tools$Hashdict$get = F2(
+	function (k, _v0) {
+		var h = _v0.a;
+		return A2($miniBill$elm_fast_dict$FastDict$get, k, h.values);
+	});
+var $author$project$Internal$Values$Timeline$invokeIToken = F2(
+	function (value, _v0) {
+		var tl = _v0.a;
+		return _Utils_Tuple2(
+			$author$project$Internal$Values$Timeline$ITokenPTR(value),
+			$author$project$Internal$Values$Timeline$Timeline(
+				_Utils_update(
+					tl,
+					{
+						tokens: function () {
+							var _v1 = A2($author$project$Internal$Tools$Hashdict$get, value, tl.tokens);
+							if (_v1.$ === 'Just') {
+								return tl.tokens;
+							} else {
+								return A2(
+									$author$project$Internal$Tools$Hashdict$insert,
+									{behind: $elm$core$Set$empty, ends: $elm$core$Set$empty, inFrontOf: $elm$core$Set$empty, name: value, starts: $elm$core$Set$empty},
+									tl.tokens);
+							}
+						}()
+					})));
+	});
+var $author$project$Internal$Values$Timeline$insertBatch = F2(
+	function (batch, timeline) {
+		var _v0 = batch.start;
+		if (_v0.$ === 'Just') {
+			var start = _v0.a;
+			return function (_v1) {
+				var startPTR = _v1.a;
+				var _v2 = _v1.b;
+				var endPTR = _v2.a;
+				var newTimeline = _v2.b;
+				return _Utils_Tuple2(
+					A2(
+						$author$project$Internal$Values$Timeline$insertIBatch,
+						{end: endPTR, events: batch.events, filter: batch.filter, start: startPTR},
+						newTimeline),
+					{end: endPTR, start: startPTR});
+			}(
+				A2(
+					$elm$core$Tuple$mapSecond,
+					$author$project$Internal$Values$Timeline$invokeIToken(batch.end),
+					A2($author$project$Internal$Values$Timeline$invokeIToken, start, timeline)));
+		} else {
+			return function (_v3) {
+				var endPTR = _v3.a;
+				var newTimeline = _v3.b;
+				return _Utils_Tuple2(
+					A2(
+						$author$project$Internal$Values$Timeline$insertIBatch,
+						{end: endPTR, events: batch.events, filter: batch.filter, start: $author$project$Internal$Values$Timeline$StartOfTimeline},
+						newTimeline),
+					{end: endPTR, start: $author$project$Internal$Values$Timeline$StartOfTimeline});
+			}(
+				A2($author$project$Internal$Values$Timeline$invokeIToken, batch.end, timeline));
+		}
+	});
+var $author$project$Internal$Values$Timeline$addSync = F2(
+	function (batch, timeline) {
+		var _v0 = A2($author$project$Internal$Values$Timeline$insertBatch, batch, timeline);
+		var t = _v0.a.a;
+		var end = _v0.b.end;
+		var start = _v0.b.start;
+		var old = t.mostRecentBatch;
+		var _v1 = $author$project$Internal$Values$Timeline$Timeline(
+			_Utils_update(
+				t,
+				{mostRecentBatch: end}));
+		var tl = _v1;
+		return _Utils_eq(old, start) ? tl : A3($author$project$Internal$Values$Timeline$connectITokenToIToken, old, start, tl);
+	});
+var $author$project$Internal$Values$Room$addSync = $author$project$Internal$Values$Room$addEventsToTimeline($author$project$Internal$Values$Timeline$addSync);
+var $author$project$Internal$Values$Room$setAccountData = F3(
+	function (key, value, room) {
+		return _Utils_update(
+			room,
+			{
+				accountData: A3($miniBill$elm_fast_dict$FastDict$insert, key, value, room.accountData)
+			});
+	});
+var $author$project$Internal$Values$Room$update = F2(
+	function (ru, room) {
+		switch (ru.$) {
+			case 'AddEvent':
+				return room;
+			case 'AddSync':
+				var batch = ru.a;
+				return A2($author$project$Internal$Values$Room$addSync, batch, room);
+			case 'Invite':
+				return room;
+			case 'More':
+				var items = ru.a;
+				return A3($elm$core$List$foldl, $author$project$Internal$Values$Room$update, room, items);
+			default:
+				var key = ru.a;
+				var value = ru.b;
+				return A3($author$project$Internal$Values$Room$setAccountData, key, value, room);
+		}
+	});
+var $author$project$Internal$Tools$Hashdict$update = F3(
+	function (key, f, hd) {
+		var h = hd.a;
+		var _v0 = f(
+			A2($author$project$Internal$Tools$Hashdict$get, key, hd));
+		if (_v0.$ === 'Just') {
+			var v = _v0.a;
+			return _Utils_eq(
+				h.hash(v),
+				key) ? A2($author$project$Internal$Tools$Hashdict$insert, v, hd) : hd;
+		} else {
+			return A2($author$project$Internal$Tools$Hashdict$removeKey, key, hd);
+		}
+	});
+var $author$project$Internal$Values$Vault$updateRoom = F3(
+	function (roomId, f, vault) {
+		return _Utils_update(
+			vault,
+			{
+				rooms: A3($author$project$Internal$Tools$Hashdict$update, roomId, f, vault.rooms)
+			});
+	});
+var $author$project$Internal$Values$Vault$update = F2(
+	function (vu, vault) {
+		switch (vu.$) {
+			case 'CreateRoomIfNotExists':
+				var roomId = vu.a;
+				return A3(
+					$author$project$Internal$Values$Vault$updateRoom,
+					roomId,
+					A2(
+						$elm$core$Basics$composeR,
+						$elm$core$Maybe$withDefault(
+							$author$project$Internal$Values$Room$init(roomId)),
+						$elm$core$Maybe$Just),
+					vault);
+			case 'MapRoom':
+				var roomId = vu.a;
+				var ru = vu.b;
+				return A3(
+					$author$project$Internal$Values$Vault$mapRoom,
+					roomId,
+					$author$project$Internal$Values$Room$update(ru),
+					vault);
+			case 'More':
+				var items = vu.a;
+				return A3($elm$core$List$foldl, $author$project$Internal$Values$Vault$update, vault, items);
+			case 'SetAccountData':
+				var key = vu.a;
+				var value = vu.b;
+				return A3($author$project$Internal$Values$Vault$setAccountData, key, value, vault);
+			default:
+				var user = vu.a;
+				return _Utils_update(
+					vault,
+					{
+						user: $elm$core$Maybe$Just(user)
+					});
+		}
+	});
+var $author$project$Matrix$update = F2(
+	function (_v0, _v1) {
+		var vu = _v0.a;
+		var vault = _v1.a;
+		return $author$project$Types$Vault(
+			A3(
+				$elm$core$List$foldl,
+				$author$project$Internal$Values$Envelope$update($author$project$Internal$Values$Vault$update),
+				vault,
+				vu.messages));
+	});
+var $author$project$Main$update = F2(
+	function (msg, model) {
+		switch (msg.$) {
+			case 'GetInput':
+				var text = msg.a;
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{text: text}),
+					$elm$core$Platform$Cmd$none);
+			case 'OnSendInput':
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{num: model.num + 1}),
+					function () {
+						var _v1 = model.vault;
+						if (_v1.$ === 'Nothing') {
+							return $elm$core$Platform$Cmd$none;
+						} else {
+							var v = _v1.a;
+							return $author$project$Matrix$sendMessageEvent(
+								{
+									content: $elm$json$Json$Encode$object(
+										_List_fromArray(
+											[
+												_Utils_Tuple2(
+												'body',
+												$elm$json$Json$Encode$string(model.text)),
+												_Utils_Tuple2(
+												'msgtype',
+												$elm$json$Json$Encode$string('m.text'))
+											])),
+									eventType: 'm.room.message',
+									roomId: model.roomId,
+									toMsg: $author$project$Main$SentEvent,
+									transactionId: 'elm-sdk-test-' + $elm$core$String$fromInt(model.num),
+									vault: v
+								});
+						}
+					}());
+			default:
+				var vu = msg.a;
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							vault: A2(
+								$elm$core$Maybe$map,
+								$author$project$Matrix$update(vu),
+								model.vault)
+						}),
+					$elm$core$Platform$Cmd$none);
+		}
+	});
+var $author$project$Main$GetInput = function (a) {
+	return {$: 'GetInput', a: a};
+};
+var $author$project$Main$OnSendInput = {$: 'OnSendInput'};
+var $author$project$Main$view = function (model) {
+	return {
+		body: _List_fromArray(
+			[
+				A2(
+				$elm$html$Html$input,
+				_List_fromArray(
+					[
+						$elm$html$Html$Attributes$type_('text'),
+						$elm$html$Html$Attributes$value(model.text),
+						$elm$html$Html$Events$onInput($author$project$Main$GetInput)
+					]),
+				_List_Nil),
+				function () {
+				var _v0 = model.vault;
+				if (_v0.$ === 'Just') {
+					return A2(
+						$elm$html$Html$button,
+						_List_fromArray(
+							[
+								$elm$html$Html$Events$onClick($author$project$Main$OnSendInput)
+							]),
+						_List_fromArray(
+							[
+								$elm$html$Html$text('SEND')
+							]));
+				} else {
+					return A2(
+						$elm$html$Html$div,
+						_List_fromArray(
+							[
+								$elm$html$Html$Attributes$class('no-button-here')
+							]),
+						_List_Nil);
+				}
+			}()
+			]),
+		title: 'Elm SDK demo'
+	};
+};
+var $author$project$Main$main = $elm$browser$Browser$document(
+	{init: $author$project$Main$init, subscriptions: $author$project$Main$subscriptions, update: $author$project$Main$update, view: $author$project$Main$view});
+_Platform_export({'Main':{'init':$author$project$Main$main(
+	$elm$json$Json$Decode$succeed(_Utils_Tuple0))({"versions":{"elm":"0.19.1"},"types":{"message":"Main.Msg","aliases":{"Matrix.VaultUpdate":{"args":[],"type":"Types.VaultUpdate"},"Internal.Api.Task.Backpack":{"args":[],"type":"{ messages : List.List (Internal.Values.Envelope.EnvelopeUpdate Internal.Values.Vault.VaultUpdate), logs : List.List Internal.Config.Log.Log }"},"Internal.Config.Log.Log":{"args":[],"type":"{ channel : String.String, content : String.String }"},"Internal.Api.Main.Msg":{"args":[],"type":"Internal.Api.Task.Backpack"},"Internal.Values.Context.AccessToken":{"args":[],"type":"{ created : Internal.Tools.Timestamp.Timestamp, expiryMs : Maybe.Maybe Basics.Int, lastUsed : Internal.Tools.Timestamp.Timestamp, refresh : Maybe.Maybe String.String, value : String.String }"},"Internal.Api.Request.Request":{"args":["x","a"],"type":"{ headers : List.List Http.Header, body : Http.Body, method : String.String, url : String.String, resolver : Http.Resolver x a, timeout : Maybe.Maybe Basics.Float }"},"Internal.Grammar.ServerName.ServerName":{"args":[],"type":"{ host : Internal.Grammar.ServerName.HostName, port_ : Maybe.Maybe Basics.Int }"},"Internal.Tools.Timestamp.Timestamp":{"args":[],"type":"Time.Posix"},"Internal.Values.User.User":{"args":[],"type":"Internal.Grammar.UserId.UserID"},"Internal.Grammar.UserId.UserID":{"args":[],"type":"{ localpart : String.String, domain : Internal.Grammar.ServerName.ServerName }"},"Internal.Tools.Json.Value":{"args":[],"type":"Json.Encode.Value"},"Internal.Values.Context.Versions":{"args":[],"type":"{ versions : List.List String.String, unstableFeatures : Set.Set String.String }"},"Internal.Values.Room.Batch":{"args":[],"type":"{ events : List.List Internal.Values.Event.Event, filter : Internal.Filter.Timeline.Filter, start : Maybe.Maybe String.String, end : String.String }"},"Internal.Values.Event.Event":{"args":[],"type":"{ content : Internal.Tools.Json.Value, eventId : String.String, originServerTs : Internal.Tools.Timestamp.Timestamp, roomId : String.String, sender : Internal.Values.User.User, stateKey : Maybe.Maybe String.String, eventType : String.String, unsigned : Maybe.Maybe Internal.Values.Event.UnsignedData }"},"Internal.Grammar.ServerName.IPv6Address":{"args":[],"type":"{ front : List.List String.String, back : List.List String.String }"}},"unions":{"Main.Msg":{"args":[],"tags":{"GetInput":["String.String"],"OnSendInput":[],"SentEvent":["Matrix.VaultUpdate"]}},"String.String":{"args":[],"tags":{"String":[]}},"Types.VaultUpdate":{"args":[],"tags":{"VaultUpdate":["Internal.Api.Main.Msg"]}},"Internal.Values.Envelope.EnvelopeUpdate":{"args":["a"],"tags":{"ContentUpdate":["a"],"HttpRequest":["Internal.Api.Request.Request ( Internal.Api.Request.Error, List.List Internal.Config.Log.Log ) ( Internal.Values.Envelope.EnvelopeUpdate a, List.List Internal.Config.Log.Log )"],"More":["List.List (Internal.Values.Envelope.EnvelopeUpdate a)"],"Optional":["Maybe.Maybe (Internal.Values.Envelope.EnvelopeUpdate a)"],"RemoveAccessToken":["String.String"],"RemovePasswordIfNecessary":[],"SetAccessToken":["Internal.Values.Context.AccessToken"],"SetBaseUrl":["String.String"],"SetDeviceId":["String.String"],"SetNow":["Internal.Tools.Timestamp.Timestamp"],"SetRefreshToken":["String.String"],"SetVersions":["Internal.Values.Context.Versions"]}},"List.List":{"args":["a"],"tags":{}},"Internal.Values.Vault.VaultUpdate":{"args":[],"tags":{"CreateRoomIfNotExists":["String.String"],"MapRoom":["String.String","Internal.Values.Room.RoomUpdate"],"More":["List.List Internal.Values.Vault.VaultUpdate"],"SetAccountData":["String.String","Internal.Tools.Json.Value"],"SetUser":["Internal.Values.User.User"]}},"Http.Body":{"args":[],"tags":{"Body":[]}},"Internal.Api.Request.Error":{"args":[],"tags":{"InternetException":["Http.Error"],"MissingUsername":[],"MissingPassword":[],"NoSupportedVersion":[],"ServerReturnsBadJSON":["String.String"],"ServerReturnsError":["String.String","Internal.Tools.Json.Value"]}},"Basics.Float":{"args":[],"tags":{"Float":[]}},"Http.Header":{"args":[],"tags":{"Header":["String.String","String.String"]}},"Internal.Grammar.ServerName.HostName":{"args":[],"tags":{"DNS":["String.String"],"IPv6":["Internal.Grammar.ServerName.IPv6Address"]}},"Basics.Int":{"args":[],"tags":{"Int":[]}},"Maybe.Maybe":{"args":["a"],"tags":{"Just":["a"],"Nothing":[]}},"Time.Posix":{"args":[],"tags":{"Posix":["Basics.Int"]}},"Http.Resolver":{"args":["x","a"],"tags":{"Resolver":[]}},"Internal.Values.Room.RoomUpdate":{"args":[],"tags":{"AddEvent":["Internal.Values.Event.Event"],"AddSync":["Internal.Values.Room.Batch"],"Invite":["Internal.Values.User.User"],"More":["List.List Internal.Values.Room.RoomUpdate"],"SetAccountData":["String.String","Internal.Tools.Json.Value"]}},"Set.Set":{"args":["t"],"tags":{"Set_elm_builtin":["Dict.Dict t ()"]}},"Json.Encode.Value":{"args":[],"tags":{"Value":[]}},"Dict.Dict":{"args":["k","v"],"tags":{"RBNode_elm_builtin":["Dict.NColor","k","v","Dict.Dict k v","Dict.Dict k v"],"RBEmpty_elm_builtin":[]}},"Http.Error":{"args":[],"tags":{"BadUrl":["String.String"],"Timeout":[],"NetworkError":[],"BadStatus":["Basics.Int"],"BadBody":["String.String"]}},"Internal.Filter.Timeline.Filter":{"args":[],"tags":{"Filter":["{ senders : Set.Set String.String, sendersAllowOthers : Basics.Bool, types : Set.Set String.String, typesAllowOthers : Basics.Bool }"]}},"Internal.Values.Event.UnsignedData":{"args":[],"tags":{"UnsignedData":["{ age : Maybe.Maybe Basics.Int, prevContent : Maybe.Maybe Internal.Tools.Json.Value, redactedBecause : Maybe.Maybe Internal.Values.Event.Event, transactionId : Maybe.Maybe String.String }"]}},"Basics.Bool":{"args":[],"tags":{"True":[],"False":[]}},"Dict.NColor":{"args":[],"tags":{"Red":[],"Black":[]}}}}})}});}(this));
+
+  var app = Elm.Main.init({ node: document.getElementById("elm") });
+}
+catch (e)
+{
+  // display initialization errors (e.g. bad flags, infinite recursion)
+  var header = document.createElement("h1");
+  header.style.fontFamily = "monospace";
+  header.innerText = "Initialization Error";
+  var pre = document.getElementById("elm");
+  document.body.insertBefore(header, pre);
+  pre.innerText = e;
+  throw e;
+}
+</script>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
index 5ae8f29..17d121d 100644
--- a/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
+++ b/src/Internal/Api/LoginWithUsernameAndPassword/Api.elm
@@ -232,6 +232,7 @@ loginWithUsernameAndPasswordV2 { deviceId, initialDeviceDisplayName, username, p
                             , refresh = Nothing
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
@@ -283,6 +284,7 @@ loginWithUsernameAndPasswordV3 { deviceId, initialDeviceDisplayName, username, p
                             , refresh = Nothing
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
@@ -334,6 +336,7 @@ loginWithUsernameAndPasswordV4 { deviceId, initialDeviceDisplayName, username, p
                             , refresh = Nothing
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
@@ -389,6 +392,7 @@ loginWithUsernameAndPasswordV5 { deviceId, initialDeviceDisplayName, username, p
                             , refresh = Nothing
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
@@ -445,6 +449,7 @@ loginWithUsernameAndPasswordV6 { deviceId, enableRefreshToken, initialDeviceDisp
                             , refresh = out.refreshToken
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , out.user
                             |> Maybe.map (V.SetUser >> E.ContentUpdate)
                             |> E.Optional
@@ -501,6 +506,7 @@ loginWithUsernameAndPasswordV7 { deviceId, enableRefreshToken, initialDeviceDisp
                             , refresh = out.refreshToken
                             , value = out.accessToken
                             }
+                        , E.RemovePasswordIfNecessary
                         , E.ContentUpdate (V.SetUser out.user)
                         , out.wellKnown
                             |> Maybe.map (.homeserver >> .baseUrl)
diff --git a/src/Matrix.elm b/src/Matrix.elm
index b9da8e7..0991107 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -57,6 +57,9 @@ type alias VaultUpdate =
     Types.VaultUpdate
 
 
+{-| Adds a custom access token to the Vault. This can be done if no password is
+provided or known.
+-}
 addAccessToken : String -> Vault -> Vault
 addAccessToken token (Vault vault) =
     Envelope.mapContext (\c -> { c | suggestedAccessToken = Just token }) vault
@@ -74,16 +77,18 @@ addAccessToken token (Vault vault) =
 
 -}
 fromUserId : String -> Maybe Vault
-fromUserId =
-    User.fromString
-        >> Maybe.map
+fromUserId uid =
+    uid
+        |> User.fromString
+        |> Maybe.map
             (\u ->
                 Envelope.init
                     { serverName = "https://" ++ User.domain u
-                    , content = Internal.init u
+                    , content = Internal.init (Just u)
                     }
+                    |> Envelope.mapContext (\c -> { c | username = Just uid })
             )
-        >> Maybe.map Vault
+        |> Maybe.map Vault
 
 
 {-| Send a message event to a room.

From 85d767414de168333f969c3644f10758dec98864 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 13:54:30 +0200
Subject: [PATCH 34/36] Make username optional

---
 src/Internal/Values/Vault.elm | 12 ++++----
 src/Matrix.elm                | 53 +++++++++++++++++++++++++++--------
 tests/Test/Values/Vault.elm   |  2 +-
 3 files changed, 49 insertions(+), 18 deletions(-)

diff --git a/src/Internal/Values/Vault.elm b/src/Internal/Values/Vault.elm
index 5153553..2725744 100644
--- a/src/Internal/Values/Vault.elm
+++ b/src/Internal/Values/Vault.elm
@@ -45,7 +45,7 @@ import Internal.Values.User as User exposing (User)
 type alias Vault =
     { accountData : Dict String Json.Value
     , rooms : Hashdict Room
-    , user : User
+    , user : Maybe User
     }
 
 
@@ -81,7 +81,7 @@ coder =
             , coder = Hashdict.coder .roomId Room.coder
             }
         )
-        (Json.field.required
+        (Json.field.optional.value
             { fieldName = "user"
             , toField = .user
             , description = Text.fields.vault.user
@@ -106,11 +106,11 @@ getAccountData key vault =
 
 {-| Initiate a new Vault type.
 -}
-init : User -> Vault
-init user =
+init : Maybe User -> Vault
+init mUser =
     { accountData = Dict.empty
     , rooms = Hashdict.empty .roomId
-    , user = user
+    , user = mUser
     }
 
 
@@ -156,4 +156,4 @@ update vu vault =
             setAccountData key value vault
 
         SetUser user ->
-            { vault | user = user }
+            { vault | user = Just user }
diff --git a/src/Matrix.elm b/src/Matrix.elm
index 0991107..f59136a 100644
--- a/src/Matrix.elm
+++ b/src/Matrix.elm
@@ -1,5 +1,5 @@
 module Matrix exposing
-    ( Vault, fromUserId
+    ( Vault, fromUserId, fromUsername
     , VaultUpdate, update
     , addAccessToken, sendMessageEvent
     )
@@ -19,7 +19,7 @@ support a monolithic public registry. (:
 
 ## Vault
 
-@docs Vault, fromUserId
+@docs Vault, fromUserId, fromUsername
 
 
 ## Keeping the Vault up-to-date
@@ -91,6 +91,27 @@ fromUserId uid =
         |> Maybe.map Vault
 
 
+{-| Using a username and an address, create a Vault.
+
+The username can either be the localpart or the full Matrix ID. For example,
+you can either insert `alice` or `@alice:example.org`.
+
+-}
+fromUsername : { username : String, host : String, port_ : Maybe Int } -> Vault
+fromUsername { username, host, port_ } =
+    { serverName =
+        port_
+            |> Maybe.map String.fromInt
+            |> Maybe.map ((++) ":")
+            |> Maybe.withDefault ""
+            |> (++) host
+    , content = Internal.init (User.fromString username)
+    }
+        |> Envelope.init
+        |> Envelope.mapContext (\c -> { c | username = Just username })
+        |> Vault
+
+
 {-| Send a message event to a room.
 
 This function can be used in a scenario where the user does not want to sync
@@ -99,15 +120,25 @@ exists and the user is able to send a message to, and instead just sends the
 request to the Matrix API.
 
 -}
-sendMessageEvent : Vault -> { content : E.Value, eventType : String, roomId : String, toMsg : VaultUpdate -> msg, transactionId : String } -> Cmd msg
-sendMessageEvent (Vault vault) data =
-    Api.sendMessageEvent vault
-        { content = data.content
-        , eventType = data.eventType
-        , roomId = data.roomId
-        , toMsg = Types.VaultUpdate >> data.toMsg
-        , transactionId = data.transactionId
-        }
+sendMessageEvent :
+    { content : E.Value
+    , eventType : String
+    , roomId : String
+    , toMsg : VaultUpdate -> msg
+    , transactionId : String
+    , vault : Vault
+    }
+    -> Cmd msg
+sendMessageEvent data =
+    case data.vault of
+        Vault vault ->
+            Api.sendMessageEvent vault
+                { content = data.content
+                , eventType = data.eventType
+                , roomId = data.roomId
+                , toMsg = Types.VaultUpdate >> data.toMsg
+                , transactionId = data.transactionId
+                }
 
 
 {-| Using new VaultUpdate information, update the Vault accordingly.
diff --git a/tests/Test/Values/Vault.elm b/tests/Test/Values/Vault.elm
index 96922a8..3982791 100644
--- a/tests/Test/Values/Vault.elm
+++ b/tests/Test/Values/Vault.elm
@@ -19,4 +19,4 @@ vault =
             |> Fuzz.map Dict.fromList
         )
         (TestHashdict.fuzzer .roomId TestRoom.fuzzer)
-        TestUser.fuzzer
+        (Fuzz.maybe TestUser.fuzzer)

From 1de9566e1dd1eeb08476682b29ed2c3327bc8257 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 14:02:20 +0200
Subject: [PATCH 35/36] SECURITY: Remove Elm output

Yes, this index.html file contains credentials. For this reason, the password has been reset and the software should no longer work.
---
 .gitignore |     4 +
 index.html | 16499 ---------------------------------------------------
 2 files changed, 4 insertions(+), 16499 deletions(-)
 delete mode 100644 index.html

diff --git a/.gitignore b/.gitignore
index 9cf9e69..ec38022 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,7 @@ elm-stuff
 repl-temp-*
 # VScode settings
 .vscode/
+
+# Elm output
+index.html
+elm.js
diff --git a/index.html b/index.html
deleted file mode 100644
index 8d00860..0000000
--- a/index.html
+++ /dev/null
@@ -1,16499 +0,0 @@
-<!DOCTYPE HTML>
-<html>
-<head>
-  <meta charset="UTF-8">
-  <title>Main</title>
-  <style>body { padding: 0; margin: 0; }</style>
-</head>
-
-<body>
-
-<pre id="elm"></pre>
-
-<script>
-try {
-(function(scope){
-'use strict';
-
-function F(arity, fun, wrapper) {
-  wrapper.a = arity;
-  wrapper.f = fun;
-  return wrapper;
-}
-
-function F2(fun) {
-  return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
-}
-function F3(fun) {
-  return F(3, fun, function(a) {
-    return function(b) { return function(c) { return fun(a, b, c); }; };
-  });
-}
-function F4(fun) {
-  return F(4, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return fun(a, b, c, d); }; }; };
-  });
-}
-function F5(fun) {
-  return F(5, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
-  });
-}
-function F6(fun) {
-  return F(6, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return function(e) { return function(f) {
-    return fun(a, b, c, d, e, f); }; }; }; }; };
-  });
-}
-function F7(fun) {
-  return F(7, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return function(e) { return function(f) {
-    return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
-  });
-}
-function F8(fun) {
-  return F(8, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return function(e) { return function(f) {
-    return function(g) { return function(h) {
-    return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
-  });
-}
-function F9(fun) {
-  return F(9, fun, function(a) { return function(b) { return function(c) {
-    return function(d) { return function(e) { return function(f) {
-    return function(g) { return function(h) { return function(i) {
-    return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
-  });
-}
-
-function A2(fun, a, b) {
-  return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
-}
-function A3(fun, a, b, c) {
-  return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
-}
-function A4(fun, a, b, c, d) {
-  return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
-}
-function A5(fun, a, b, c, d, e) {
-  return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
-}
-function A6(fun, a, b, c, d, e, f) {
-  return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
-}
-function A7(fun, a, b, c, d, e, f, g) {
-  return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
-}
-function A8(fun, a, b, c, d, e, f, g, h) {
-  return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
-}
-function A9(fun, a, b, c, d, e, f, g, h, i) {
-  return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
-}
-
-console.warn('Compiled in DEBUG mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
-
-
-// EQUALITY
-
-function _Utils_eq(x, y)
-{
-	for (
-		var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
-		isEqual && (pair = stack.pop());
-		isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
-		)
-	{}
-
-	return isEqual;
-}
-
-function _Utils_eqHelp(x, y, depth, stack)
-{
-	if (x === y)
-	{
-		return true;
-	}
-
-	if (typeof x !== 'object' || x === null || y === null)
-	{
-		typeof x === 'function' && _Debug_crash(5);
-		return false;
-	}
-
-	if (depth > 100)
-	{
-		stack.push(_Utils_Tuple2(x,y));
-		return true;
-	}
-
-	/**/
-	if (x.$ === 'Set_elm_builtin')
-	{
-		x = $elm$core$Set$toList(x);
-		y = $elm$core$Set$toList(y);
-	}
-	if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
-	{
-		x = $elm$core$Dict$toList(x);
-		y = $elm$core$Dict$toList(y);
-	}
-	//*/
-
-	/**_UNUSED/
-	if (x.$ < 0)
-	{
-		x = $elm$core$Dict$toList(x);
-		y = $elm$core$Dict$toList(y);
-	}
-	//*/
-
-	for (var key in x)
-	{
-		if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
-		{
-			return false;
-		}
-	}
-	return true;
-}
-
-var _Utils_equal = F2(_Utils_eq);
-var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
-
-
-
-// COMPARISONS
-
-// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
-// the particular integer values assigned to LT, EQ, and GT.
-
-function _Utils_cmp(x, y, ord)
-{
-	if (typeof x !== 'object')
-	{
-		return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
-	}
-
-	/**/
-	if (x instanceof String)
-	{
-		var a = x.valueOf();
-		var b = y.valueOf();
-		return a === b ? 0 : a < b ? -1 : 1;
-	}
-	//*/
-
-	/**_UNUSED/
-	if (typeof x.$ === 'undefined')
-	//*/
-	/**/
-	if (x.$[0] === '#')
-	//*/
-	{
-		return (ord = _Utils_cmp(x.a, y.a))
-			? ord
-			: (ord = _Utils_cmp(x.b, y.b))
-				? ord
-				: _Utils_cmp(x.c, y.c);
-	}
-
-	// traverse conses until end of a list or a mismatch
-	for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
-	return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
-}
-
-var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
-var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
-var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
-var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
-
-var _Utils_compare = F2(function(x, y)
-{
-	var n = _Utils_cmp(x, y);
-	return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
-});
-
-
-// COMMON VALUES
-
-var _Utils_Tuple0_UNUSED = 0;
-var _Utils_Tuple0 = { $: '#0' };
-
-function _Utils_Tuple2_UNUSED(a, b) { return { a: a, b: b }; }
-function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
-
-function _Utils_Tuple3_UNUSED(a, b, c) { return { a: a, b: b, c: c }; }
-function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
-
-function _Utils_chr_UNUSED(c) { return c; }
-function _Utils_chr(c) { return new String(c); }
-
-
-// RECORDS
-
-function _Utils_update(oldRecord, updatedFields)
-{
-	var newRecord = {};
-
-	for (var key in oldRecord)
-	{
-		newRecord[key] = oldRecord[key];
-	}
-
-	for (var key in updatedFields)
-	{
-		newRecord[key] = updatedFields[key];
-	}
-
-	return newRecord;
-}
-
-
-// APPEND
-
-var _Utils_append = F2(_Utils_ap);
-
-function _Utils_ap(xs, ys)
-{
-	// append Strings
-	if (typeof xs === 'string')
-	{
-		return xs + ys;
-	}
-
-	// append Lists
-	if (!xs.b)
-	{
-		return ys;
-	}
-	var root = _List_Cons(xs.a, ys);
-	xs = xs.b
-	for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
-	{
-		curr = curr.b = _List_Cons(xs.a, ys);
-	}
-	return root;
-}
-
-
-
-var _List_Nil_UNUSED = { $: 0 };
-var _List_Nil = { $: '[]' };
-
-function _List_Cons_UNUSED(hd, tl) { return { $: 1, a: hd, b: tl }; }
-function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
-
-
-var _List_cons = F2(_List_Cons);
-
-function _List_fromArray(arr)
-{
-	var out = _List_Nil;
-	for (var i = arr.length; i--; )
-	{
-		out = _List_Cons(arr[i], out);
-	}
-	return out;
-}
-
-function _List_toArray(xs)
-{
-	for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
-	{
-		out.push(xs.a);
-	}
-	return out;
-}
-
-var _List_map2 = F3(function(f, xs, ys)
-{
-	for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
-	{
-		arr.push(A2(f, xs.a, ys.a));
-	}
-	return _List_fromArray(arr);
-});
-
-var _List_map3 = F4(function(f, xs, ys, zs)
-{
-	for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
-	{
-		arr.push(A3(f, xs.a, ys.a, zs.a));
-	}
-	return _List_fromArray(arr);
-});
-
-var _List_map4 = F5(function(f, ws, xs, ys, zs)
-{
-	for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
-	{
-		arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
-	}
-	return _List_fromArray(arr);
-});
-
-var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
-{
-	for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
-	{
-		arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
-	}
-	return _List_fromArray(arr);
-});
-
-var _List_sortBy = F2(function(f, xs)
-{
-	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
-		return _Utils_cmp(f(a), f(b));
-	}));
-});
-
-var _List_sortWith = F2(function(f, xs)
-{
-	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
-		var ord = A2(f, a, b);
-		return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
-	}));
-});
-
-
-
-var _JsArray_empty = [];
-
-function _JsArray_singleton(value)
-{
-    return [value];
-}
-
-function _JsArray_length(array)
-{
-    return array.length;
-}
-
-var _JsArray_initialize = F3(function(size, offset, func)
-{
-    var result = new Array(size);
-
-    for (var i = 0; i < size; i++)
-    {
-        result[i] = func(offset + i);
-    }
-
-    return result;
-});
-
-var _JsArray_initializeFromList = F2(function (max, ls)
-{
-    var result = new Array(max);
-
-    for (var i = 0; i < max && ls.b; i++)
-    {
-        result[i] = ls.a;
-        ls = ls.b;
-    }
-
-    result.length = i;
-    return _Utils_Tuple2(result, ls);
-});
-
-var _JsArray_unsafeGet = F2(function(index, array)
-{
-    return array[index];
-});
-
-var _JsArray_unsafeSet = F3(function(index, value, array)
-{
-    var length = array.length;
-    var result = new Array(length);
-
-    for (var i = 0; i < length; i++)
-    {
-        result[i] = array[i];
-    }
-
-    result[index] = value;
-    return result;
-});
-
-var _JsArray_push = F2(function(value, array)
-{
-    var length = array.length;
-    var result = new Array(length + 1);
-
-    for (var i = 0; i < length; i++)
-    {
-        result[i] = array[i];
-    }
-
-    result[length] = value;
-    return result;
-});
-
-var _JsArray_foldl = F3(function(func, acc, array)
-{
-    var length = array.length;
-
-    for (var i = 0; i < length; i++)
-    {
-        acc = A2(func, array[i], acc);
-    }
-
-    return acc;
-});
-
-var _JsArray_foldr = F3(function(func, acc, array)
-{
-    for (var i = array.length - 1; i >= 0; i--)
-    {
-        acc = A2(func, array[i], acc);
-    }
-
-    return acc;
-});
-
-var _JsArray_map = F2(function(func, array)
-{
-    var length = array.length;
-    var result = new Array(length);
-
-    for (var i = 0; i < length; i++)
-    {
-        result[i] = func(array[i]);
-    }
-
-    return result;
-});
-
-var _JsArray_indexedMap = F3(function(func, offset, array)
-{
-    var length = array.length;
-    var result = new Array(length);
-
-    for (var i = 0; i < length; i++)
-    {
-        result[i] = A2(func, offset + i, array[i]);
-    }
-
-    return result;
-});
-
-var _JsArray_slice = F3(function(from, to, array)
-{
-    return array.slice(from, to);
-});
-
-var _JsArray_appendN = F3(function(n, dest, source)
-{
-    var destLen = dest.length;
-    var itemsToCopy = n - destLen;
-
-    if (itemsToCopy > source.length)
-    {
-        itemsToCopy = source.length;
-    }
-
-    var size = destLen + itemsToCopy;
-    var result = new Array(size);
-
-    for (var i = 0; i < destLen; i++)
-    {
-        result[i] = dest[i];
-    }
-
-    for (var i = 0; i < itemsToCopy; i++)
-    {
-        result[i + destLen] = source[i];
-    }
-
-    return result;
-});
-
-
-
-// LOG
-
-var _Debug_log_UNUSED = F2(function(tag, value)
-{
-	return value;
-});
-
-var _Debug_log = F2(function(tag, value)
-{
-	console.log(tag + ': ' + _Debug_toString(value));
-	return value;
-});
-
-
-// TODOS
-
-function _Debug_todo(moduleName, region)
-{
-	return function(message) {
-		_Debug_crash(8, moduleName, region, message);
-	};
-}
-
-function _Debug_todoCase(moduleName, region, value)
-{
-	return function(message) {
-		_Debug_crash(9, moduleName, region, value, message);
-	};
-}
-
-
-// TO STRING
-
-function _Debug_toString_UNUSED(value)
-{
-	return '<internals>';
-}
-
-function _Debug_toString(value)
-{
-	return _Debug_toAnsiString(false, value);
-}
-
-function _Debug_toAnsiString(ansi, value)
-{
-	if (typeof value === 'function')
-	{
-		return _Debug_internalColor(ansi, '<function>');
-	}
-
-	if (typeof value === 'boolean')
-	{
-		return _Debug_ctorColor(ansi, value ? 'True' : 'False');
-	}
-
-	if (typeof value === 'number')
-	{
-		return _Debug_numberColor(ansi, value + '');
-	}
-
-	if (value instanceof String)
-	{
-		return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
-	}
-
-	if (typeof value === 'string')
-	{
-		return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
-	}
-
-	if (typeof value === 'object' && '$' in value)
-	{
-		var tag = value.$;
-
-		if (typeof tag === 'number')
-		{
-			return _Debug_internalColor(ansi, '<internals>');
-		}
-
-		if (tag[0] === '#')
-		{
-			var output = [];
-			for (var k in value)
-			{
-				if (k === '$') continue;
-				output.push(_Debug_toAnsiString(ansi, value[k]));
-			}
-			return '(' + output.join(',') + ')';
-		}
-
-		if (tag === 'Set_elm_builtin')
-		{
-			return _Debug_ctorColor(ansi, 'Set')
-				+ _Debug_fadeColor(ansi, '.fromList') + ' '
-				+ _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
-		}
-
-		if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
-		{
-			return _Debug_ctorColor(ansi, 'Dict')
-				+ _Debug_fadeColor(ansi, '.fromList') + ' '
-				+ _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
-		}
-
-		if (tag === 'Array_elm_builtin')
-		{
-			return _Debug_ctorColor(ansi, 'Array')
-				+ _Debug_fadeColor(ansi, '.fromList') + ' '
-				+ _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
-		}
-
-		if (tag === '::' || tag === '[]')
-		{
-			var output = '[';
-
-			value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
-
-			for (; value.b; value = value.b) // WHILE_CONS
-			{
-				output += ',' + _Debug_toAnsiString(ansi, value.a);
-			}
-			return output + ']';
-		}
-
-		var output = '';
-		for (var i in value)
-		{
-			if (i === '$') continue;
-			var str = _Debug_toAnsiString(ansi, value[i]);
-			var c0 = str[0];
-			var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
-			output += ' ' + (parenless ? str : '(' + str + ')');
-		}
-		return _Debug_ctorColor(ansi, tag) + output;
-	}
-
-	if (typeof DataView === 'function' && value instanceof DataView)
-	{
-		return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
-	}
-
-	if (typeof File !== 'undefined' && value instanceof File)
-	{
-		return _Debug_internalColor(ansi, '<' + value.name + '>');
-	}
-
-	if (typeof value === 'object')
-	{
-		var output = [];
-		for (var key in value)
-		{
-			var field = key[0] === '_' ? key.slice(1) : key;
-			output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
-		}
-		if (output.length === 0)
-		{
-			return '{}';
-		}
-		return '{ ' + output.join(', ') + ' }';
-	}
-
-	return _Debug_internalColor(ansi, '<internals>');
-}
-
-function _Debug_addSlashes(str, isChar)
-{
-	var s = str
-		.replace(/\\/g, '\\\\')
-		.replace(/\n/g, '\\n')
-		.replace(/\t/g, '\\t')
-		.replace(/\r/g, '\\r')
-		.replace(/\v/g, '\\v')
-		.replace(/\0/g, '\\0');
-
-	if (isChar)
-	{
-		return s.replace(/\'/g, '\\\'');
-	}
-	else
-	{
-		return s.replace(/\"/g, '\\"');
-	}
-}
-
-function _Debug_ctorColor(ansi, string)
-{
-	return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_numberColor(ansi, string)
-{
-	return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_stringColor(ansi, string)
-{
-	return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_charColor(ansi, string)
-{
-	return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_fadeColor(ansi, string)
-{
-	return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_internalColor(ansi, string)
-{
-	return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_toHexDigit(n)
-{
-	return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
-}
-
-
-// CRASH
-
-
-function _Debug_crash_UNUSED(identifier)
-{
-	throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md');
-}
-
-
-function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
-{
-	switch(identifier)
-	{
-		case 0:
-			throw new Error('What node should I take over? In JavaScript I need something like:\n\n    Elm.Main.init({\n        node: document.getElementById("elm-node")\n    })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
-
-		case 1:
-			throw new Error('Browser.application programs cannot handle URLs like this:\n\n    ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
-
-		case 2:
-			var jsonErrorString = fact1;
-			throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
-
-		case 3:
-			var portName = fact1;
-			throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
-
-		case 4:
-			var portName = fact1;
-			var problem = fact2;
-			throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
-
-		case 5:
-			throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
-
-		case 6:
-			var moduleName = fact1;
-			throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
-
-		case 8:
-			var moduleName = fact1;
-			var region = fact2;
-			var message = fact3;
-			throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
-
-		case 9:
-			var moduleName = fact1;
-			var region = fact2;
-			var value = fact3;
-			var message = fact4;
-			throw new Error(
-				'TODO in module `' + moduleName + '` from the `case` expression '
-				+ _Debug_regionToString(region) + '\n\nIt received the following value:\n\n    '
-				+ _Debug_toString(value).replace('\n', '\n    ')
-				+ '\n\nBut the branch that handles it says:\n\n    ' + message.replace('\n', '\n    ')
-			);
-
-		case 10:
-			throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
-
-		case 11:
-			throw new Error('Cannot perform mod 0. Division by zero error.');
-	}
-}
-
-function _Debug_regionToString(region)
-{
-	if (region.start.line === region.end.line)
-	{
-		return 'on line ' + region.start.line;
-	}
-	return 'on lines ' + region.start.line + ' through ' + region.end.line;
-}
-
-
-
-// MATH
-
-var _Basics_add = F2(function(a, b) { return a + b; });
-var _Basics_sub = F2(function(a, b) { return a - b; });
-var _Basics_mul = F2(function(a, b) { return a * b; });
-var _Basics_fdiv = F2(function(a, b) { return a / b; });
-var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
-var _Basics_pow = F2(Math.pow);
-
-var _Basics_remainderBy = F2(function(b, a) { return a % b; });
-
-// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
-var _Basics_modBy = F2(function(modulus, x)
-{
-	var answer = x % modulus;
-	return modulus === 0
-		? _Debug_crash(11)
-		:
-	((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
-		? answer + modulus
-		: answer;
-});
-
-
-// TRIGONOMETRY
-
-var _Basics_pi = Math.PI;
-var _Basics_e = Math.E;
-var _Basics_cos = Math.cos;
-var _Basics_sin = Math.sin;
-var _Basics_tan = Math.tan;
-var _Basics_acos = Math.acos;
-var _Basics_asin = Math.asin;
-var _Basics_atan = Math.atan;
-var _Basics_atan2 = F2(Math.atan2);
-
-
-// MORE MATH
-
-function _Basics_toFloat(x) { return x; }
-function _Basics_truncate(n) { return n | 0; }
-function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
-
-var _Basics_ceiling = Math.ceil;
-var _Basics_floor = Math.floor;
-var _Basics_round = Math.round;
-var _Basics_sqrt = Math.sqrt;
-var _Basics_log = Math.log;
-var _Basics_isNaN = isNaN;
-
-
-// BOOLEANS
-
-function _Basics_not(bool) { return !bool; }
-var _Basics_and = F2(function(a, b) { return a && b; });
-var _Basics_or  = F2(function(a, b) { return a || b; });
-var _Basics_xor = F2(function(a, b) { return a !== b; });
-
-
-
-var _String_cons = F2(function(chr, str)
-{
-	return chr + str;
-});
-
-function _String_uncons(string)
-{
-	var word = string.charCodeAt(0);
-	return !isNaN(word)
-		? $elm$core$Maybe$Just(
-			0xD800 <= word && word <= 0xDBFF
-				? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
-				: _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
-		)
-		: $elm$core$Maybe$Nothing;
-}
-
-var _String_append = F2(function(a, b)
-{
-	return a + b;
-});
-
-function _String_length(str)
-{
-	return str.length;
-}
-
-var _String_map = F2(function(func, string)
-{
-	var len = string.length;
-	var array = new Array(len);
-	var i = 0;
-	while (i < len)
-	{
-		var word = string.charCodeAt(i);
-		if (0xD800 <= word && word <= 0xDBFF)
-		{
-			array[i] = func(_Utils_chr(string[i] + string[i+1]));
-			i += 2;
-			continue;
-		}
-		array[i] = func(_Utils_chr(string[i]));
-		i++;
-	}
-	return array.join('');
-});
-
-var _String_filter = F2(function(isGood, str)
-{
-	var arr = [];
-	var len = str.length;
-	var i = 0;
-	while (i < len)
-	{
-		var char = str[i];
-		var word = str.charCodeAt(i);
-		i++;
-		if (0xD800 <= word && word <= 0xDBFF)
-		{
-			char += str[i];
-			i++;
-		}
-
-		if (isGood(_Utils_chr(char)))
-		{
-			arr.push(char);
-		}
-	}
-	return arr.join('');
-});
-
-function _String_reverse(str)
-{
-	var len = str.length;
-	var arr = new Array(len);
-	var i = 0;
-	while (i < len)
-	{
-		var word = str.charCodeAt(i);
-		if (0xD800 <= word && word <= 0xDBFF)
-		{
-			arr[len - i] = str[i + 1];
-			i++;
-			arr[len - i] = str[i - 1];
-			i++;
-		}
-		else
-		{
-			arr[len - i] = str[i];
-			i++;
-		}
-	}
-	return arr.join('');
-}
-
-var _String_foldl = F3(function(func, state, string)
-{
-	var len = string.length;
-	var i = 0;
-	while (i < len)
-	{
-		var char = string[i];
-		var word = string.charCodeAt(i);
-		i++;
-		if (0xD800 <= word && word <= 0xDBFF)
-		{
-			char += string[i];
-			i++;
-		}
-		state = A2(func, _Utils_chr(char), state);
-	}
-	return state;
-});
-
-var _String_foldr = F3(function(func, state, string)
-{
-	var i = string.length;
-	while (i--)
-	{
-		var char = string[i];
-		var word = string.charCodeAt(i);
-		if (0xDC00 <= word && word <= 0xDFFF)
-		{
-			i--;
-			char = string[i] + char;
-		}
-		state = A2(func, _Utils_chr(char), state);
-	}
-	return state;
-});
-
-var _String_split = F2(function(sep, str)
-{
-	return str.split(sep);
-});
-
-var _String_join = F2(function(sep, strs)
-{
-	return strs.join(sep);
-});
-
-var _String_slice = F3(function(start, end, str) {
-	return str.slice(start, end);
-});
-
-function _String_trim(str)
-{
-	return str.trim();
-}
-
-function _String_trimLeft(str)
-{
-	return str.replace(/^\s+/, '');
-}
-
-function _String_trimRight(str)
-{
-	return str.replace(/\s+$/, '');
-}
-
-function _String_words(str)
-{
-	return _List_fromArray(str.trim().split(/\s+/g));
-}
-
-function _String_lines(str)
-{
-	return _List_fromArray(str.split(/\r\n|\r|\n/g));
-}
-
-function _String_toUpper(str)
-{
-	return str.toUpperCase();
-}
-
-function _String_toLower(str)
-{
-	return str.toLowerCase();
-}
-
-var _String_any = F2(function(isGood, string)
-{
-	var i = string.length;
-	while (i--)
-	{
-		var char = string[i];
-		var word = string.charCodeAt(i);
-		if (0xDC00 <= word && word <= 0xDFFF)
-		{
-			i--;
-			char = string[i] + char;
-		}
-		if (isGood(_Utils_chr(char)))
-		{
-			return true;
-		}
-	}
-	return false;
-});
-
-var _String_all = F2(function(isGood, string)
-{
-	var i = string.length;
-	while (i--)
-	{
-		var char = string[i];
-		var word = string.charCodeAt(i);
-		if (0xDC00 <= word && word <= 0xDFFF)
-		{
-			i--;
-			char = string[i] + char;
-		}
-		if (!isGood(_Utils_chr(char)))
-		{
-			return false;
-		}
-	}
-	return true;
-});
-
-var _String_contains = F2(function(sub, str)
-{
-	return str.indexOf(sub) > -1;
-});
-
-var _String_startsWith = F2(function(sub, str)
-{
-	return str.indexOf(sub) === 0;
-});
-
-var _String_endsWith = F2(function(sub, str)
-{
-	return str.length >= sub.length &&
-		str.lastIndexOf(sub) === str.length - sub.length;
-});
-
-var _String_indexes = F2(function(sub, str)
-{
-	var subLen = sub.length;
-
-	if (subLen < 1)
-	{
-		return _List_Nil;
-	}
-
-	var i = 0;
-	var is = [];
-
-	while ((i = str.indexOf(sub, i)) > -1)
-	{
-		is.push(i);
-		i = i + subLen;
-	}
-
-	return _List_fromArray(is);
-});
-
-
-// TO STRING
-
-function _String_fromNumber(number)
-{
-	return number + '';
-}
-
-
-// INT CONVERSIONS
-
-function _String_toInt(str)
-{
-	var total = 0;
-	var code0 = str.charCodeAt(0);
-	var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
-
-	for (var i = start; i < str.length; ++i)
-	{
-		var code = str.charCodeAt(i);
-		if (code < 0x30 || 0x39 < code)
-		{
-			return $elm$core$Maybe$Nothing;
-		}
-		total = 10 * total + code - 0x30;
-	}
-
-	return i == start
-		? $elm$core$Maybe$Nothing
-		: $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
-}
-
-
-// FLOAT CONVERSIONS
-
-function _String_toFloat(s)
-{
-	// check if it is a hex, octal, or binary number
-	if (s.length === 0 || /[\sxbo]/.test(s))
-	{
-		return $elm$core$Maybe$Nothing;
-	}
-	var n = +s;
-	// faster isNaN check
-	return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
-}
-
-function _String_fromList(chars)
-{
-	return _List_toArray(chars).join('');
-}
-
-
-
-
-function _Char_toCode(char)
-{
-	var code = char.charCodeAt(0);
-	if (0xD800 <= code && code <= 0xDBFF)
-	{
-		return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
-	}
-	return code;
-}
-
-function _Char_fromCode(code)
-{
-	return _Utils_chr(
-		(code < 0 || 0x10FFFF < code)
-			? '\uFFFD'
-			:
-		(code <= 0xFFFF)
-			? String.fromCharCode(code)
-			:
-		(code -= 0x10000,
-			String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
-		)
-	);
-}
-
-function _Char_toUpper(char)
-{
-	return _Utils_chr(char.toUpperCase());
-}
-
-function _Char_toLower(char)
-{
-	return _Utils_chr(char.toLowerCase());
-}
-
-function _Char_toLocaleUpper(char)
-{
-	return _Utils_chr(char.toLocaleUpperCase());
-}
-
-function _Char_toLocaleLower(char)
-{
-	return _Utils_chr(char.toLocaleLowerCase());
-}
-
-
-
-/**/
-function _Json_errorToString(error)
-{
-	return $elm$json$Json$Decode$errorToString(error);
-}
-//*/
-
-
-// CORE DECODERS
-
-function _Json_succeed(msg)
-{
-	return {
-		$: 0,
-		a: msg
-	};
-}
-
-function _Json_fail(msg)
-{
-	return {
-		$: 1,
-		a: msg
-	};
-}
-
-function _Json_decodePrim(decoder)
-{
-	return { $: 2, b: decoder };
-}
-
-var _Json_decodeInt = _Json_decodePrim(function(value) {
-	return (typeof value !== 'number')
-		? _Json_expecting('an INT', value)
-		:
-	(-2147483647 < value && value < 2147483647 && (value | 0) === value)
-		? $elm$core$Result$Ok(value)
-		:
-	(isFinite(value) && !(value % 1))
-		? $elm$core$Result$Ok(value)
-		: _Json_expecting('an INT', value);
-});
-
-var _Json_decodeBool = _Json_decodePrim(function(value) {
-	return (typeof value === 'boolean')
-		? $elm$core$Result$Ok(value)
-		: _Json_expecting('a BOOL', value);
-});
-
-var _Json_decodeFloat = _Json_decodePrim(function(value) {
-	return (typeof value === 'number')
-		? $elm$core$Result$Ok(value)
-		: _Json_expecting('a FLOAT', value);
-});
-
-var _Json_decodeValue = _Json_decodePrim(function(value) {
-	return $elm$core$Result$Ok(_Json_wrap(value));
-});
-
-var _Json_decodeString = _Json_decodePrim(function(value) {
-	return (typeof value === 'string')
-		? $elm$core$Result$Ok(value)
-		: (value instanceof String)
-			? $elm$core$Result$Ok(value + '')
-			: _Json_expecting('a STRING', value);
-});
-
-function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
-function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
-
-function _Json_decodeNull(value) { return { $: 5, c: value }; }
-
-var _Json_decodeField = F2(function(field, decoder)
-{
-	return {
-		$: 6,
-		d: field,
-		b: decoder
-	};
-});
-
-var _Json_decodeIndex = F2(function(index, decoder)
-{
-	return {
-		$: 7,
-		e: index,
-		b: decoder
-	};
-});
-
-function _Json_decodeKeyValuePairs(decoder)
-{
-	return {
-		$: 8,
-		b: decoder
-	};
-}
-
-function _Json_mapMany(f, decoders)
-{
-	return {
-		$: 9,
-		f: f,
-		g: decoders
-	};
-}
-
-var _Json_andThen = F2(function(callback, decoder)
-{
-	return {
-		$: 10,
-		b: decoder,
-		h: callback
-	};
-});
-
-function _Json_oneOf(decoders)
-{
-	return {
-		$: 11,
-		g: decoders
-	};
-}
-
-
-// DECODING OBJECTS
-
-var _Json_map1 = F2(function(f, d1)
-{
-	return _Json_mapMany(f, [d1]);
-});
-
-var _Json_map2 = F3(function(f, d1, d2)
-{
-	return _Json_mapMany(f, [d1, d2]);
-});
-
-var _Json_map3 = F4(function(f, d1, d2, d3)
-{
-	return _Json_mapMany(f, [d1, d2, d3]);
-});
-
-var _Json_map4 = F5(function(f, d1, d2, d3, d4)
-{
-	return _Json_mapMany(f, [d1, d2, d3, d4]);
-});
-
-var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
-{
-	return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
-});
-
-var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
-{
-	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
-});
-
-var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
-{
-	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
-});
-
-var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
-{
-	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
-});
-
-
-// DECODE
-
-var _Json_runOnString = F2(function(decoder, string)
-{
-	try
-	{
-		var value = JSON.parse(string);
-		return _Json_runHelp(decoder, value);
-	}
-	catch (e)
-	{
-		return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
-	}
-});
-
-var _Json_run = F2(function(decoder, value)
-{
-	return _Json_runHelp(decoder, _Json_unwrap(value));
-});
-
-function _Json_runHelp(decoder, value)
-{
-	switch (decoder.$)
-	{
-		case 2:
-			return decoder.b(value);
-
-		case 5:
-			return (value === null)
-				? $elm$core$Result$Ok(decoder.c)
-				: _Json_expecting('null', value);
-
-		case 3:
-			if (!_Json_isArray(value))
-			{
-				return _Json_expecting('a LIST', value);
-			}
-			return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
-
-		case 4:
-			if (!_Json_isArray(value))
-			{
-				return _Json_expecting('an ARRAY', value);
-			}
-			return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
-
-		case 6:
-			var field = decoder.d;
-			if (typeof value !== 'object' || value === null || !(field in value))
-			{
-				return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
-			}
-			var result = _Json_runHelp(decoder.b, value[field]);
-			return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
-
-		case 7:
-			var index = decoder.e;
-			if (!_Json_isArray(value))
-			{
-				return _Json_expecting('an ARRAY', value);
-			}
-			if (index >= value.length)
-			{
-				return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
-			}
-			var result = _Json_runHelp(decoder.b, value[index]);
-			return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
-
-		case 8:
-			if (typeof value !== 'object' || value === null || _Json_isArray(value))
-			{
-				return _Json_expecting('an OBJECT', value);
-			}
-
-			var keyValuePairs = _List_Nil;
-			// TODO test perf of Object.keys and switch when support is good enough
-			for (var key in value)
-			{
-				if (value.hasOwnProperty(key))
-				{
-					var result = _Json_runHelp(decoder.b, value[key]);
-					if (!$elm$core$Result$isOk(result))
-					{
-						return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
-					}
-					keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
-				}
-			}
-			return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
-
-		case 9:
-			var answer = decoder.f;
-			var decoders = decoder.g;
-			for (var i = 0; i < decoders.length; i++)
-			{
-				var result = _Json_runHelp(decoders[i], value);
-				if (!$elm$core$Result$isOk(result))
-				{
-					return result;
-				}
-				answer = answer(result.a);
-			}
-			return $elm$core$Result$Ok(answer);
-
-		case 10:
-			var result = _Json_runHelp(decoder.b, value);
-			return (!$elm$core$Result$isOk(result))
-				? result
-				: _Json_runHelp(decoder.h(result.a), value);
-
-		case 11:
-			var errors = _List_Nil;
-			for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
-			{
-				var result = _Json_runHelp(temp.a, value);
-				if ($elm$core$Result$isOk(result))
-				{
-					return result;
-				}
-				errors = _List_Cons(result.a, errors);
-			}
-			return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
-
-		case 1:
-			return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
-
-		case 0:
-			return $elm$core$Result$Ok(decoder.a);
-	}
-}
-
-function _Json_runArrayDecoder(decoder, value, toElmValue)
-{
-	var len = value.length;
-	var array = new Array(len);
-	for (var i = 0; i < len; i++)
-	{
-		var result = _Json_runHelp(decoder, value[i]);
-		if (!$elm$core$Result$isOk(result))
-		{
-			return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
-		}
-		array[i] = result.a;
-	}
-	return $elm$core$Result$Ok(toElmValue(array));
-}
-
-function _Json_isArray(value)
-{
-	return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
-}
-
-function _Json_toElmArray(array)
-{
-	return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
-}
-
-function _Json_expecting(type, value)
-{
-	return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
-}
-
-
-// EQUALITY
-
-function _Json_equality(x, y)
-{
-	if (x === y)
-	{
-		return true;
-	}
-
-	if (x.$ !== y.$)
-	{
-		return false;
-	}
-
-	switch (x.$)
-	{
-		case 0:
-		case 1:
-			return x.a === y.a;
-
-		case 2:
-			return x.b === y.b;
-
-		case 5:
-			return x.c === y.c;
-
-		case 3:
-		case 4:
-		case 8:
-			return _Json_equality(x.b, y.b);
-
-		case 6:
-			return x.d === y.d && _Json_equality(x.b, y.b);
-
-		case 7:
-			return x.e === y.e && _Json_equality(x.b, y.b);
-
-		case 9:
-			return x.f === y.f && _Json_listEquality(x.g, y.g);
-
-		case 10:
-			return x.h === y.h && _Json_equality(x.b, y.b);
-
-		case 11:
-			return _Json_listEquality(x.g, y.g);
-	}
-}
-
-function _Json_listEquality(aDecoders, bDecoders)
-{
-	var len = aDecoders.length;
-	if (len !== bDecoders.length)
-	{
-		return false;
-	}
-	for (var i = 0; i < len; i++)
-	{
-		if (!_Json_equality(aDecoders[i], bDecoders[i]))
-		{
-			return false;
-		}
-	}
-	return true;
-}
-
-
-// ENCODE
-
-var _Json_encode = F2(function(indentLevel, value)
-{
-	return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
-});
-
-function _Json_wrap(value) { return { $: 0, a: value }; }
-function _Json_unwrap(value) { return value.a; }
-
-function _Json_wrap_UNUSED(value) { return value; }
-function _Json_unwrap_UNUSED(value) { return value; }
-
-function _Json_emptyArray() { return []; }
-function _Json_emptyObject() { return {}; }
-
-var _Json_addField = F3(function(key, value, object)
-{
-	object[key] = _Json_unwrap(value);
-	return object;
-});
-
-function _Json_addEntry(func)
-{
-	return F2(function(entry, array)
-	{
-		array.push(_Json_unwrap(func(entry)));
-		return array;
-	});
-}
-
-var _Json_encodeNull = _Json_wrap(null);
-
-
-
-// TASKS
-
-function _Scheduler_succeed(value)
-{
-	return {
-		$: 0,
-		a: value
-	};
-}
-
-function _Scheduler_fail(error)
-{
-	return {
-		$: 1,
-		a: error
-	};
-}
-
-function _Scheduler_binding(callback)
-{
-	return {
-		$: 2,
-		b: callback,
-		c: null
-	};
-}
-
-var _Scheduler_andThen = F2(function(callback, task)
-{
-	return {
-		$: 3,
-		b: callback,
-		d: task
-	};
-});
-
-var _Scheduler_onError = F2(function(callback, task)
-{
-	return {
-		$: 4,
-		b: callback,
-		d: task
-	};
-});
-
-function _Scheduler_receive(callback)
-{
-	return {
-		$: 5,
-		b: callback
-	};
-}
-
-
-// PROCESSES
-
-var _Scheduler_guid = 0;
-
-function _Scheduler_rawSpawn(task)
-{
-	var proc = {
-		$: 0,
-		e: _Scheduler_guid++,
-		f: task,
-		g: null,
-		h: []
-	};
-
-	_Scheduler_enqueue(proc);
-
-	return proc;
-}
-
-function _Scheduler_spawn(task)
-{
-	return _Scheduler_binding(function(callback) {
-		callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
-	});
-}
-
-function _Scheduler_rawSend(proc, msg)
-{
-	proc.h.push(msg);
-	_Scheduler_enqueue(proc);
-}
-
-var _Scheduler_send = F2(function(proc, msg)
-{
-	return _Scheduler_binding(function(callback) {
-		_Scheduler_rawSend(proc, msg);
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-});
-
-function _Scheduler_kill(proc)
-{
-	return _Scheduler_binding(function(callback) {
-		var task = proc.f;
-		if (task.$ === 2 && task.c)
-		{
-			task.c();
-		}
-
-		proc.f = null;
-
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-}
-
-
-/* STEP PROCESSES
-
-type alias Process =
-  { $ : tag
-  , id : unique_id
-  , root : Task
-  , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
-  , mailbox : [msg]
-  }
-
-*/
-
-
-var _Scheduler_working = false;
-var _Scheduler_queue = [];
-
-
-function _Scheduler_enqueue(proc)
-{
-	_Scheduler_queue.push(proc);
-	if (_Scheduler_working)
-	{
-		return;
-	}
-	_Scheduler_working = true;
-	while (proc = _Scheduler_queue.shift())
-	{
-		_Scheduler_step(proc);
-	}
-	_Scheduler_working = false;
-}
-
-
-function _Scheduler_step(proc)
-{
-	while (proc.f)
-	{
-		var rootTag = proc.f.$;
-		if (rootTag === 0 || rootTag === 1)
-		{
-			while (proc.g && proc.g.$ !== rootTag)
-			{
-				proc.g = proc.g.i;
-			}
-			if (!proc.g)
-			{
-				return;
-			}
-			proc.f = proc.g.b(proc.f.a);
-			proc.g = proc.g.i;
-		}
-		else if (rootTag === 2)
-		{
-			proc.f.c = proc.f.b(function(newRoot) {
-				proc.f = newRoot;
-				_Scheduler_enqueue(proc);
-			});
-			return;
-		}
-		else if (rootTag === 5)
-		{
-			if (proc.h.length === 0)
-			{
-				return;
-			}
-			proc.f = proc.f.b(proc.h.shift());
-		}
-		else // if (rootTag === 3 || rootTag === 4)
-		{
-			proc.g = {
-				$: rootTag === 3 ? 0 : 1,
-				b: proc.f.b,
-				i: proc.g
-			};
-			proc.f = proc.f.d;
-		}
-	}
-}
-
-
-
-function _Process_sleep(time)
-{
-	return _Scheduler_binding(function(callback) {
-		var id = setTimeout(function() {
-			callback(_Scheduler_succeed(_Utils_Tuple0));
-		}, time);
-
-		return function() { clearTimeout(id); };
-	});
-}
-
-
-
-
-// PROGRAMS
-
-
-var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
-{
-	return _Platform_initialize(
-		flagDecoder,
-		args,
-		impl.init,
-		impl.update,
-		impl.subscriptions,
-		function() { return function() {} }
-	);
-});
-
-
-
-// INITIALIZE A PROGRAM
-
-
-function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
-{
-	var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
-	$elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
-	var managers = {};
-	var initPair = init(result.a);
-	var model = initPair.a;
-	var stepper = stepperBuilder(sendToApp, model);
-	var ports = _Platform_setupEffects(managers, sendToApp);
-
-	function sendToApp(msg, viewMetadata)
-	{
-		var pair = A2(update, msg, model);
-		stepper(model = pair.a, viewMetadata);
-		_Platform_enqueueEffects(managers, pair.b, subscriptions(model));
-	}
-
-	_Platform_enqueueEffects(managers, initPair.b, subscriptions(model));
-
-	return ports ? { ports: ports } : {};
-}
-
-
-
-// TRACK PRELOADS
-//
-// This is used by code in elm/browser and elm/http
-// to register any HTTP requests that are triggered by init.
-//
-
-
-var _Platform_preload;
-
-
-function _Platform_registerPreload(url)
-{
-	_Platform_preload.add(url);
-}
-
-
-
-// EFFECT MANAGERS
-
-
-var _Platform_effectManagers = {};
-
-
-function _Platform_setupEffects(managers, sendToApp)
-{
-	var ports;
-
-	// setup all necessary effect managers
-	for (var key in _Platform_effectManagers)
-	{
-		var manager = _Platform_effectManagers[key];
-
-		if (manager.a)
-		{
-			ports = ports || {};
-			ports[key] = manager.a(key, sendToApp);
-		}
-
-		managers[key] = _Platform_instantiateManager(manager, sendToApp);
-	}
-
-	return ports;
-}
-
-
-function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
-{
-	return {
-		b: init,
-		c: onEffects,
-		d: onSelfMsg,
-		e: cmdMap,
-		f: subMap
-	};
-}
-
-
-function _Platform_instantiateManager(info, sendToApp)
-{
-	var router = {
-		g: sendToApp,
-		h: undefined
-	};
-
-	var onEffects = info.c;
-	var onSelfMsg = info.d;
-	var cmdMap = info.e;
-	var subMap = info.f;
-
-	function loop(state)
-	{
-		return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
-		{
-			var value = msg.a;
-
-			if (msg.$ === 0)
-			{
-				return A3(onSelfMsg, router, value, state);
-			}
-
-			return cmdMap && subMap
-				? A4(onEffects, router, value.i, value.j, state)
-				: A3(onEffects, router, cmdMap ? value.i : value.j, state);
-		}));
-	}
-
-	return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
-}
-
-
-
-// ROUTING
-
-
-var _Platform_sendToApp = F2(function(router, msg)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		router.g(msg);
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-});
-
-
-var _Platform_sendToSelf = F2(function(router, msg)
-{
-	return A2(_Scheduler_send, router.h, {
-		$: 0,
-		a: msg
-	});
-});
-
-
-
-// BAGS
-
-
-function _Platform_leaf(home)
-{
-	return function(value)
-	{
-		return {
-			$: 1,
-			k: home,
-			l: value
-		};
-	};
-}
-
-
-function _Platform_batch(list)
-{
-	return {
-		$: 2,
-		m: list
-	};
-}
-
-
-var _Platform_map = F2(function(tagger, bag)
-{
-	return {
-		$: 3,
-		n: tagger,
-		o: bag
-	}
-});
-
-
-
-// PIPE BAGS INTO EFFECT MANAGERS
-//
-// Effects must be queued!
-//
-// Say your init contains a synchronous command, like Time.now or Time.here
-//
-//   - This will produce a batch of effects (FX_1)
-//   - The synchronous task triggers the subsequent `update` call
-//   - This will produce a batch of effects (FX_2)
-//
-// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
-// before subscriptions from FX_1. No good! Earlier versions of this code had
-// this problem, leading to these reports:
-//
-//   https://github.com/elm/core/issues/980
-//   https://github.com/elm/core/pull/981
-//   https://github.com/elm/compiler/issues/1776
-//
-// The queue is necessary to avoid ordering issues for synchronous commands.
-
-
-// Why use true/false here? Why not just check the length of the queue?
-// The goal is to detect "are we currently dispatching effects?" If we
-// are, we need to bail and let the ongoing while loop handle things.
-//
-// Now say the queue has 1 element. When we dequeue the final element,
-// the queue will be empty, but we are still actively dispatching effects.
-// So you could get queue jumping in a really tricky category of cases.
-//
-var _Platform_effectsQueue = [];
-var _Platform_effectsActive = false;
-
-
-function _Platform_enqueueEffects(managers, cmdBag, subBag)
-{
-	_Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });
-
-	if (_Platform_effectsActive) return;
-
-	_Platform_effectsActive = true;
-	for (var fx; fx = _Platform_effectsQueue.shift(); )
-	{
-		_Platform_dispatchEffects(fx.p, fx.q, fx.r);
-	}
-	_Platform_effectsActive = false;
-}
-
-
-function _Platform_dispatchEffects(managers, cmdBag, subBag)
-{
-	var effectsDict = {};
-	_Platform_gatherEffects(true, cmdBag, effectsDict, null);
-	_Platform_gatherEffects(false, subBag, effectsDict, null);
-
-	for (var home in managers)
-	{
-		_Scheduler_rawSend(managers[home], {
-			$: 'fx',
-			a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
-		});
-	}
-}
-
-
-function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
-{
-	switch (bag.$)
-	{
-		case 1:
-			var home = bag.k;
-			var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
-			effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
-			return;
-
-		case 2:
-			for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
-			{
-				_Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
-			}
-			return;
-
-		case 3:
-			_Platform_gatherEffects(isCmd, bag.o, effectsDict, {
-				s: bag.n,
-				t: taggers
-			});
-			return;
-	}
-}
-
-
-function _Platform_toEffect(isCmd, home, taggers, value)
-{
-	function applyTaggers(x)
-	{
-		for (var temp = taggers; temp; temp = temp.t)
-		{
-			x = temp.s(x);
-		}
-		return x;
-	}
-
-	var map = isCmd
-		? _Platform_effectManagers[home].e
-		: _Platform_effectManagers[home].f;
-
-	return A2(map, applyTaggers, value)
-}
-
-
-function _Platform_insert(isCmd, newEffect, effects)
-{
-	effects = effects || { i: _List_Nil, j: _List_Nil };
-
-	isCmd
-		? (effects.i = _List_Cons(newEffect, effects.i))
-		: (effects.j = _List_Cons(newEffect, effects.j));
-
-	return effects;
-}
-
-
-
-// PORTS
-
-
-function _Platform_checkPortName(name)
-{
-	if (_Platform_effectManagers[name])
-	{
-		_Debug_crash(3, name)
-	}
-}
-
-
-
-// OUTGOING PORTS
-
-
-function _Platform_outgoingPort(name, converter)
-{
-	_Platform_checkPortName(name);
-	_Platform_effectManagers[name] = {
-		e: _Platform_outgoingPortMap,
-		u: converter,
-		a: _Platform_setupOutgoingPort
-	};
-	return _Platform_leaf(name);
-}
-
-
-var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
-
-
-function _Platform_setupOutgoingPort(name)
-{
-	var subs = [];
-	var converter = _Platform_effectManagers[name].u;
-
-	// CREATE MANAGER
-
-	var init = _Process_sleep(0);
-
-	_Platform_effectManagers[name].b = init;
-	_Platform_effectManagers[name].c = F3(function(router, cmdList, state)
-	{
-		for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
-		{
-			// grab a separate reference to subs in case unsubscribe is called
-			var currentSubs = subs;
-			var value = _Json_unwrap(converter(cmdList.a));
-			for (var i = 0; i < currentSubs.length; i++)
-			{
-				currentSubs[i](value);
-			}
-		}
-		return init;
-	});
-
-	// PUBLIC API
-
-	function subscribe(callback)
-	{
-		subs.push(callback);
-	}
-
-	function unsubscribe(callback)
-	{
-		// copy subs into a new array in case unsubscribe is called within a
-		// subscribed callback
-		subs = subs.slice();
-		var index = subs.indexOf(callback);
-		if (index >= 0)
-		{
-			subs.splice(index, 1);
-		}
-	}
-
-	return {
-		subscribe: subscribe,
-		unsubscribe: unsubscribe
-	};
-}
-
-
-
-// INCOMING PORTS
-
-
-function _Platform_incomingPort(name, converter)
-{
-	_Platform_checkPortName(name);
-	_Platform_effectManagers[name] = {
-		f: _Platform_incomingPortMap,
-		u: converter,
-		a: _Platform_setupIncomingPort
-	};
-	return _Platform_leaf(name);
-}
-
-
-var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
-{
-	return function(value)
-	{
-		return tagger(finalTagger(value));
-	};
-});
-
-
-function _Platform_setupIncomingPort(name, sendToApp)
-{
-	var subs = _List_Nil;
-	var converter = _Platform_effectManagers[name].u;
-
-	// CREATE MANAGER
-
-	var init = _Scheduler_succeed(null);
-
-	_Platform_effectManagers[name].b = init;
-	_Platform_effectManagers[name].c = F3(function(router, subList, state)
-	{
-		subs = subList;
-		return init;
-	});
-
-	// PUBLIC API
-
-	function send(incomingValue)
-	{
-		var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
-
-		$elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
-
-		var value = result.a;
-		for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
-		{
-			sendToApp(temp.a(value));
-		}
-	}
-
-	return { send: send };
-}
-
-
-
-// EXPORT ELM MODULES
-//
-// Have DEBUG and PROD versions so that we can (1) give nicer errors in
-// debug mode and (2) not pay for the bits needed for that in prod mode.
-//
-
-
-function _Platform_export_UNUSED(exports)
-{
-	scope['Elm']
-		? _Platform_mergeExportsProd(scope['Elm'], exports)
-		: scope['Elm'] = exports;
-}
-
-
-function _Platform_mergeExportsProd(obj, exports)
-{
-	for (var name in exports)
-	{
-		(name in obj)
-			? (name == 'init')
-				? _Debug_crash(6)
-				: _Platform_mergeExportsProd(obj[name], exports[name])
-			: (obj[name] = exports[name]);
-	}
-}
-
-
-function _Platform_export(exports)
-{
-	scope['Elm']
-		? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
-		: scope['Elm'] = exports;
-}
-
-
-function _Platform_mergeExportsDebug(moduleName, obj, exports)
-{
-	for (var name in exports)
-	{
-		(name in obj)
-			? (name == 'init')
-				? _Debug_crash(6, moduleName)
-				: _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
-			: (obj[name] = exports[name]);
-	}
-}
-
-
-
-
-// HELPERS
-
-
-var _VirtualDom_divertHrefToApp;
-
-var _VirtualDom_doc = typeof document !== 'undefined' ? document : {};
-
-
-function _VirtualDom_appendChild(parent, child)
-{
-	parent.appendChild(child);
-}
-
-var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
-{
-	// NOTE: this function needs _Platform_export available to work
-
-	/**_UNUSED/
-	var node = args['node'];
-	//*/
-	/**/
-	var node = args && args['node'] ? args['node'] : _Debug_crash(0);
-	//*/
-
-	node.parentNode.replaceChild(
-		_VirtualDom_render(virtualNode, function() {}),
-		node
-	);
-
-	return {};
-});
-
-
-
-// TEXT
-
-
-function _VirtualDom_text(string)
-{
-	return {
-		$: 0,
-		a: string
-	};
-}
-
-
-
-// NODE
-
-
-var _VirtualDom_nodeNS = F2(function(namespace, tag)
-{
-	return F2(function(factList, kidList)
-	{
-		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
-		{
-			var kid = kidList.a;
-			descendantsCount += (kid.b || 0);
-			kids.push(kid);
-		}
-		descendantsCount += kids.length;
-
-		return {
-			$: 1,
-			c: tag,
-			d: _VirtualDom_organizeFacts(factList),
-			e: kids,
-			f: namespace,
-			b: descendantsCount
-		};
-	});
-});
-
-
-var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
-
-
-
-// KEYED NODE
-
-
-var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
-{
-	return F2(function(factList, kidList)
-	{
-		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
-		{
-			var kid = kidList.a;
-			descendantsCount += (kid.b.b || 0);
-			kids.push(kid);
-		}
-		descendantsCount += kids.length;
-
-		return {
-			$: 2,
-			c: tag,
-			d: _VirtualDom_organizeFacts(factList),
-			e: kids,
-			f: namespace,
-			b: descendantsCount
-		};
-	});
-});
-
-
-var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
-
-
-
-// CUSTOM
-
-
-function _VirtualDom_custom(factList, model, render, diff)
-{
-	return {
-		$: 3,
-		d: _VirtualDom_organizeFacts(factList),
-		g: model,
-		h: render,
-		i: diff
-	};
-}
-
-
-
-// MAP
-
-
-var _VirtualDom_map = F2(function(tagger, node)
-{
-	return {
-		$: 4,
-		j: tagger,
-		k: node,
-		b: 1 + (node.b || 0)
-	};
-});
-
-
-
-// LAZY
-
-
-function _VirtualDom_thunk(refs, thunk)
-{
-	return {
-		$: 5,
-		l: refs,
-		m: thunk,
-		k: undefined
-	};
-}
-
-var _VirtualDom_lazy = F2(function(func, a)
-{
-	return _VirtualDom_thunk([func, a], function() {
-		return func(a);
-	});
-});
-
-var _VirtualDom_lazy2 = F3(function(func, a, b)
-{
-	return _VirtualDom_thunk([func, a, b], function() {
-		return A2(func, a, b);
-	});
-});
-
-var _VirtualDom_lazy3 = F4(function(func, a, b, c)
-{
-	return _VirtualDom_thunk([func, a, b, c], function() {
-		return A3(func, a, b, c);
-	});
-});
-
-var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
-{
-	return _VirtualDom_thunk([func, a, b, c, d], function() {
-		return A4(func, a, b, c, d);
-	});
-});
-
-var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
-{
-	return _VirtualDom_thunk([func, a, b, c, d, e], function() {
-		return A5(func, a, b, c, d, e);
-	});
-});
-
-var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
-{
-	return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
-		return A6(func, a, b, c, d, e, f);
-	});
-});
-
-var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
-{
-	return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
-		return A7(func, a, b, c, d, e, f, g);
-	});
-});
-
-var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
-{
-	return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
-		return A8(func, a, b, c, d, e, f, g, h);
-	});
-});
-
-
-
-// FACTS
-
-
-var _VirtualDom_on = F2(function(key, handler)
-{
-	return {
-		$: 'a0',
-		n: key,
-		o: handler
-	};
-});
-var _VirtualDom_style = F2(function(key, value)
-{
-	return {
-		$: 'a1',
-		n: key,
-		o: value
-	};
-});
-var _VirtualDom_property = F2(function(key, value)
-{
-	return {
-		$: 'a2',
-		n: key,
-		o: value
-	};
-});
-var _VirtualDom_attribute = F2(function(key, value)
-{
-	return {
-		$: 'a3',
-		n: key,
-		o: value
-	};
-});
-var _VirtualDom_attributeNS = F3(function(namespace, key, value)
-{
-	return {
-		$: 'a4',
-		n: key,
-		o: { f: namespace, o: value }
-	};
-});
-
-
-
-// XSS ATTACK VECTOR CHECKS
-//
-// For some reason, tabs can appear in href protocols and it still works.
-// So '\tjava\tSCRIPT:alert("!!!")' and 'javascript:alert("!!!")' are the same
-// in practice. That is why _VirtualDom_RE_js and _VirtualDom_RE_js_html look
-// so freaky.
-//
-// Pulling the regular expressions out to the top level gives a slight speed
-// boost in small benchmarks (4-10%) but hoisting values to reduce allocation
-// can be unpredictable in large programs where JIT may have a harder time with
-// functions are not fully self-contained. The benefit is more that the js and
-// js_html ones are so weird that I prefer to see them near each other.
-
-
-var _VirtualDom_RE_script = /^script$/i;
-var _VirtualDom_RE_on_formAction = /^(on|formAction$)/i;
-var _VirtualDom_RE_js = /^\s*j\s*a\s*v\s*a\s*s\s*c\s*r\s*i\s*p\s*t\s*:/i;
-var _VirtualDom_RE_js_html = /^\s*(j\s*a\s*v\s*a\s*s\s*c\s*r\s*i\s*p\s*t\s*:|d\s*a\s*t\s*a\s*:\s*t\s*e\s*x\s*t\s*\/\s*h\s*t\s*m\s*l\s*(,|;))/i;
-
-
-function _VirtualDom_noScript(tag)
-{
-	return _VirtualDom_RE_script.test(tag) ? 'p' : tag;
-}
-
-function _VirtualDom_noOnOrFormAction(key)
-{
-	return _VirtualDom_RE_on_formAction.test(key) ? 'data-' + key : key;
-}
-
-function _VirtualDom_noInnerHtmlOrFormAction(key)
-{
-	return key == 'innerHTML' || key == 'formAction' ? 'data-' + key : key;
-}
-
-function _VirtualDom_noJavaScriptUri(value)
-{
-	return _VirtualDom_RE_js.test(value)
-		? /**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
-		: value;
-}
-
-function _VirtualDom_noJavaScriptOrHtmlUri(value)
-{
-	return _VirtualDom_RE_js_html.test(value)
-		? /**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
-		: value;
-}
-
-function _VirtualDom_noJavaScriptOrHtmlJson(value)
-{
-	return (typeof _Json_unwrap(value) === 'string' && _VirtualDom_RE_js_html.test(_Json_unwrap(value)))
-		? _Json_wrap(
-			/**_UNUSED/''//*//**/'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'//*/
-		) : value;
-}
-
-
-
-// MAP FACTS
-
-
-var _VirtualDom_mapAttribute = F2(function(func, attr)
-{
-	return (attr.$ === 'a0')
-		? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
-		: attr;
-});
-
-function _VirtualDom_mapHandler(func, handler)
-{
-	var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
-
-	// 0 = Normal
-	// 1 = MayStopPropagation
-	// 2 = MayPreventDefault
-	// 3 = Custom
-
-	return {
-		$: handler.$,
-		a:
-			!tag
-				? A2($elm$json$Json$Decode$map, func, handler.a)
-				:
-			A3($elm$json$Json$Decode$map2,
-				tag < 3
-					? _VirtualDom_mapEventTuple
-					: _VirtualDom_mapEventRecord,
-				$elm$json$Json$Decode$succeed(func),
-				handler.a
-			)
-	};
-}
-
-var _VirtualDom_mapEventTuple = F2(function(func, tuple)
-{
-	return _Utils_Tuple2(func(tuple.a), tuple.b);
-});
-
-var _VirtualDom_mapEventRecord = F2(function(func, record)
-{
-	return {
-		message: func(record.message),
-		stopPropagation: record.stopPropagation,
-		preventDefault: record.preventDefault
-	}
-});
-
-
-
-// ORGANIZE FACTS
-
-
-function _VirtualDom_organizeFacts(factList)
-{
-	for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
-	{
-		var entry = factList.a;
-
-		var tag = entry.$;
-		var key = entry.n;
-		var value = entry.o;
-
-		if (tag === 'a2')
-		{
-			(key === 'className')
-				? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
-				: facts[key] = _Json_unwrap(value);
-
-			continue;
-		}
-
-		var subFacts = facts[tag] || (facts[tag] = {});
-		(tag === 'a3' && key === 'class')
-			? _VirtualDom_addClass(subFacts, key, value)
-			: subFacts[key] = value;
-	}
-
-	return facts;
-}
-
-function _VirtualDom_addClass(object, key, newClass)
-{
-	var classes = object[key];
-	object[key] = classes ? classes + ' ' + newClass : newClass;
-}
-
-
-
-// RENDER
-
-
-function _VirtualDom_render(vNode, eventNode)
-{
-	var tag = vNode.$;
-
-	if (tag === 5)
-	{
-		return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
-	}
-
-	if (tag === 0)
-	{
-		return _VirtualDom_doc.createTextNode(vNode.a);
-	}
-
-	if (tag === 4)
-	{
-		var subNode = vNode.k;
-		var tagger = vNode.j;
-
-		while (subNode.$ === 4)
-		{
-			typeof tagger !== 'object'
-				? tagger = [tagger, subNode.j]
-				: tagger.push(subNode.j);
-
-			subNode = subNode.k;
-		}
-
-		var subEventRoot = { j: tagger, p: eventNode };
-		var domNode = _VirtualDom_render(subNode, subEventRoot);
-		domNode.elm_event_node_ref = subEventRoot;
-		return domNode;
-	}
-
-	if (tag === 3)
-	{
-		var domNode = vNode.h(vNode.g);
-		_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
-		return domNode;
-	}
-
-	// at this point `tag` must be 1 or 2
-
-	var domNode = vNode.f
-		? _VirtualDom_doc.createElementNS(vNode.f, vNode.c)
-		: _VirtualDom_doc.createElement(vNode.c);
-
-	if (_VirtualDom_divertHrefToApp && vNode.c == 'a')
-	{
-		domNode.addEventListener('click', _VirtualDom_divertHrefToApp(domNode));
-	}
-
-	_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
-
-	for (var kids = vNode.e, i = 0; i < kids.length; i++)
-	{
-		_VirtualDom_appendChild(domNode, _VirtualDom_render(tag === 1 ? kids[i] : kids[i].b, eventNode));
-	}
-
-	return domNode;
-}
-
-
-
-// APPLY FACTS
-
-
-function _VirtualDom_applyFacts(domNode, eventNode, facts)
-{
-	for (var key in facts)
-	{
-		var value = facts[key];
-
-		key === 'a1'
-			? _VirtualDom_applyStyles(domNode, value)
-			:
-		key === 'a0'
-			? _VirtualDom_applyEvents(domNode, eventNode, value)
-			:
-		key === 'a3'
-			? _VirtualDom_applyAttrs(domNode, value)
-			:
-		key === 'a4'
-			? _VirtualDom_applyAttrsNS(domNode, value)
-			:
-		((key !== 'value' && key !== 'checked') || domNode[key] !== value) && (domNode[key] = value);
-	}
-}
-
-
-
-// APPLY STYLES
-
-
-function _VirtualDom_applyStyles(domNode, styles)
-{
-	var domNodeStyle = domNode.style;
-
-	for (var key in styles)
-	{
-		domNodeStyle[key] = styles[key];
-	}
-}
-
-
-
-// APPLY ATTRS
-
-
-function _VirtualDom_applyAttrs(domNode, attrs)
-{
-	for (var key in attrs)
-	{
-		var value = attrs[key];
-		typeof value !== 'undefined'
-			? domNode.setAttribute(key, value)
-			: domNode.removeAttribute(key);
-	}
-}
-
-
-
-// APPLY NAMESPACED ATTRS
-
-
-function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
-{
-	for (var key in nsAttrs)
-	{
-		var pair = nsAttrs[key];
-		var namespace = pair.f;
-		var value = pair.o;
-
-		typeof value !== 'undefined'
-			? domNode.setAttributeNS(namespace, key, value)
-			: domNode.removeAttributeNS(namespace, key);
-	}
-}
-
-
-
-// APPLY EVENTS
-
-
-function _VirtualDom_applyEvents(domNode, eventNode, events)
-{
-	var allCallbacks = domNode.elmFs || (domNode.elmFs = {});
-
-	for (var key in events)
-	{
-		var newHandler = events[key];
-		var oldCallback = allCallbacks[key];
-
-		if (!newHandler)
-		{
-			domNode.removeEventListener(key, oldCallback);
-			allCallbacks[key] = undefined;
-			continue;
-		}
-
-		if (oldCallback)
-		{
-			var oldHandler = oldCallback.q;
-			if (oldHandler.$ === newHandler.$)
-			{
-				oldCallback.q = newHandler;
-				continue;
-			}
-			domNode.removeEventListener(key, oldCallback);
-		}
-
-		oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
-		domNode.addEventListener(key, oldCallback,
-			_VirtualDom_passiveSupported
-			&& { passive: $elm$virtual_dom$VirtualDom$toHandlerInt(newHandler) < 2 }
-		);
-		allCallbacks[key] = oldCallback;
-	}
-}
-
-
-
-// PASSIVE EVENTS
-
-
-var _VirtualDom_passiveSupported;
-
-try
-{
-	window.addEventListener('t', null, Object.defineProperty({}, 'passive', {
-		get: function() { _VirtualDom_passiveSupported = true; }
-	}));
-}
-catch(e) {}
-
-
-
-// EVENT HANDLERS
-
-
-function _VirtualDom_makeCallback(eventNode, initialHandler)
-{
-	function callback(event)
-	{
-		var handler = callback.q;
-		var result = _Json_runHelp(handler.a, event);
-
-		if (!$elm$core$Result$isOk(result))
-		{
-			return;
-		}
-
-		var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
-
-		// 0 = Normal
-		// 1 = MayStopPropagation
-		// 2 = MayPreventDefault
-		// 3 = Custom
-
-		var value = result.a;
-		var message = !tag ? value : tag < 3 ? value.a : value.message;
-		var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
-		var currentEventNode = (
-			stopPropagation && event.stopPropagation(),
-			(tag == 2 ? value.b : tag == 3 && value.preventDefault) && event.preventDefault(),
-			eventNode
-		);
-		var tagger;
-		var i;
-		while (tagger = currentEventNode.j)
-		{
-			if (typeof tagger == 'function')
-			{
-				message = tagger(message);
-			}
-			else
-			{
-				for (var i = tagger.length; i--; )
-				{
-					message = tagger[i](message);
-				}
-			}
-			currentEventNode = currentEventNode.p;
-		}
-		currentEventNode(message, stopPropagation); // stopPropagation implies isSync
-	}
-
-	callback.q = initialHandler;
-
-	return callback;
-}
-
-function _VirtualDom_equalEvents(x, y)
-{
-	return x.$ == y.$ && _Json_equality(x.a, y.a);
-}
-
-
-
-// DIFF
-
-
-// TODO: Should we do patches like in iOS?
-//
-// type Patch
-//   = At Int Patch
-//   | Batch (List Patch)
-//   | Change ...
-//
-// How could it not be better?
-//
-function _VirtualDom_diff(x, y)
-{
-	var patches = [];
-	_VirtualDom_diffHelp(x, y, patches, 0);
-	return patches;
-}
-
-
-function _VirtualDom_pushPatch(patches, type, index, data)
-{
-	var patch = {
-		$: type,
-		r: index,
-		s: data,
-		t: undefined,
-		u: undefined
-	};
-	patches.push(patch);
-	return patch;
-}
-
-
-function _VirtualDom_diffHelp(x, y, patches, index)
-{
-	if (x === y)
-	{
-		return;
-	}
-
-	var xType = x.$;
-	var yType = y.$;
-
-	// Bail if you run into different types of nodes. Implies that the
-	// structure has changed significantly and it's not worth a diff.
-	if (xType !== yType)
-	{
-		if (xType === 1 && yType === 2)
-		{
-			y = _VirtualDom_dekey(y);
-			yType = 1;
-		}
-		else
-		{
-			_VirtualDom_pushPatch(patches, 0, index, y);
-			return;
-		}
-	}
-
-	// Now we know that both nodes are the same $.
-	switch (yType)
-	{
-		case 5:
-			var xRefs = x.l;
-			var yRefs = y.l;
-			var i = xRefs.length;
-			var same = i === yRefs.length;
-			while (same && i--)
-			{
-				same = xRefs[i] === yRefs[i];
-			}
-			if (same)
-			{
-				y.k = x.k;
-				return;
-			}
-			y.k = y.m();
-			var subPatches = [];
-			_VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
-			subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
-			return;
-
-		case 4:
-			// gather nested taggers
-			var xTaggers = x.j;
-			var yTaggers = y.j;
-			var nesting = false;
-
-			var xSubNode = x.k;
-			while (xSubNode.$ === 4)
-			{
-				nesting = true;
-
-				typeof xTaggers !== 'object'
-					? xTaggers = [xTaggers, xSubNode.j]
-					: xTaggers.push(xSubNode.j);
-
-				xSubNode = xSubNode.k;
-			}
-
-			var ySubNode = y.k;
-			while (ySubNode.$ === 4)
-			{
-				nesting = true;
-
-				typeof yTaggers !== 'object'
-					? yTaggers = [yTaggers, ySubNode.j]
-					: yTaggers.push(ySubNode.j);
-
-				ySubNode = ySubNode.k;
-			}
-
-			// Just bail if different numbers of taggers. This implies the
-			// structure of the virtual DOM has changed.
-			if (nesting && xTaggers.length !== yTaggers.length)
-			{
-				_VirtualDom_pushPatch(patches, 0, index, y);
-				return;
-			}
-
-			// check if taggers are "the same"
-			if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
-			{
-				_VirtualDom_pushPatch(patches, 2, index, yTaggers);
-			}
-
-			// diff everything below the taggers
-			_VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
-			return;
-
-		case 0:
-			if (x.a !== y.a)
-			{
-				_VirtualDom_pushPatch(patches, 3, index, y.a);
-			}
-			return;
-
-		case 1:
-			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
-			return;
-
-		case 2:
-			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
-			return;
-
-		case 3:
-			if (x.h !== y.h)
-			{
-				_VirtualDom_pushPatch(patches, 0, index, y);
-				return;
-			}
-
-			var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
-			factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
-
-			var patch = y.i(x.g, y.g);
-			patch && _VirtualDom_pushPatch(patches, 5, index, patch);
-
-			return;
-	}
-}
-
-// assumes the incoming arrays are the same length
-function _VirtualDom_pairwiseRefEqual(as, bs)
-{
-	for (var i = 0; i < as.length; i++)
-	{
-		if (as[i] !== bs[i])
-		{
-			return false;
-		}
-	}
-
-	return true;
-}
-
-function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
-{
-	// Bail if obvious indicators have changed. Implies more serious
-	// structural changes such that it's not worth it to diff.
-	if (x.c !== y.c || x.f !== y.f)
-	{
-		_VirtualDom_pushPatch(patches, 0, index, y);
-		return;
-	}
-
-	var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
-	factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
-
-	diffKids(x, y, patches, index);
-}
-
-
-
-// DIFF FACTS
-
-
-// TODO Instead of creating a new diff object, it's possible to just test if
-// there *is* a diff. During the actual patch, do the diff again and make the
-// modifications directly. This way, there's no new allocations. Worth it?
-function _VirtualDom_diffFacts(x, y, category)
-{
-	var diff;
-
-	// look for changes and removals
-	for (var xKey in x)
-	{
-		if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
-		{
-			var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
-			if (subDiff)
-			{
-				diff = diff || {};
-				diff[xKey] = subDiff;
-			}
-			continue;
-		}
-
-		// remove if not in the new facts
-		if (!(xKey in y))
-		{
-			diff = diff || {};
-			diff[xKey] =
-				!category
-					? (typeof x[xKey] === 'string' ? '' : null)
-					:
-				(category === 'a1')
-					? ''
-					:
-				(category === 'a0' || category === 'a3')
-					? undefined
-					:
-				{ f: x[xKey].f, o: undefined };
-
-			continue;
-		}
-
-		var xValue = x[xKey];
-		var yValue = y[xKey];
-
-		// reference equal, so don't worry about it
-		if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
-			|| category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
-		{
-			continue;
-		}
-
-		diff = diff || {};
-		diff[xKey] = yValue;
-	}
-
-	// add new stuff
-	for (var yKey in y)
-	{
-		if (!(yKey in x))
-		{
-			diff = diff || {};
-			diff[yKey] = y[yKey];
-		}
-	}
-
-	return diff;
-}
-
-
-
-// DIFF KIDS
-
-
-function _VirtualDom_diffKids(xParent, yParent, patches, index)
-{
-	var xKids = xParent.e;
-	var yKids = yParent.e;
-
-	var xLen = xKids.length;
-	var yLen = yKids.length;
-
-	// FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
-
-	if (xLen > yLen)
-	{
-		_VirtualDom_pushPatch(patches, 6, index, {
-			v: yLen,
-			i: xLen - yLen
-		});
-	}
-	else if (xLen < yLen)
-	{
-		_VirtualDom_pushPatch(patches, 7, index, {
-			v: xLen,
-			e: yKids
-		});
-	}
-
-	// PAIRWISE DIFF EVERYTHING ELSE
-
-	for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
-	{
-		var xKid = xKids[i];
-		_VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
-		index += xKid.b || 0;
-	}
-}
-
-
-
-// KEYED DIFF
-
-
-function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
-{
-	var localPatches = [];
-
-	var changes = {}; // Dict String Entry
-	var inserts = []; // Array { index : Int, entry : Entry }
-	// type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
-
-	var xKids = xParent.e;
-	var yKids = yParent.e;
-	var xLen = xKids.length;
-	var yLen = yKids.length;
-	var xIndex = 0;
-	var yIndex = 0;
-
-	var index = rootIndex;
-
-	while (xIndex < xLen && yIndex < yLen)
-	{
-		var x = xKids[xIndex];
-		var y = yKids[yIndex];
-
-		var xKey = x.a;
-		var yKey = y.a;
-		var xNode = x.b;
-		var yNode = y.b;
-
-		var newMatch = undefined;
-		var oldMatch = undefined;
-
-		// check if keys match
-
-		if (xKey === yKey)
-		{
-			index++;
-			_VirtualDom_diffHelp(xNode, yNode, localPatches, index);
-			index += xNode.b || 0;
-
-			xIndex++;
-			yIndex++;
-			continue;
-		}
-
-		// look ahead 1 to detect insertions and removals.
-
-		var xNext = xKids[xIndex + 1];
-		var yNext = yKids[yIndex + 1];
-
-		if (xNext)
-		{
-			var xNextKey = xNext.a;
-			var xNextNode = xNext.b;
-			oldMatch = yKey === xNextKey;
-		}
-
-		if (yNext)
-		{
-			var yNextKey = yNext.a;
-			var yNextNode = yNext.b;
-			newMatch = xKey === yNextKey;
-		}
-
-
-		// swap x and y
-		if (newMatch && oldMatch)
-		{
-			index++;
-			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
-			_VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
-			index += xNode.b || 0;
-
-			index++;
-			_VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
-			index += xNextNode.b || 0;
-
-			xIndex += 2;
-			yIndex += 2;
-			continue;
-		}
-
-		// insert y
-		if (newMatch)
-		{
-			index++;
-			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
-			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
-			index += xNode.b || 0;
-
-			xIndex += 1;
-			yIndex += 2;
-			continue;
-		}
-
-		// remove x
-		if (oldMatch)
-		{
-			index++;
-			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
-			index += xNode.b || 0;
-
-			index++;
-			_VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
-			index += xNextNode.b || 0;
-
-			xIndex += 2;
-			yIndex += 1;
-			continue;
-		}
-
-		// remove x, insert y
-		if (xNext && xNextKey === yNextKey)
-		{
-			index++;
-			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
-			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
-			index += xNode.b || 0;
-
-			index++;
-			_VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
-			index += xNextNode.b || 0;
-
-			xIndex += 2;
-			yIndex += 2;
-			continue;
-		}
-
-		break;
-	}
-
-	// eat up any remaining nodes with removeNode and insertNode
-
-	while (xIndex < xLen)
-	{
-		index++;
-		var x = xKids[xIndex];
-		var xNode = x.b;
-		_VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
-		index += xNode.b || 0;
-		xIndex++;
-	}
-
-	while (yIndex < yLen)
-	{
-		var endInserts = endInserts || [];
-		var y = yKids[yIndex];
-		_VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
-		yIndex++;
-	}
-
-	if (localPatches.length > 0 || inserts.length > 0 || endInserts)
-	{
-		_VirtualDom_pushPatch(patches, 8, rootIndex, {
-			w: localPatches,
-			x: inserts,
-			y: endInserts
-		});
-	}
-}
-
-
-
-// CHANGES FROM KEYED DIFF
-
-
-var _VirtualDom_POSTFIX = '_elmW6BL';
-
-
-function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
-{
-	var entry = changes[key];
-
-	// never seen this key before
-	if (!entry)
-	{
-		entry = {
-			c: 0,
-			z: vnode,
-			r: yIndex,
-			s: undefined
-		};
-
-		inserts.push({ r: yIndex, A: entry });
-		changes[key] = entry;
-
-		return;
-	}
-
-	// this key was removed earlier, a match!
-	if (entry.c === 1)
-	{
-		inserts.push({ r: yIndex, A: entry });
-
-		entry.c = 2;
-		var subPatches = [];
-		_VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
-		entry.r = yIndex;
-		entry.s.s = {
-			w: subPatches,
-			A: entry
-		};
-
-		return;
-	}
-
-	// this key has already been inserted or moved, a duplicate!
-	_VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
-}
-
-
-function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
-{
-	var entry = changes[key];
-
-	// never seen this key before
-	if (!entry)
-	{
-		var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
-
-		changes[key] = {
-			c: 1,
-			z: vnode,
-			r: index,
-			s: patch
-		};
-
-		return;
-	}
-
-	// this key was inserted earlier, a match!
-	if (entry.c === 0)
-	{
-		entry.c = 2;
-		var subPatches = [];
-		_VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
-
-		_VirtualDom_pushPatch(localPatches, 9, index, {
-			w: subPatches,
-			A: entry
-		});
-
-		return;
-	}
-
-	// this key has already been removed or moved, a duplicate!
-	_VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
-}
-
-
-
-// ADD DOM NODES
-//
-// Each DOM node has an "index" assigned in order of traversal. It is important
-// to minimize our crawl over the actual DOM, so these indexes (along with the
-// descendantsCount of virtual nodes) let us skip touching entire subtrees of
-// the DOM if we know there are no patches there.
-
-
-function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
-{
-	_VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
-}
-
-
-// assumes `patches` is non-empty and indexes increase monotonically.
-function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
-{
-	var patch = patches[i];
-	var index = patch.r;
-
-	while (index === low)
-	{
-		var patchType = patch.$;
-
-		if (patchType === 1)
-		{
-			_VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
-		}
-		else if (patchType === 8)
-		{
-			patch.t = domNode;
-			patch.u = eventNode;
-
-			var subPatches = patch.s.w;
-			if (subPatches.length > 0)
-			{
-				_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
-			}
-		}
-		else if (patchType === 9)
-		{
-			patch.t = domNode;
-			patch.u = eventNode;
-
-			var data = patch.s;
-			if (data)
-			{
-				data.A.s = domNode;
-				var subPatches = data.w;
-				if (subPatches.length > 0)
-				{
-					_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
-				}
-			}
-		}
-		else
-		{
-			patch.t = domNode;
-			patch.u = eventNode;
-		}
-
-		i++;
-
-		if (!(patch = patches[i]) || (index = patch.r) > high)
-		{
-			return i;
-		}
-	}
-
-	var tag = vNode.$;
-
-	if (tag === 4)
-	{
-		var subNode = vNode.k;
-
-		while (subNode.$ === 4)
-		{
-			subNode = subNode.k;
-		}
-
-		return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, domNode.elm_event_node_ref);
-	}
-
-	// tag must be 1 or 2 at this point
-
-	var vKids = vNode.e;
-	var childNodes = domNode.childNodes;
-	for (var j = 0; j < vKids.length; j++)
-	{
-		low++;
-		var vKid = tag === 1 ? vKids[j] : vKids[j].b;
-		var nextLow = low + (vKid.b || 0);
-		if (low <= index && index <= nextLow)
-		{
-			i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
-			if (!(patch = patches[i]) || (index = patch.r) > high)
-			{
-				return i;
-			}
-		}
-		low = nextLow;
-	}
-	return i;
-}
-
-
-
-// APPLY PATCHES
-
-
-function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
-{
-	if (patches.length === 0)
-	{
-		return rootDomNode;
-	}
-
-	_VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
-	return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
-}
-
-function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
-{
-	for (var i = 0; i < patches.length; i++)
-	{
-		var patch = patches[i];
-		var localDomNode = patch.t
-		var newNode = _VirtualDom_applyPatch(localDomNode, patch);
-		if (localDomNode === rootDomNode)
-		{
-			rootDomNode = newNode;
-		}
-	}
-	return rootDomNode;
-}
-
-function _VirtualDom_applyPatch(domNode, patch)
-{
-	switch (patch.$)
-	{
-		case 0:
-			return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
-
-		case 4:
-			_VirtualDom_applyFacts(domNode, patch.u, patch.s);
-			return domNode;
-
-		case 3:
-			domNode.replaceData(0, domNode.length, patch.s);
-			return domNode;
-
-		case 1:
-			return _VirtualDom_applyPatchesHelp(domNode, patch.s);
-
-		case 2:
-			if (domNode.elm_event_node_ref)
-			{
-				domNode.elm_event_node_ref.j = patch.s;
-			}
-			else
-			{
-				domNode.elm_event_node_ref = { j: patch.s, p: patch.u };
-			}
-			return domNode;
-
-		case 6:
-			var data = patch.s;
-			for (var i = 0; i < data.i; i++)
-			{
-				domNode.removeChild(domNode.childNodes[data.v]);
-			}
-			return domNode;
-
-		case 7:
-			var data = patch.s;
-			var kids = data.e;
-			var i = data.v;
-			var theEnd = domNode.childNodes[i];
-			for (; i < kids.length; i++)
-			{
-				domNode.insertBefore(_VirtualDom_render(kids[i], patch.u), theEnd);
-			}
-			return domNode;
-
-		case 9:
-			var data = patch.s;
-			if (!data)
-			{
-				domNode.parentNode.removeChild(domNode);
-				return domNode;
-			}
-			var entry = data.A;
-			if (typeof entry.r !== 'undefined')
-			{
-				domNode.parentNode.removeChild(domNode);
-			}
-			entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
-			return domNode;
-
-		case 8:
-			return _VirtualDom_applyPatchReorder(domNode, patch);
-
-		case 5:
-			return patch.s(domNode);
-
-		default:
-			_Debug_crash(10); // 'Ran into an unknown patch!'
-	}
-}
-
-
-function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
-{
-	var parentNode = domNode.parentNode;
-	var newNode = _VirtualDom_render(vNode, eventNode);
-
-	if (!newNode.elm_event_node_ref)
-	{
-		newNode.elm_event_node_ref = domNode.elm_event_node_ref;
-	}
-
-	if (parentNode && newNode !== domNode)
-	{
-		parentNode.replaceChild(newNode, domNode);
-	}
-	return newNode;
-}
-
-
-function _VirtualDom_applyPatchReorder(domNode, patch)
-{
-	var data = patch.s;
-
-	// remove end inserts
-	var frag = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
-
-	// removals
-	domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
-
-	// inserts
-	var inserts = data.x;
-	for (var i = 0; i < inserts.length; i++)
-	{
-		var insert = inserts[i];
-		var entry = insert.A;
-		var node = entry.c === 2
-			? entry.s
-			: _VirtualDom_render(entry.z, patch.u);
-		domNode.insertBefore(node, domNode.childNodes[insert.r]);
-	}
-
-	// add end inserts
-	if (frag)
-	{
-		_VirtualDom_appendChild(domNode, frag);
-	}
-
-	return domNode;
-}
-
-
-function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
-{
-	if (!endInserts)
-	{
-		return;
-	}
-
-	var frag = _VirtualDom_doc.createDocumentFragment();
-	for (var i = 0; i < endInserts.length; i++)
-	{
-		var insert = endInserts[i];
-		var entry = insert.A;
-		_VirtualDom_appendChild(frag, entry.c === 2
-			? entry.s
-			: _VirtualDom_render(entry.z, patch.u)
-		);
-	}
-	return frag;
-}
-
-
-function _VirtualDom_virtualize(node)
-{
-	// TEXT NODES
-
-	if (node.nodeType === 3)
-	{
-		return _VirtualDom_text(node.textContent);
-	}
-
-
-	// WEIRD NODES
-
-	if (node.nodeType !== 1)
-	{
-		return _VirtualDom_text('');
-	}
-
-
-	// ELEMENT NODES
-
-	var attrList = _List_Nil;
-	var attrs = node.attributes;
-	for (var i = attrs.length; i--; )
-	{
-		var attr = attrs[i];
-		var name = attr.name;
-		var value = attr.value;
-		attrList = _List_Cons( A2(_VirtualDom_attribute, name, value), attrList );
-	}
-
-	var tag = node.tagName.toLowerCase();
-	var kidList = _List_Nil;
-	var kids = node.childNodes;
-
-	for (var i = kids.length; i--; )
-	{
-		kidList = _List_Cons(_VirtualDom_virtualize(kids[i]), kidList);
-	}
-	return A3(_VirtualDom_node, tag, attrList, kidList);
-}
-
-function _VirtualDom_dekey(keyedNode)
-{
-	var keyedKids = keyedNode.e;
-	var len = keyedKids.length;
-	var kids = new Array(len);
-	for (var i = 0; i < len; i++)
-	{
-		kids[i] = keyedKids[i].b;
-	}
-
-	return {
-		$: 1,
-		c: keyedNode.c,
-		d: keyedNode.d,
-		e: kids,
-		f: keyedNode.f,
-		b: keyedNode.b
-	};
-}
-
-
-
-var _Bitwise_and = F2(function(a, b)
-{
-	return a & b;
-});
-
-var _Bitwise_or = F2(function(a, b)
-{
-	return a | b;
-});
-
-var _Bitwise_xor = F2(function(a, b)
-{
-	return a ^ b;
-});
-
-function _Bitwise_complement(a)
-{
-	return ~a;
-};
-
-var _Bitwise_shiftLeftBy = F2(function(offset, a)
-{
-	return a << offset;
-});
-
-var _Bitwise_shiftRightBy = F2(function(offset, a)
-{
-	return a >> offset;
-});
-
-var _Bitwise_shiftRightZfBy = F2(function(offset, a)
-{
-	return a >>> offset;
-});
-
-
-
-
-// HELPERS
-
-
-function _Debugger_unsafeCoerce(value)
-{
-	return value;
-}
-
-
-
-// PROGRAMS
-
-
-var _Debugger_element = F4(function(impl, flagDecoder, debugMetadata, args)
-{
-	return _Platform_initialize(
-		flagDecoder,
-		args,
-		A3($elm$browser$Debugger$Main$wrapInit, _Json_wrap(debugMetadata), _Debugger_popout(), impl.init),
-		$elm$browser$Debugger$Main$wrapUpdate(impl.update),
-		$elm$browser$Debugger$Main$wrapSubs(impl.subscriptions),
-		function(sendToApp, initialModel)
-		{
-			var view = impl.view;
-			var title = _VirtualDom_doc.title;
-			var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
-			var currNode = _VirtualDom_virtualize(domNode);
-			var currBlocker = $elm$browser$Debugger$Main$toBlockerType(initialModel);
-			var currPopout;
-
-			var cornerNode = _VirtualDom_doc.createElement('div');
-			domNode.parentNode.insertBefore(cornerNode, domNode.nextSibling);
-			var cornerCurr = _VirtualDom_virtualize(cornerNode);
-
-			initialModel.popout.a = sendToApp;
-
-			return _Browser_makeAnimator(initialModel, function(model)
-			{
-				var nextNode = A2(_VirtualDom_map, $elm$browser$Debugger$Main$UserMsg, view($elm$browser$Debugger$Main$getUserModel(model)));
-				var patches = _VirtualDom_diff(currNode, nextNode);
-				domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
-				currNode = nextNode;
-
-				// update blocker
-
-				var nextBlocker = $elm$browser$Debugger$Main$toBlockerType(model);
-				_Debugger_updateBlocker(currBlocker, nextBlocker);
-				currBlocker = nextBlocker;
-
-				// view corner
-
-				var cornerNext = $elm$browser$Debugger$Main$cornerView(model);
-				var cornerPatches = _VirtualDom_diff(cornerCurr, cornerNext);
-				cornerNode = _VirtualDom_applyPatches(cornerNode, cornerCurr, cornerPatches, sendToApp);
-				cornerCurr = cornerNext;
-
-				if (!model.popout.b)
-				{
-					currPopout = undefined;
-					return;
-				}
-
-				// view popout
-
-				_VirtualDom_doc = model.popout.b; // SWITCH TO POPOUT DOC
-				currPopout || (currPopout = _VirtualDom_virtualize(model.popout.b));
-				var nextPopout = $elm$browser$Debugger$Main$popoutView(model);
-				var popoutPatches = _VirtualDom_diff(currPopout, nextPopout);
-				_VirtualDom_applyPatches(model.popout.b.body, currPopout, popoutPatches, sendToApp);
-				currPopout = nextPopout;
-				_VirtualDom_doc = document; // SWITCH BACK TO NORMAL DOC
-			});
-		}
-	);
-});
-
-
-var _Debugger_document = F4(function(impl, flagDecoder, debugMetadata, args)
-{
-	return _Platform_initialize(
-		flagDecoder,
-		args,
-		A3($elm$browser$Debugger$Main$wrapInit, _Json_wrap(debugMetadata), _Debugger_popout(), impl.init),
-		$elm$browser$Debugger$Main$wrapUpdate(impl.update),
-		$elm$browser$Debugger$Main$wrapSubs(impl.subscriptions),
-		function(sendToApp, initialModel)
-		{
-			var divertHrefToApp = impl.setup && impl.setup(function(x) { return sendToApp($elm$browser$Debugger$Main$UserMsg(x)); });
-			var view = impl.view;
-			var title = _VirtualDom_doc.title;
-			var bodyNode = _VirtualDom_doc.body;
-			var currNode = _VirtualDom_virtualize(bodyNode);
-			var currBlocker = $elm$browser$Debugger$Main$toBlockerType(initialModel);
-			var currPopout;
-
-			initialModel.popout.a = sendToApp;
-
-			return _Browser_makeAnimator(initialModel, function(model)
-			{
-				_VirtualDom_divertHrefToApp = divertHrefToApp;
-				var doc = view($elm$browser$Debugger$Main$getUserModel(model));
-				var nextNode = _VirtualDom_node('body')(_List_Nil)(
-					_Utils_ap(
-						A2($elm$core$List$map, _VirtualDom_map($elm$browser$Debugger$Main$UserMsg), doc.body),
-						_List_Cons($elm$browser$Debugger$Main$cornerView(model), _List_Nil)
-					)
-				);
-				var patches = _VirtualDom_diff(currNode, nextNode);
-				bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
-				currNode = nextNode;
-				_VirtualDom_divertHrefToApp = 0;
-				(title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
-
-				// update blocker
-
-				var nextBlocker = $elm$browser$Debugger$Main$toBlockerType(model);
-				_Debugger_updateBlocker(currBlocker, nextBlocker);
-				currBlocker = nextBlocker;
-
-				// view popout
-
-				if (!model.popout.b) { currPopout = undefined; return; }
-
-				_VirtualDom_doc = model.popout.b; // SWITCH TO POPOUT DOC
-				currPopout || (currPopout = _VirtualDom_virtualize(model.popout.b));
-				var nextPopout = $elm$browser$Debugger$Main$popoutView(model);
-				var popoutPatches = _VirtualDom_diff(currPopout, nextPopout);
-				_VirtualDom_applyPatches(model.popout.b.body, currPopout, popoutPatches, sendToApp);
-				currPopout = nextPopout;
-				_VirtualDom_doc = document; // SWITCH BACK TO NORMAL DOC
-			});
-		}
-	);
-});
-
-
-function _Debugger_popout()
-{
-	return {
-		b: undefined,
-		a: undefined
-	};
-}
-
-function _Debugger_isOpen(popout)
-{
-	return !!popout.b;
-}
-
-function _Debugger_open(popout)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		_Debugger_openWindow(popout);
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-}
-
-function _Debugger_openWindow(popout)
-{
-	var w = $elm$browser$Debugger$Main$initialWindowWidth,
-		h = $elm$browser$Debugger$Main$initialWindowHeight,
-	 	x = screen.width - w,
-		y = screen.height - h;
-
-	var debuggerWindow = window.open('', '', 'width=' + w + ',height=' + h + ',left=' + x + ',top=' + y);
-	var doc = debuggerWindow.document;
-	doc.title = 'Elm Debugger';
-
-	// handle arrow keys
-	doc.addEventListener('keydown', function(event) {
-		event.metaKey && event.which === 82 && window.location.reload();
-		event.key === 'ArrowUp'   && (popout.a($elm$browser$Debugger$Main$Up  ), event.preventDefault());
-		event.key === 'ArrowDown' && (popout.a($elm$browser$Debugger$Main$Down), event.preventDefault());
-	});
-
-	// handle window close
-	window.addEventListener('unload', close);
-	debuggerWindow.addEventListener('unload', function() {
-		popout.b = undefined;
-		popout.a($elm$browser$Debugger$Main$NoOp);
-		window.removeEventListener('unload', close);
-	});
-
-	function close() {
-		popout.b = undefined;
-		popout.a($elm$browser$Debugger$Main$NoOp);
-		debuggerWindow.close();
-	}
-
-	// register new window
-	popout.b = doc;
-}
-
-
-
-// SCROLL
-
-
-function _Debugger_scroll(popout)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		if (popout.b)
-		{
-			var msgs = popout.b.getElementById('elm-debugger-sidebar');
-			if (msgs && msgs.scrollTop !== 0)
-			{
-				msgs.scrollTop = 0;
-			}
-		}
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-}
-
-
-var _Debugger_scrollTo = F2(function(id, popout)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		if (popout.b)
-		{
-			var msg = popout.b.getElementById(id);
-			if (msg)
-			{
-				msg.scrollIntoView(false);
-			}
-		}
-		callback(_Scheduler_succeed(_Utils_Tuple0));
-	});
-});
-
-
-
-// UPLOAD
-
-
-function _Debugger_upload(popout)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		var doc = popout.b || document;
-		var element = doc.createElement('input');
-		element.setAttribute('type', 'file');
-		element.setAttribute('accept', 'text/json');
-		element.style.display = 'none';
-		element.addEventListener('change', function(event)
-		{
-			var fileReader = new FileReader();
-			fileReader.onload = function(e)
-			{
-				callback(_Scheduler_succeed(e.target.result));
-			};
-			fileReader.readAsText(event.target.files[0]);
-			doc.body.removeChild(element);
-		});
-		doc.body.appendChild(element);
-		element.click();
-	});
-}
-
-
-
-// DOWNLOAD
-
-
-var _Debugger_download = F2(function(historyLength, json)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		var fileName = 'history-' + historyLength + '.txt';
-		var jsonString = JSON.stringify(json);
-		var mime = 'text/plain;charset=utf-8';
-		var done = _Scheduler_succeed(_Utils_Tuple0);
-
-		// for IE10+
-		if (navigator.msSaveBlob)
-		{
-			navigator.msSaveBlob(new Blob([jsonString], {type: mime}), fileName);
-			return callback(done);
-		}
-
-		// for HTML5
-		var element = document.createElement('a');
-		element.setAttribute('href', 'data:' + mime + ',' + encodeURIComponent(jsonString));
-		element.setAttribute('download', fileName);
-		element.style.display = 'none';
-		document.body.appendChild(element);
-		element.click();
-		document.body.removeChild(element);
-		callback(done);
-	});
-});
-
-
-
-// POPOUT CONTENT
-
-
-function _Debugger_messageToString(value)
-{
-	if (typeof value === 'boolean')
-	{
-		return value ? 'True' : 'False';
-	}
-
-	if (typeof value === 'number')
-	{
-		return value + '';
-	}
-
-	if (typeof value === 'string')
-	{
-		return '"' + _Debugger_addSlashes(value, false) + '"';
-	}
-
-	if (value instanceof String)
-	{
-		return "'" + _Debugger_addSlashes(value, true) + "'";
-	}
-
-	if (typeof value !== 'object' || value === null || !('$' in value))
-	{
-		return '…';
-	}
-
-	if (typeof value.$ === 'number')
-	{
-		return '…';
-	}
-
-	var code = value.$.charCodeAt(0);
-	if (code === 0x23 /* # */ || /* a */ 0x61 <= code && code <= 0x7A /* z */)
-	{
-		return '…';
-	}
-
-	if (['Array_elm_builtin', 'Set_elm_builtin', 'RBNode_elm_builtin', 'RBEmpty_elm_builtin'].indexOf(value.$) >= 0)
-	{
-		return '…';
-	}
-
-	var keys = Object.keys(value);
-	switch (keys.length)
-	{
-		case 1:
-			return value.$;
-		case 2:
-			return value.$ + ' ' + _Debugger_messageToString(value.a);
-		default:
-			return value.$ + ' … ' + _Debugger_messageToString(value[keys[keys.length - 1]]);
-	}
-}
-
-
-function _Debugger_init(value)
-{
-	if (typeof value === 'boolean')
-	{
-		return A3($elm$browser$Debugger$Expando$Constructor, $elm$core$Maybe$Just(value ? 'True' : 'False'), true, _List_Nil);
-	}
-
-	if (typeof value === 'number')
-	{
-		return $elm$browser$Debugger$Expando$Primitive(value + '');
-	}
-
-	if (typeof value === 'string')
-	{
-		return $elm$browser$Debugger$Expando$S('"' + _Debugger_addSlashes(value, false) + '"');
-	}
-
-	if (value instanceof String)
-	{
-		return $elm$browser$Debugger$Expando$S("'" + _Debugger_addSlashes(value, true) + "'");
-	}
-
-	if (typeof value === 'object' && '$' in value)
-	{
-		var tag = value.$;
-
-		if (tag === '::' || tag === '[]')
-		{
-			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$ListSeq, true,
-				A2($elm$core$List$map, _Debugger_init, value)
-			);
-		}
-
-		if (tag === 'Set_elm_builtin')
-		{
-			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$SetSeq, true,
-				A3($elm$core$Set$foldr, _Debugger_initCons, _List_Nil, value)
-			);
-		}
-
-		if (tag === 'RBNode_elm_builtin' || tag == 'RBEmpty_elm_builtin')
-		{
-			return A2($elm$browser$Debugger$Expando$Dictionary, true,
-				A3($elm$core$Dict$foldr, _Debugger_initKeyValueCons, _List_Nil, value)
-			);
-		}
-
-		if (tag === 'Array_elm_builtin')
-		{
-			return A3($elm$browser$Debugger$Expando$Sequence, $elm$browser$Debugger$Expando$ArraySeq, true,
-				A3($elm$core$Array$foldr, _Debugger_initCons, _List_Nil, value)
-			);
-		}
-
-		if (typeof tag === 'number')
-		{
-			return $elm$browser$Debugger$Expando$Primitive('<internals>');
-		}
-
-		var char = tag.charCodeAt(0);
-		if (char === 35 || 65 <= char && char <= 90)
-		{
-			var list = _List_Nil;
-			for (var i in value)
-			{
-				if (i === '$') continue;
-				list = _List_Cons(_Debugger_init(value[i]), list);
-			}
-			return A3($elm$browser$Debugger$Expando$Constructor, char === 35 ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(tag), true, $elm$core$List$reverse(list));
-		}
-
-		return $elm$browser$Debugger$Expando$Primitive('<internals>');
-	}
-
-	if (typeof value === 'object')
-	{
-		var dict = $elm$core$Dict$empty;
-		for (var i in value)
-		{
-			dict = A3($elm$core$Dict$insert, i, _Debugger_init(value[i]), dict);
-		}
-		return A2($elm$browser$Debugger$Expando$Record, true, dict);
-	}
-
-	return $elm$browser$Debugger$Expando$Primitive('<internals>');
-}
-
-var _Debugger_initCons = F2(function initConsHelp(value, list)
-{
-	return _List_Cons(_Debugger_init(value), list);
-});
-
-var _Debugger_initKeyValueCons = F3(function(key, value, list)
-{
-	return _List_Cons(
-		_Utils_Tuple2(_Debugger_init(key), _Debugger_init(value)),
-		list
-	);
-});
-
-function _Debugger_addSlashes(str, isChar)
-{
-	var s = str
-		.replace(/\\/g, '\\\\')
-		.replace(/\n/g, '\\n')
-		.replace(/\t/g, '\\t')
-		.replace(/\r/g, '\\r')
-		.replace(/\v/g, '\\v')
-		.replace(/\0/g, '\\0');
-	if (isChar)
-	{
-		return s.replace(/\'/g, '\\\'');
-	}
-	else
-	{
-		return s.replace(/\"/g, '\\"');
-	}
-}
-
-
-
-// BLOCK EVENTS
-
-
-function _Debugger_updateBlocker(oldBlocker, newBlocker)
-{
-	if (oldBlocker === newBlocker) return;
-
-	var oldEvents = _Debugger_blockerToEvents(oldBlocker);
-	var newEvents = _Debugger_blockerToEvents(newBlocker);
-
-	// remove old blockers
-	for (var i = 0; i < oldEvents.length; i++)
-	{
-		document.removeEventListener(oldEvents[i], _Debugger_blocker, true);
-	}
-
-	// add new blockers
-	for (var i = 0; i < newEvents.length; i++)
-	{
-		document.addEventListener(newEvents[i], _Debugger_blocker, true);
-	}
-}
-
-
-function _Debugger_blocker(event)
-{
-	if (event.type === 'keydown' && event.metaKey && event.which === 82)
-	{
-		return;
-	}
-
-	var isScroll = event.type === 'scroll' || event.type === 'wheel';
-	for (var node = event.target; node; node = node.parentNode)
-	{
-		if (isScroll ? node.id === 'elm-debugger-details' : node.id === 'elm-debugger-overlay')
-		{
-			return;
-		}
-	}
-
-	event.stopPropagation();
-	event.preventDefault();
-}
-
-function _Debugger_blockerToEvents(blocker)
-{
-	return blocker === $elm$browser$Debugger$Overlay$BlockNone
-		? []
-		: blocker === $elm$browser$Debugger$Overlay$BlockMost
-			? _Debugger_mostEvents
-			: _Debugger_allEvents;
-}
-
-var _Debugger_mostEvents = [
-	'click', 'dblclick', 'mousemove',
-	'mouseup', 'mousedown', 'mouseenter', 'mouseleave',
-	'touchstart', 'touchend', 'touchcancel', 'touchmove',
-	'pointerdown', 'pointerup', 'pointerover', 'pointerout',
-	'pointerenter', 'pointerleave', 'pointermove', 'pointercancel',
-	'dragstart', 'drag', 'dragend', 'dragenter', 'dragover', 'dragleave', 'drop',
-	'keyup', 'keydown', 'keypress',
-	'input', 'change',
-	'focus', 'blur'
-];
-
-var _Debugger_allEvents = _Debugger_mostEvents.concat('wheel', 'scroll');
-
-
-
-
-// ELEMENT
-
-
-var _Debugger_element;
-
-var _Browser_element = _Debugger_element || F4(function(impl, flagDecoder, debugMetadata, args)
-{
-	return _Platform_initialize(
-		flagDecoder,
-		args,
-		impl.init,
-		impl.update,
-		impl.subscriptions,
-		function(sendToApp, initialModel) {
-			var view = impl.view;
-			/**_UNUSED/
-			var domNode = args['node'];
-			//*/
-			/**/
-			var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
-			//*/
-			var currNode = _VirtualDom_virtualize(domNode);
-
-			return _Browser_makeAnimator(initialModel, function(model)
-			{
-				var nextNode = view(model);
-				var patches = _VirtualDom_diff(currNode, nextNode);
-				domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
-				currNode = nextNode;
-			});
-		}
-	);
-});
-
-
-
-// DOCUMENT
-
-
-var _Debugger_document;
-
-var _Browser_document = _Debugger_document || F4(function(impl, flagDecoder, debugMetadata, args)
-{
-	return _Platform_initialize(
-		flagDecoder,
-		args,
-		impl.init,
-		impl.update,
-		impl.subscriptions,
-		function(sendToApp, initialModel) {
-			var divertHrefToApp = impl.setup && impl.setup(sendToApp)
-			var view = impl.view;
-			var title = _VirtualDom_doc.title;
-			var bodyNode = _VirtualDom_doc.body;
-			var currNode = _VirtualDom_virtualize(bodyNode);
-			return _Browser_makeAnimator(initialModel, function(model)
-			{
-				_VirtualDom_divertHrefToApp = divertHrefToApp;
-				var doc = view(model);
-				var nextNode = _VirtualDom_node('body')(_List_Nil)(doc.body);
-				var patches = _VirtualDom_diff(currNode, nextNode);
-				bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
-				currNode = nextNode;
-				_VirtualDom_divertHrefToApp = 0;
-				(title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
-			});
-		}
-	);
-});
-
-
-
-// ANIMATION
-
-
-var _Browser_cancelAnimationFrame =
-	typeof cancelAnimationFrame !== 'undefined'
-		? cancelAnimationFrame
-		: function(id) { clearTimeout(id); };
-
-var _Browser_requestAnimationFrame =
-	typeof requestAnimationFrame !== 'undefined'
-		? requestAnimationFrame
-		: function(callback) { return setTimeout(callback, 1000 / 60); };
-
-
-function _Browser_makeAnimator(model, draw)
-{
-	draw(model);
-
-	var state = 0;
-
-	function updateIfNeeded()
-	{
-		state = state === 1
-			? 0
-			: ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
-	}
-
-	return function(nextModel, isSync)
-	{
-		model = nextModel;
-
-		isSync
-			? ( draw(model),
-				state === 2 && (state = 1)
-				)
-			: ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
-				state = 2
-				);
-	};
-}
-
-
-
-// APPLICATION
-
-
-function _Browser_application(impl)
-{
-	var onUrlChange = impl.onUrlChange;
-	var onUrlRequest = impl.onUrlRequest;
-	var key = function() { key.a(onUrlChange(_Browser_getUrl())); };
-
-	return _Browser_document({
-		setup: function(sendToApp)
-		{
-			key.a = sendToApp;
-			_Browser_window.addEventListener('popstate', key);
-			_Browser_window.navigator.userAgent.indexOf('Trident') < 0 || _Browser_window.addEventListener('hashchange', key);
-
-			return F2(function(domNode, event)
-			{
-				if (!event.ctrlKey && !event.metaKey && !event.shiftKey && event.button < 1 && !domNode.target && !domNode.hasAttribute('download'))
-				{
-					event.preventDefault();
-					var href = domNode.href;
-					var curr = _Browser_getUrl();
-					var next = $elm$url$Url$fromString(href).a;
-					sendToApp(onUrlRequest(
-						(next
-							&& curr.protocol === next.protocol
-							&& curr.host === next.host
-							&& curr.port_.a === next.port_.a
-						)
-							? $elm$browser$Browser$Internal(next)
-							: $elm$browser$Browser$External(href)
-					));
-				}
-			});
-		},
-		init: function(flags)
-		{
-			return A3(impl.init, flags, _Browser_getUrl(), key);
-		},
-		view: impl.view,
-		update: impl.update,
-		subscriptions: impl.subscriptions
-	});
-}
-
-function _Browser_getUrl()
-{
-	return $elm$url$Url$fromString(_VirtualDom_doc.location.href).a || _Debug_crash(1);
-}
-
-var _Browser_go = F2(function(key, n)
-{
-	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
-		n && history.go(n);
-		key();
-	}));
-});
-
-var _Browser_pushUrl = F2(function(key, url)
-{
-	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
-		history.pushState({}, '', url);
-		key();
-	}));
-});
-
-var _Browser_replaceUrl = F2(function(key, url)
-{
-	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
-		history.replaceState({}, '', url);
-		key();
-	}));
-});
-
-
-
-// GLOBAL EVENTS
-
-
-var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
-var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
-var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
-
-var _Browser_on = F3(function(node, eventName, sendToSelf)
-{
-	return _Scheduler_spawn(_Scheduler_binding(function(callback)
-	{
-		function handler(event)	{ _Scheduler_rawSpawn(sendToSelf(event)); }
-		node.addEventListener(eventName, handler, _VirtualDom_passiveSupported && { passive: true });
-		return function() { node.removeEventListener(eventName, handler); };
-	}));
-});
-
-var _Browser_decodeEvent = F2(function(decoder, event)
-{
-	var result = _Json_runHelp(decoder, event);
-	return $elm$core$Result$isOk(result) ? $elm$core$Maybe$Just(result.a) : $elm$core$Maybe$Nothing;
-});
-
-
-
-// PAGE VISIBILITY
-
-
-function _Browser_visibilityInfo()
-{
-	return (typeof _VirtualDom_doc.hidden !== 'undefined')
-		? { hidden: 'hidden', change: 'visibilitychange' }
-		:
-	(typeof _VirtualDom_doc.mozHidden !== 'undefined')
-		? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
-		:
-	(typeof _VirtualDom_doc.msHidden !== 'undefined')
-		? { hidden: 'msHidden', change: 'msvisibilitychange' }
-		:
-	(typeof _VirtualDom_doc.webkitHidden !== 'undefined')
-		? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
-		: { hidden: 'hidden', change: 'visibilitychange' };
-}
-
-
-
-// ANIMATION FRAMES
-
-
-function _Browser_rAF()
-{
-	return _Scheduler_binding(function(callback)
-	{
-		var id = _Browser_requestAnimationFrame(function() {
-			callback(_Scheduler_succeed(Date.now()));
-		});
-
-		return function() {
-			_Browser_cancelAnimationFrame(id);
-		};
-	});
-}
-
-
-function _Browser_now()
-{
-	return _Scheduler_binding(function(callback)
-	{
-		callback(_Scheduler_succeed(Date.now()));
-	});
-}
-
-
-
-// DOM STUFF
-
-
-function _Browser_withNode(id, doStuff)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		_Browser_requestAnimationFrame(function() {
-			var node = document.getElementById(id);
-			callback(node
-				? _Scheduler_succeed(doStuff(node))
-				: _Scheduler_fail($elm$browser$Browser$Dom$NotFound(id))
-			);
-		});
-	});
-}
-
-
-function _Browser_withWindow(doStuff)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		_Browser_requestAnimationFrame(function() {
-			callback(_Scheduler_succeed(doStuff()));
-		});
-	});
-}
-
-
-// FOCUS and BLUR
-
-
-var _Browser_call = F2(function(functionName, id)
-{
-	return _Browser_withNode(id, function(node) {
-		node[functionName]();
-		return _Utils_Tuple0;
-	});
-});
-
-
-
-// WINDOW VIEWPORT
-
-
-function _Browser_getViewport()
-{
-	return {
-		scene: _Browser_getScene(),
-		viewport: {
-			x: _Browser_window.pageXOffset,
-			y: _Browser_window.pageYOffset,
-			width: _Browser_doc.documentElement.clientWidth,
-			height: _Browser_doc.documentElement.clientHeight
-		}
-	};
-}
-
-function _Browser_getScene()
-{
-	var body = _Browser_doc.body;
-	var elem = _Browser_doc.documentElement;
-	return {
-		width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
-		height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
-	};
-}
-
-var _Browser_setViewport = F2(function(x, y)
-{
-	return _Browser_withWindow(function()
-	{
-		_Browser_window.scroll(x, y);
-		return _Utils_Tuple0;
-	});
-});
-
-
-
-// ELEMENT VIEWPORT
-
-
-function _Browser_getViewportOf(id)
-{
-	return _Browser_withNode(id, function(node)
-	{
-		return {
-			scene: {
-				width: node.scrollWidth,
-				height: node.scrollHeight
-			},
-			viewport: {
-				x: node.scrollLeft,
-				y: node.scrollTop,
-				width: node.clientWidth,
-				height: node.clientHeight
-			}
-		};
-	});
-}
-
-
-var _Browser_setViewportOf = F3(function(id, x, y)
-{
-	return _Browser_withNode(id, function(node)
-	{
-		node.scrollLeft = x;
-		node.scrollTop = y;
-		return _Utils_Tuple0;
-	});
-});
-
-
-
-// ELEMENT
-
-
-function _Browser_getElement(id)
-{
-	return _Browser_withNode(id, function(node)
-	{
-		var rect = node.getBoundingClientRect();
-		var x = _Browser_window.pageXOffset;
-		var y = _Browser_window.pageYOffset;
-		return {
-			scene: _Browser_getScene(),
-			viewport: {
-				x: x,
-				y: y,
-				width: _Browser_doc.documentElement.clientWidth,
-				height: _Browser_doc.documentElement.clientHeight
-			},
-			element: {
-				x: x + rect.left,
-				y: y + rect.top,
-				width: rect.width,
-				height: rect.height
-			}
-		};
-	});
-}
-
-
-
-// LOAD and RELOAD
-
-
-function _Browser_reload(skipCache)
-{
-	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
-	{
-		_VirtualDom_doc.location.reload(skipCache);
-	}));
-}
-
-function _Browser_load(url)
-{
-	return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
-	{
-		try
-		{
-			_Browser_window.location = url;
-		}
-		catch(err)
-		{
-			// Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
-			// Other browsers reload the page, so let's be consistent about that.
-			_VirtualDom_doc.location.reload(false);
-		}
-	}));
-}
-
-
-
-
-// STRINGS
-
-
-var _Parser_isSubString = F5(function(smallString, offset, row, col, bigString)
-{
-	var smallLength = smallString.length;
-	var isGood = offset + smallLength <= bigString.length;
-
-	for (var i = 0; isGood && i < smallLength; )
-	{
-		var code = bigString.charCodeAt(offset);
-		isGood =
-			smallString[i++] === bigString[offset++]
-			&& (
-				code === 0x000A /* \n */
-					? ( row++, col=1 )
-					: ( col++, (code & 0xF800) === 0xD800 ? smallString[i++] === bigString[offset++] : 1 )
-			)
-	}
-
-	return _Utils_Tuple3(isGood ? offset : -1, row, col);
-});
-
-
-
-// CHARS
-
-
-var _Parser_isSubChar = F3(function(predicate, offset, string)
-{
-	return (
-		string.length <= offset
-			? -1
-			:
-		(string.charCodeAt(offset) & 0xF800) === 0xD800
-			? (predicate(_Utils_chr(string.substr(offset, 2))) ? offset + 2 : -1)
-			:
-		(predicate(_Utils_chr(string[offset]))
-			? ((string[offset] === '\n') ? -2 : (offset + 1))
-			: -1
-		)
-	);
-});
-
-
-var _Parser_isAsciiCode = F3(function(code, offset, string)
-{
-	return string.charCodeAt(offset) === code;
-});
-
-
-
-// NUMBERS
-
-
-var _Parser_chompBase10 = F2(function(offset, string)
-{
-	for (; offset < string.length; offset++)
-	{
-		var code = string.charCodeAt(offset);
-		if (code < 0x30 || 0x39 < code)
-		{
-			return offset;
-		}
-	}
-	return offset;
-});
-
-
-var _Parser_consumeBase = F3(function(base, offset, string)
-{
-	for (var total = 0; offset < string.length; offset++)
-	{
-		var digit = string.charCodeAt(offset) - 0x30;
-		if (digit < 0 || base <= digit) break;
-		total = base * total + digit;
-	}
-	return _Utils_Tuple2(offset, total);
-});
-
-
-var _Parser_consumeBase16 = F2(function(offset, string)
-{
-	for (var total = 0; offset < string.length; offset++)
-	{
-		var code = string.charCodeAt(offset);
-		if (0x30 <= code && code <= 0x39)
-		{
-			total = 16 * total + code - 0x30;
-		}
-		else if (0x41 <= code && code <= 0x46)
-		{
-			total = 16 * total + code - 55;
-		}
-		else if (0x61 <= code && code <= 0x66)
-		{
-			total = 16 * total + code - 87;
-		}
-		else
-		{
-			break;
-		}
-	}
-	return _Utils_Tuple2(offset, total);
-});
-
-
-
-// FIND STRING
-
-
-var _Parser_findSubString = F5(function(smallString, offset, row, col, bigString)
-{
-	var newOffset = bigString.indexOf(smallString, offset);
-	var target = newOffset < 0 ? bigString.length : newOffset + smallString.length;
-
-	while (offset < target)
-	{
-		var code = bigString.charCodeAt(offset++);
-		code === 0x000A /* \n */
-			? ( col=1, row++ )
-			: ( col++, (code & 0xF800) === 0xD800 && offset++ )
-	}
-
-	return _Utils_Tuple3(newOffset, row, col);
-});
-
-
-
-// SEND REQUEST
-
-var _Http_toTask = F3(function(router, toTask, request)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		function done(response) {
-			callback(toTask(request.expect.a(response)));
-		}
-
-		var xhr = new XMLHttpRequest();
-		xhr.addEventListener('error', function() { done($elm$http$Http$NetworkError_); });
-		xhr.addEventListener('timeout', function() { done($elm$http$Http$Timeout_); });
-		xhr.addEventListener('load', function() { done(_Http_toResponse(request.expect.b, xhr)); });
-		$elm$core$Maybe$isJust(request.tracker) && _Http_track(router, xhr, request.tracker.a);
-
-		try {
-			xhr.open(request.method, request.url, true);
-		} catch (e) {
-			return done($elm$http$Http$BadUrl_(request.url));
-		}
-
-		_Http_configureRequest(xhr, request);
-
-		request.body.a && xhr.setRequestHeader('Content-Type', request.body.a);
-		xhr.send(request.body.b);
-
-		return function() { xhr.c = true; xhr.abort(); };
-	});
-});
-
-
-// CONFIGURE
-
-function _Http_configureRequest(xhr, request)
-{
-	for (var headers = request.headers; headers.b; headers = headers.b) // WHILE_CONS
-	{
-		xhr.setRequestHeader(headers.a.a, headers.a.b);
-	}
-	xhr.timeout = request.timeout.a || 0;
-	xhr.responseType = request.expect.d;
-	xhr.withCredentials = request.allowCookiesFromOtherDomains;
-}
-
-
-// RESPONSES
-
-function _Http_toResponse(toBody, xhr)
-{
-	return A2(
-		200 <= xhr.status && xhr.status < 300 ? $elm$http$Http$GoodStatus_ : $elm$http$Http$BadStatus_,
-		_Http_toMetadata(xhr),
-		toBody(xhr.response)
-	);
-}
-
-
-// METADATA
-
-function _Http_toMetadata(xhr)
-{
-	return {
-		url: xhr.responseURL,
-		statusCode: xhr.status,
-		statusText: xhr.statusText,
-		headers: _Http_parseHeaders(xhr.getAllResponseHeaders())
-	};
-}
-
-
-// HEADERS
-
-function _Http_parseHeaders(rawHeaders)
-{
-	if (!rawHeaders)
-	{
-		return $elm$core$Dict$empty;
-	}
-
-	var headers = $elm$core$Dict$empty;
-	var headerPairs = rawHeaders.split('\r\n');
-	for (var i = headerPairs.length; i--; )
-	{
-		var headerPair = headerPairs[i];
-		var index = headerPair.indexOf(': ');
-		if (index > 0)
-		{
-			var key = headerPair.substring(0, index);
-			var value = headerPair.substring(index + 2);
-
-			headers = A3($elm$core$Dict$update, key, function(oldValue) {
-				return $elm$core$Maybe$Just($elm$core$Maybe$isJust(oldValue)
-					? value + ', ' + oldValue.a
-					: value
-				);
-			}, headers);
-		}
-	}
-	return headers;
-}
-
-
-// EXPECT
-
-var _Http_expect = F3(function(type, toBody, toValue)
-{
-	return {
-		$: 0,
-		d: type,
-		b: toBody,
-		a: toValue
-	};
-});
-
-var _Http_mapExpect = F2(function(func, expect)
-{
-	return {
-		$: 0,
-		d: expect.d,
-		b: expect.b,
-		a: function(x) { return func(expect.a(x)); }
-	};
-});
-
-function _Http_toDataView(arrayBuffer)
-{
-	return new DataView(arrayBuffer);
-}
-
-
-// BODY and PARTS
-
-var _Http_emptyBody = { $: 0 };
-var _Http_pair = F2(function(a, b) { return { $: 0, a: a, b: b }; });
-
-function _Http_toFormData(parts)
-{
-	for (var formData = new FormData(); parts.b; parts = parts.b) // WHILE_CONS
-	{
-		var part = parts.a;
-		formData.append(part.a, part.b);
-	}
-	return formData;
-}
-
-var _Http_bytesToBlob = F2(function(mime, bytes)
-{
-	return new Blob([bytes], { type: mime });
-});
-
-
-// PROGRESS
-
-function _Http_track(router, xhr, tracker)
-{
-	// TODO check out lengthComputable on loadstart event
-
-	xhr.upload.addEventListener('progress', function(event) {
-		if (xhr.c) { return; }
-		_Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Sending({
-			sent: event.loaded,
-			size: event.total
-		}))));
-	});
-	xhr.addEventListener('progress', function(event) {
-		if (xhr.c) { return; }
-		_Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Receiving({
-			received: event.loaded,
-			size: event.lengthComputable ? $elm$core$Maybe$Just(event.total) : $elm$core$Maybe$Nothing
-		}))));
-	});
-}
-
-function _Url_percentEncode(string)
-{
-	return encodeURIComponent(string);
-}
-
-function _Url_percentDecode(string)
-{
-	try
-	{
-		return $elm$core$Maybe$Just(decodeURIComponent(string));
-	}
-	catch (e)
-	{
-		return $elm$core$Maybe$Nothing;
-	}
-}
-
-
-function _Time_now(millisToPosix)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		callback(_Scheduler_succeed(millisToPosix(Date.now())));
-	});
-}
-
-var _Time_setInterval = F2(function(interval, task)
-{
-	return _Scheduler_binding(function(callback)
-	{
-		var id = setInterval(function() { _Scheduler_rawSpawn(task); }, interval);
-		return function() { clearInterval(id); };
-	});
-});
-
-function _Time_here()
-{
-	return _Scheduler_binding(function(callback)
-	{
-		callback(_Scheduler_succeed(
-			A2($elm$time$Time$customZone, -(new Date().getTimezoneOffset()), _List_Nil)
-		));
-	});
-}
-
-
-function _Time_getZoneName()
-{
-	return _Scheduler_binding(function(callback)
-	{
-		try
-		{
-			var name = $elm$time$Time$Name(Intl.DateTimeFormat().resolvedOptions().timeZone);
-		}
-		catch (e)
-		{
-			var name = $elm$time$Time$Offset(new Date().getTimezoneOffset());
-		}
-		callback(_Scheduler_succeed(name));
-	});
-}
-var $elm$core$Basics$EQ = {$: 'EQ'};
-var $elm$core$Basics$GT = {$: 'GT'};
-var $elm$core$Basics$LT = {$: 'LT'};
-var $elm$core$List$cons = _List_cons;
-var $elm$core$Dict$foldr = F3(
-	function (func, acc, t) {
-		foldr:
-		while (true) {
-			if (t.$ === 'RBEmpty_elm_builtin') {
-				return acc;
-			} else {
-				var key = t.b;
-				var value = t.c;
-				var left = t.d;
-				var right = t.e;
-				var $temp$func = func,
-					$temp$acc = A3(
-					func,
-					key,
-					value,
-					A3($elm$core$Dict$foldr, func, acc, right)),
-					$temp$t = left;
-				func = $temp$func;
-				acc = $temp$acc;
-				t = $temp$t;
-				continue foldr;
-			}
-		}
-	});
-var $elm$core$Dict$toList = function (dict) {
-	return A3(
-		$elm$core$Dict$foldr,
-		F3(
-			function (key, value, list) {
-				return A2(
-					$elm$core$List$cons,
-					_Utils_Tuple2(key, value),
-					list);
-			}),
-		_List_Nil,
-		dict);
-};
-var $elm$core$Dict$keys = function (dict) {
-	return A3(
-		$elm$core$Dict$foldr,
-		F3(
-			function (key, value, keyList) {
-				return A2($elm$core$List$cons, key, keyList);
-			}),
-		_List_Nil,
-		dict);
-};
-var $elm$core$Set$toList = function (_v0) {
-	var dict = _v0.a;
-	return $elm$core$Dict$keys(dict);
-};
-var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
-var $elm$core$Array$foldr = F3(
-	function (func, baseCase, _v0) {
-		var tree = _v0.c;
-		var tail = _v0.d;
-		var helper = F2(
-			function (node, acc) {
-				if (node.$ === 'SubTree') {
-					var subTree = node.a;
-					return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
-				} else {
-					var values = node.a;
-					return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
-				}
-			});
-		return A3(
-			$elm$core$Elm$JsArray$foldr,
-			helper,
-			A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
-			tree);
-	});
-var $elm$core$Array$toList = function (array) {
-	return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
-};
-var $elm$core$Result$Err = function (a) {
-	return {$: 'Err', a: a};
-};
-var $elm$json$Json$Decode$Failure = F2(
-	function (a, b) {
-		return {$: 'Failure', a: a, b: b};
-	});
-var $elm$json$Json$Decode$Field = F2(
-	function (a, b) {
-		return {$: 'Field', a: a, b: b};
-	});
-var $elm$json$Json$Decode$Index = F2(
-	function (a, b) {
-		return {$: 'Index', a: a, b: b};
-	});
-var $elm$core$Result$Ok = function (a) {
-	return {$: 'Ok', a: a};
-};
-var $elm$json$Json$Decode$OneOf = function (a) {
-	return {$: 'OneOf', a: a};
-};
-var $elm$core$Basics$False = {$: 'False'};
-var $elm$core$Basics$add = _Basics_add;
-var $elm$core$Maybe$Just = function (a) {
-	return {$: 'Just', a: a};
-};
-var $elm$core$Maybe$Nothing = {$: 'Nothing'};
-var $elm$core$String$all = _String_all;
-var $elm$core$Basics$and = _Basics_and;
-var $elm$core$Basics$append = _Utils_append;
-var $elm$json$Json$Encode$encode = _Json_encode;
-var $elm$core$String$fromInt = _String_fromNumber;
-var $elm$core$String$join = F2(
-	function (sep, chunks) {
-		return A2(
-			_String_join,
-			sep,
-			_List_toArray(chunks));
-	});
-var $elm$core$String$split = F2(
-	function (sep, string) {
-		return _List_fromArray(
-			A2(_String_split, sep, string));
-	});
-var $elm$json$Json$Decode$indent = function (str) {
-	return A2(
-		$elm$core$String$join,
-		'\n    ',
-		A2($elm$core$String$split, '\n', str));
-};
-var $elm$core$List$foldl = F3(
-	function (func, acc, list) {
-		foldl:
-		while (true) {
-			if (!list.b) {
-				return acc;
-			} else {
-				var x = list.a;
-				var xs = list.b;
-				var $temp$func = func,
-					$temp$acc = A2(func, x, acc),
-					$temp$list = xs;
-				func = $temp$func;
-				acc = $temp$acc;
-				list = $temp$list;
-				continue foldl;
-			}
-		}
-	});
-var $elm$core$List$length = function (xs) {
-	return A3(
-		$elm$core$List$foldl,
-		F2(
-			function (_v0, i) {
-				return i + 1;
-			}),
-		0,
-		xs);
-};
-var $elm$core$List$map2 = _List_map2;
-var $elm$core$Basics$le = _Utils_le;
-var $elm$core$Basics$sub = _Basics_sub;
-var $elm$core$List$rangeHelp = F3(
-	function (lo, hi, list) {
-		rangeHelp:
-		while (true) {
-			if (_Utils_cmp(lo, hi) < 1) {
-				var $temp$lo = lo,
-					$temp$hi = hi - 1,
-					$temp$list = A2($elm$core$List$cons, hi, list);
-				lo = $temp$lo;
-				hi = $temp$hi;
-				list = $temp$list;
-				continue rangeHelp;
-			} else {
-				return list;
-			}
-		}
-	});
-var $elm$core$List$range = F2(
-	function (lo, hi) {
-		return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
-	});
-var $elm$core$List$indexedMap = F2(
-	function (f, xs) {
-		return A3(
-			$elm$core$List$map2,
-			f,
-			A2(
-				$elm$core$List$range,
-				0,
-				$elm$core$List$length(xs) - 1),
-			xs);
-	});
-var $elm$core$Char$toCode = _Char_toCode;
-var $elm$core$Char$isLower = function (_char) {
-	var code = $elm$core$Char$toCode(_char);
-	return (97 <= code) && (code <= 122);
-};
-var $elm$core$Char$isUpper = function (_char) {
-	var code = $elm$core$Char$toCode(_char);
-	return (code <= 90) && (65 <= code);
-};
-var $elm$core$Basics$or = _Basics_or;
-var $elm$core$Char$isAlpha = function (_char) {
-	return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
-};
-var $elm$core$Char$isDigit = function (_char) {
-	var code = $elm$core$Char$toCode(_char);
-	return (code <= 57) && (48 <= code);
-};
-var $elm$core$Char$isAlphaNum = function (_char) {
-	return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
-};
-var $elm$core$List$reverse = function (list) {
-	return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
-};
-var $elm$core$String$uncons = _String_uncons;
-var $elm$json$Json$Decode$errorOneOf = F2(
-	function (i, error) {
-		return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
-			$elm$json$Json$Decode$errorToString(error))));
-	});
-var $elm$json$Json$Decode$errorToString = function (error) {
-	return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
-};
-var $elm$json$Json$Decode$errorToStringHelp = F2(
-	function (error, context) {
-		errorToStringHelp:
-		while (true) {
-			switch (error.$) {
-				case 'Field':
-					var f = error.a;
-					var err = error.b;
-					var isSimple = function () {
-						var _v1 = $elm$core$String$uncons(f);
-						if (_v1.$ === 'Nothing') {
-							return false;
-						} else {
-							var _v2 = _v1.a;
-							var _char = _v2.a;
-							var rest = _v2.b;
-							return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
-						}
-					}();
-					var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
-					var $temp$error = err,
-						$temp$context = A2($elm$core$List$cons, fieldName, context);
-					error = $temp$error;
-					context = $temp$context;
-					continue errorToStringHelp;
-				case 'Index':
-					var i = error.a;
-					var err = error.b;
-					var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
-					var $temp$error = err,
-						$temp$context = A2($elm$core$List$cons, indexName, context);
-					error = $temp$error;
-					context = $temp$context;
-					continue errorToStringHelp;
-				case 'OneOf':
-					var errors = error.a;
-					if (!errors.b) {
-						return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
-							if (!context.b) {
-								return '!';
-							} else {
-								return ' at json' + A2(
-									$elm$core$String$join,
-									'',
-									$elm$core$List$reverse(context));
-							}
-						}();
-					} else {
-						if (!errors.b.b) {
-							var err = errors.a;
-							var $temp$error = err,
-								$temp$context = context;
-							error = $temp$error;
-							context = $temp$context;
-							continue errorToStringHelp;
-						} else {
-							var starter = function () {
-								if (!context.b) {
-									return 'Json.Decode.oneOf';
-								} else {
-									return 'The Json.Decode.oneOf at json' + A2(
-										$elm$core$String$join,
-										'',
-										$elm$core$List$reverse(context));
-								}
-							}();
-							var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
-								$elm$core$List$length(errors)) + ' ways:'));
-							return A2(
-								$elm$core$String$join,
-								'\n\n',
-								A2(
-									$elm$core$List$cons,
-									introduction,
-									A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
-						}
-					}
-				default:
-					var msg = error.a;
-					var json = error.b;
-					var introduction = function () {
-						if (!context.b) {
-							return 'Problem with the given value:\n\n';
-						} else {
-							return 'Problem with the value at json' + (A2(
-								$elm$core$String$join,
-								'',
-								$elm$core$List$reverse(context)) + ':\n\n    ');
-						}
-					}();
-					return introduction + ($elm$json$Json$Decode$indent(
-						A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
-			}
-		}
-	});
-var $elm$core$Array$branchFactor = 32;
-var $elm$core$Array$Array_elm_builtin = F4(
-	function (a, b, c, d) {
-		return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
-	});
-var $elm$core$Elm$JsArray$empty = _JsArray_empty;
-var $elm$core$Basics$ceiling = _Basics_ceiling;
-var $elm$core$Basics$fdiv = _Basics_fdiv;
-var $elm$core$Basics$logBase = F2(
-	function (base, number) {
-		return _Basics_log(number) / _Basics_log(base);
-	});
-var $elm$core$Basics$toFloat = _Basics_toFloat;
-var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
-	A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
-var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
-var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
-var $elm$core$Array$Leaf = function (a) {
-	return {$: 'Leaf', a: a};
-};
-var $elm$core$Basics$apL = F2(
-	function (f, x) {
-		return f(x);
-	});
-var $elm$core$Basics$apR = F2(
-	function (x, f) {
-		return f(x);
-	});
-var $elm$core$Basics$eq = _Utils_equal;
-var $elm$core$Basics$floor = _Basics_floor;
-var $elm$core$Elm$JsArray$length = _JsArray_length;
-var $elm$core$Basics$gt = _Utils_gt;
-var $elm$core$Basics$max = F2(
-	function (x, y) {
-		return (_Utils_cmp(x, y) > 0) ? x : y;
-	});
-var $elm$core$Basics$mul = _Basics_mul;
-var $elm$core$Array$SubTree = function (a) {
-	return {$: 'SubTree', a: a};
-};
-var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
-var $elm$core$Array$compressNodes = F2(
-	function (nodes, acc) {
-		compressNodes:
-		while (true) {
-			var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
-			var node = _v0.a;
-			var remainingNodes = _v0.b;
-			var newAcc = A2(
-				$elm$core$List$cons,
-				$elm$core$Array$SubTree(node),
-				acc);
-			if (!remainingNodes.b) {
-				return $elm$core$List$reverse(newAcc);
-			} else {
-				var $temp$nodes = remainingNodes,
-					$temp$acc = newAcc;
-				nodes = $temp$nodes;
-				acc = $temp$acc;
-				continue compressNodes;
-			}
-		}
-	});
-var $elm$core$Tuple$first = function (_v0) {
-	var x = _v0.a;
-	return x;
-};
-var $elm$core$Array$treeFromBuilder = F2(
-	function (nodeList, nodeListSize) {
-		treeFromBuilder:
-		while (true) {
-			var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
-			if (newNodeSize === 1) {
-				return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
-			} else {
-				var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
-					$temp$nodeListSize = newNodeSize;
-				nodeList = $temp$nodeList;
-				nodeListSize = $temp$nodeListSize;
-				continue treeFromBuilder;
-			}
-		}
-	});
-var $elm$core$Array$builderToArray = F2(
-	function (reverseNodeList, builder) {
-		if (!builder.nodeListSize) {
-			return A4(
-				$elm$core$Array$Array_elm_builtin,
-				$elm$core$Elm$JsArray$length(builder.tail),
-				$elm$core$Array$shiftStep,
-				$elm$core$Elm$JsArray$empty,
-				builder.tail);
-		} else {
-			var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
-			var depth = $elm$core$Basics$floor(
-				A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
-			var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
-			var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
-			return A4(
-				$elm$core$Array$Array_elm_builtin,
-				$elm$core$Elm$JsArray$length(builder.tail) + treeLen,
-				A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
-				tree,
-				builder.tail);
-		}
-	});
-var $elm$core$Basics$idiv = _Basics_idiv;
-var $elm$core$Basics$lt = _Utils_lt;
-var $elm$core$Array$initializeHelp = F5(
-	function (fn, fromIndex, len, nodeList, tail) {
-		initializeHelp:
-		while (true) {
-			if (fromIndex < 0) {
-				return A2(
-					$elm$core$Array$builderToArray,
-					false,
-					{nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
-			} else {
-				var leaf = $elm$core$Array$Leaf(
-					A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
-				var $temp$fn = fn,
-					$temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
-					$temp$len = len,
-					$temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
-					$temp$tail = tail;
-				fn = $temp$fn;
-				fromIndex = $temp$fromIndex;
-				len = $temp$len;
-				nodeList = $temp$nodeList;
-				tail = $temp$tail;
-				continue initializeHelp;
-			}
-		}
-	});
-var $elm$core$Basics$remainderBy = _Basics_remainderBy;
-var $elm$core$Array$initialize = F2(
-	function (len, fn) {
-		if (len <= 0) {
-			return $elm$core$Array$empty;
-		} else {
-			var tailLen = len % $elm$core$Array$branchFactor;
-			var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
-			var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
-			return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
-		}
-	});
-var $elm$core$Basics$True = {$: 'True'};
-var $elm$core$Result$isOk = function (result) {
-	if (result.$ === 'Ok') {
-		return true;
-	} else {
-		return false;
-	}
-};
-var $elm$json$Json$Decode$map = _Json_map1;
-var $elm$json$Json$Decode$map2 = _Json_map2;
-var $elm$json$Json$Decode$succeed = _Json_succeed;
-var $elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
-	switch (handler.$) {
-		case 'Normal':
-			return 0;
-		case 'MayStopPropagation':
-			return 1;
-		case 'MayPreventDefault':
-			return 2;
-		default:
-			return 3;
-	}
-};
-var $elm$browser$Debugger$Expando$ArraySeq = {$: 'ArraySeq'};
-var $elm$browser$Debugger$Overlay$BlockMost = {$: 'BlockMost'};
-var $elm$browser$Debugger$Overlay$BlockNone = {$: 'BlockNone'};
-var $elm$browser$Debugger$Expando$Constructor = F3(
-	function (a, b, c) {
-		return {$: 'Constructor', a: a, b: b, c: c};
-	});
-var $elm$browser$Debugger$Expando$Dictionary = F2(
-	function (a, b) {
-		return {$: 'Dictionary', a: a, b: b};
-	});
-var $elm$browser$Debugger$Main$Down = {$: 'Down'};
-var $elm$browser$Debugger$Expando$ListSeq = {$: 'ListSeq'};
-var $elm$browser$Debugger$Main$NoOp = {$: 'NoOp'};
-var $elm$browser$Debugger$Expando$Primitive = function (a) {
-	return {$: 'Primitive', a: a};
-};
-var $elm$browser$Debugger$Expando$Record = F2(
-	function (a, b) {
-		return {$: 'Record', a: a, b: b};
-	});
-var $elm$browser$Debugger$Expando$S = function (a) {
-	return {$: 'S', a: a};
-};
-var $elm$browser$Debugger$Expando$Sequence = F3(
-	function (a, b, c) {
-		return {$: 'Sequence', a: a, b: b, c: c};
-	});
-var $elm$browser$Debugger$Expando$SetSeq = {$: 'SetSeq'};
-var $elm$browser$Debugger$Main$Up = {$: 'Up'};
-var $elm$browser$Debugger$Main$UserMsg = function (a) {
-	return {$: 'UserMsg', a: a};
-};
-var $elm$browser$Debugger$Main$Export = {$: 'Export'};
-var $elm$browser$Debugger$Main$Import = {$: 'Import'};
-var $elm$browser$Debugger$Main$Open = {$: 'Open'};
-var $elm$browser$Debugger$Main$OverlayMsg = function (a) {
-	return {$: 'OverlayMsg', a: a};
-};
-var $elm$browser$Debugger$Main$Resume = {$: 'Resume'};
-var $elm$browser$Debugger$Main$isPaused = function (state) {
-	if (state.$ === 'Running') {
-		return false;
-	} else {
-		return true;
-	}
-};
-var $elm$browser$Debugger$History$size = function (history) {
-	return history.numMessages;
-};
-var $elm$browser$Debugger$Overlay$Accept = function (a) {
-	return {$: 'Accept', a: a};
-};
-var $elm$browser$Debugger$Overlay$Choose = F2(
-	function (a, b) {
-		return {$: 'Choose', a: a, b: b};
-	});
-var $elm$html$Html$div = _VirtualDom_node('div');
-var $elm$json$Json$Encode$string = _Json_wrap;
-var $elm$html$Html$Attributes$stringProperty = F2(
-	function (key, string) {
-		return A2(
-			_VirtualDom_property,
-			key,
-			$elm$json$Json$Encode$string(string));
-	});
-var $elm$html$Html$Attributes$id = $elm$html$Html$Attributes$stringProperty('id');
-var $elm$virtual_dom$VirtualDom$Normal = function (a) {
-	return {$: 'Normal', a: a};
-};
-var $elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
-var $elm$html$Html$Events$on = F2(
-	function (event, decoder) {
-		return A2(
-			$elm$virtual_dom$VirtualDom$on,
-			event,
-			$elm$virtual_dom$VirtualDom$Normal(decoder));
-	});
-var $elm$html$Html$Events$onClick = function (msg) {
-	return A2(
-		$elm$html$Html$Events$on,
-		'click',
-		$elm$json$Json$Decode$succeed(msg));
-};
-var $elm$html$Html$span = _VirtualDom_node('span');
-var $elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
-var $elm$html$Html$Attributes$style = $elm$virtual_dom$VirtualDom$style;
-var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
-var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text;
-var $elm$html$Html$a = _VirtualDom_node('a');
-var $elm$browser$Debugger$Overlay$goodNews1 = '\nThe good news is that having values like this in your message type is not\nso great in the long run. You are better off using simpler data, like\n';
-var $elm$browser$Debugger$Overlay$goodNews2 = '\nfunction can pattern match on that data and call whatever functions, JSON\ndecoders, etc. you need. This makes the code much more explicit and easy to\nfollow for other readers (or you in a few months!)\n';
-var $elm$html$Html$Attributes$href = function (url) {
-	return A2(
-		$elm$html$Html$Attributes$stringProperty,
-		'href',
-		_VirtualDom_noJavaScriptUri(url));
-};
-var $elm$core$List$foldrHelper = F4(
-	function (fn, acc, ctr, ls) {
-		if (!ls.b) {
-			return acc;
-		} else {
-			var a = ls.a;
-			var r1 = ls.b;
-			if (!r1.b) {
-				return A2(fn, a, acc);
-			} else {
-				var b = r1.a;
-				var r2 = r1.b;
-				if (!r2.b) {
-					return A2(
-						fn,
-						a,
-						A2(fn, b, acc));
-				} else {
-					var c = r2.a;
-					var r3 = r2.b;
-					if (!r3.b) {
-						return A2(
-							fn,
-							a,
-							A2(
-								fn,
-								b,
-								A2(fn, c, acc)));
-					} else {
-						var d = r3.a;
-						var r4 = r3.b;
-						var res = (ctr > 500) ? A3(
-							$elm$core$List$foldl,
-							fn,
-							acc,
-							$elm$core$List$reverse(r4)) : A4($elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
-						return A2(
-							fn,
-							a,
-							A2(
-								fn,
-								b,
-								A2(
-									fn,
-									c,
-									A2(fn, d, res))));
-					}
-				}
-			}
-		}
-	});
-var $elm$core$List$foldr = F3(
-	function (fn, acc, ls) {
-		return A4($elm$core$List$foldrHelper, fn, acc, 0, ls);
-	});
-var $elm$core$List$map = F2(
-	function (f, xs) {
-		return A3(
-			$elm$core$List$foldr,
-			F2(
-				function (x, acc) {
-					return A2(
-						$elm$core$List$cons,
-						f(x),
-						acc);
-				}),
-			_List_Nil,
-			xs);
-	});
-var $elm$html$Html$p = _VirtualDom_node('p');
-var $elm$html$Html$ul = _VirtualDom_node('ul');
-var $elm$html$Html$code = _VirtualDom_node('code');
-var $elm$browser$Debugger$Overlay$viewCode = function (name) {
-	return A2(
-		$elm$html$Html$code,
-		_List_Nil,
-		_List_fromArray(
-			[
-				$elm$html$Html$text(name)
-			]));
-};
-var $elm$browser$Debugger$Overlay$addCommas = function (items) {
-	if (!items.b) {
-		return '';
-	} else {
-		if (!items.b.b) {
-			var item = items.a;
-			return item;
-		} else {
-			if (!items.b.b.b) {
-				var item1 = items.a;
-				var _v1 = items.b;
-				var item2 = _v1.a;
-				return item1 + (' and ' + item2);
-			} else {
-				var lastItem = items.a;
-				var otherItems = items.b;
-				return A2(
-					$elm$core$String$join,
-					', ',
-					_Utils_ap(
-						otherItems,
-						_List_fromArray(
-							[' and ' + lastItem])));
-			}
-		}
-	}
-};
-var $elm$html$Html$li = _VirtualDom_node('li');
-var $elm$browser$Debugger$Overlay$problemToString = function (problem) {
-	switch (problem.$) {
-		case 'Function':
-			return 'functions';
-		case 'Decoder':
-			return 'JSON decoders';
-		case 'Task':
-			return 'tasks';
-		case 'Process':
-			return 'processes';
-		case 'Socket':
-			return 'web sockets';
-		case 'Request':
-			return 'HTTP requests';
-		case 'Program':
-			return 'programs';
-		default:
-			return 'virtual DOM values';
-	}
-};
-var $elm$browser$Debugger$Overlay$viewProblemType = function (_v0) {
-	var name = _v0.name;
-	var problems = _v0.problems;
-	return A2(
-		$elm$html$Html$li,
-		_List_Nil,
-		_List_fromArray(
-			[
-				$elm$browser$Debugger$Overlay$viewCode(name),
-				$elm$html$Html$text(
-				' can contain ' + ($elm$browser$Debugger$Overlay$addCommas(
-					A2($elm$core$List$map, $elm$browser$Debugger$Overlay$problemToString, problems)) + '.'))
-			]));
-};
-var $elm$browser$Debugger$Overlay$viewBadMetadata = function (_v0) {
-	var message = _v0.message;
-	var problems = _v0.problems;
-	return _List_fromArray(
-		[
-			A2(
-			$elm$html$Html$p,
-			_List_Nil,
-			_List_fromArray(
-				[
-					$elm$html$Html$text('The '),
-					$elm$browser$Debugger$Overlay$viewCode(message),
-					$elm$html$Html$text(' type of your program cannot be reliably serialized for history files.')
-				])),
-			A2(
-			$elm$html$Html$p,
-			_List_Nil,
-			_List_fromArray(
-				[
-					$elm$html$Html$text('Functions cannot be serialized, nor can values that contain functions. This is a problem in these places:')
-				])),
-			A2(
-			$elm$html$Html$ul,
-			_List_Nil,
-			A2($elm$core$List$map, $elm$browser$Debugger$Overlay$viewProblemType, problems)),
-			A2(
-			$elm$html$Html$p,
-			_List_Nil,
-			_List_fromArray(
-				[
-					$elm$html$Html$text($elm$browser$Debugger$Overlay$goodNews1),
-					A2(
-					$elm$html$Html$a,
-					_List_fromArray(
-						[
-							$elm$html$Html$Attributes$href('https://guide.elm-lang.org/types/custom_types.html')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text('custom types')
-						])),
-					$elm$html$Html$text(', in your messages. From there, your '),
-					$elm$browser$Debugger$Overlay$viewCode('update'),
-					$elm$html$Html$text($elm$browser$Debugger$Overlay$goodNews2)
-				]))
-		]);
-};
-var $elm$virtual_dom$VirtualDom$map = _VirtualDom_map;
-var $elm$html$Html$map = $elm$virtual_dom$VirtualDom$map;
-var $elm$browser$Debugger$Overlay$Cancel = {$: 'Cancel'};
-var $elm$browser$Debugger$Overlay$Proceed = {$: 'Proceed'};
-var $elm$html$Html$button = _VirtualDom_node('button');
-var $elm$browser$Debugger$Overlay$viewButtons = function (buttons) {
-	var btn = F2(
-		function (msg, string) {
-			return A2(
-				$elm$html$Html$button,
-				_List_fromArray(
-					[
-						A2($elm$html$Html$Attributes$style, 'margin-right', '20px'),
-						$elm$html$Html$Events$onClick(msg)
-					]),
-				_List_fromArray(
-					[
-						$elm$html$Html$text(string)
-					]));
-		});
-	var buttonNodes = function () {
-		if (buttons.$ === 'Accept') {
-			var proceed = buttons.a;
-			return _List_fromArray(
-				[
-					A2(btn, $elm$browser$Debugger$Overlay$Proceed, proceed)
-				]);
-		} else {
-			var cancel = buttons.a;
-			var proceed = buttons.b;
-			return _List_fromArray(
-				[
-					A2(btn, $elm$browser$Debugger$Overlay$Cancel, cancel),
-					A2(btn, $elm$browser$Debugger$Overlay$Proceed, proceed)
-				]);
-		}
-	}();
-	return A2(
-		$elm$html$Html$div,
-		_List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'height', '60px'),
-				A2($elm$html$Html$Attributes$style, 'line-height', '60px'),
-				A2($elm$html$Html$Attributes$style, 'text-align', 'right'),
-				A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
-			]),
-		buttonNodes);
-};
-var $elm$browser$Debugger$Overlay$viewMessage = F4(
-	function (config, title, details, buttons) {
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					$elm$html$Html$Attributes$id('elm-debugger-overlay'),
-					A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
-					A2($elm$html$Html$Attributes$style, 'top', '0'),
-					A2($elm$html$Html$Attributes$style, 'left', '0'),
-					A2($elm$html$Html$Attributes$style, 'width', '100vw'),
-					A2($elm$html$Html$Attributes$style, 'height', '100vh'),
-					A2($elm$html$Html$Attributes$style, 'color', 'white'),
-					A2($elm$html$Html$Attributes$style, 'pointer-events', 'none'),
-					A2($elm$html$Html$Attributes$style, 'font-family', '\'Trebuchet MS\', \'Lucida Grande\', \'Bitstream Vera Sans\', \'Helvetica Neue\', sans-serif'),
-					A2($elm$html$Html$Attributes$style, 'z-index', '2147483647')
-				]),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
-							A2($elm$html$Html$Attributes$style, 'width', '600px'),
-							A2($elm$html$Html$Attributes$style, 'height', '100vh'),
-							A2($elm$html$Html$Attributes$style, 'padding-left', 'calc(50% - 300px)'),
-							A2($elm$html$Html$Attributes$style, 'padding-right', 'calc(50% - 300px)'),
-							A2($elm$html$Html$Attributes$style, 'background-color', 'rgba(200, 200, 200, 0.7)'),
-							A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto')
-						]),
-					_List_fromArray(
-						[
-							A2(
-							$elm$html$Html$div,
-							_List_fromArray(
-								[
-									A2($elm$html$Html$Attributes$style, 'font-size', '36px'),
-									A2($elm$html$Html$Attributes$style, 'height', '80px'),
-									A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)'),
-									A2($elm$html$Html$Attributes$style, 'padding-left', '22px'),
-									A2($elm$html$Html$Attributes$style, 'vertical-align', 'middle'),
-									A2($elm$html$Html$Attributes$style, 'line-height', '80px')
-								]),
-							_List_fromArray(
-								[
-									$elm$html$Html$text(title)
-								])),
-							A2(
-							$elm$html$Html$div,
-							_List_fromArray(
-								[
-									$elm$html$Html$Attributes$id('elm-debugger-details'),
-									A2($elm$html$Html$Attributes$style, 'padding', ' 8px 20px'),
-									A2($elm$html$Html$Attributes$style, 'overflow-y', 'auto'),
-									A2($elm$html$Html$Attributes$style, 'max-height', 'calc(100vh - 156px)'),
-									A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(61, 61, 61)')
-								]),
-							details),
-							A2(
-							$elm$html$Html$map,
-							config.wrap,
-							$elm$browser$Debugger$Overlay$viewButtons(buttons))
-						]))
-				]));
-	});
-var $elm$virtual_dom$VirtualDom$attribute = F2(
-	function (key, value) {
-		return A2(
-			_VirtualDom_attribute,
-			_VirtualDom_noOnOrFormAction(key),
-			_VirtualDom_noJavaScriptOrHtmlUri(value));
-	});
-var $elm$core$Basics$negate = function (n) {
-	return -n;
-};
-var $elm$virtual_dom$VirtualDom$nodeNS = F2(
-	function (namespace, tag) {
-		return A2(
-			_VirtualDom_nodeNS,
-			namespace,
-			_VirtualDom_noScript(tag));
-	});
-var $elm$core$String$fromFloat = _String_fromNumber;
-var $elm$browser$Debugger$Overlay$viewShape = F4(
-	function (x, y, angle, coordinates) {
-		return A4(
-			$elm$virtual_dom$VirtualDom$nodeNS,
-			'http://www.w3.org/2000/svg',
-			'polygon',
-			_List_fromArray(
-				[
-					A2($elm$virtual_dom$VirtualDom$attribute, 'points', coordinates),
-					A2(
-					$elm$virtual_dom$VirtualDom$attribute,
-					'transform',
-					'translate(' + ($elm$core$String$fromFloat(x) + (' ' + ($elm$core$String$fromFloat(y) + (') rotate(' + ($elm$core$String$fromFloat(-angle) + ')'))))))
-				]),
-			_List_Nil);
-	});
-var $elm$browser$Debugger$Overlay$elmLogo = A4(
-	$elm$virtual_dom$VirtualDom$nodeNS,
-	'http://www.w3.org/2000/svg',
-	'svg',
-	_List_fromArray(
-		[
-			A2($elm$virtual_dom$VirtualDom$attribute, 'viewBox', '-300 -300 600 600'),
-			A2($elm$virtual_dom$VirtualDom$attribute, 'xmlns', 'http://www.w3.org/2000/svg'),
-			A2($elm$virtual_dom$VirtualDom$attribute, 'fill', 'currentColor'),
-			A2($elm$virtual_dom$VirtualDom$attribute, 'width', '24px'),
-			A2($elm$virtual_dom$VirtualDom$attribute, 'height', '24px')
-		]),
-	_List_fromArray(
-		[
-			A4(
-			$elm$virtual_dom$VirtualDom$nodeNS,
-			'http://www.w3.org/2000/svg',
-			'g',
-			_List_fromArray(
-				[
-					A2($elm$virtual_dom$VirtualDom$attribute, 'transform', 'scale(1 -1)')
-				]),
-			_List_fromArray(
-				[
-					A4($elm$browser$Debugger$Overlay$viewShape, 0, -210, 0, '-280,-90 0,190 280,-90'),
-					A4($elm$browser$Debugger$Overlay$viewShape, -210, 0, 90, '-280,-90 0,190 280,-90'),
-					A4($elm$browser$Debugger$Overlay$viewShape, 207, 207, 45, '-198,-66 0,132 198,-66'),
-					A4($elm$browser$Debugger$Overlay$viewShape, 150, 0, 0, '-130,0 0,-130 130,0 0,130'),
-					A4($elm$browser$Debugger$Overlay$viewShape, -89, 239, 0, '-191,61 69,61 191,-61 -69,-61'),
-					A4($elm$browser$Debugger$Overlay$viewShape, 0, 106, 180, '-130,-44 0,86  130,-44'),
-					A4($elm$browser$Debugger$Overlay$viewShape, 256, -150, 270, '-130,-44 0,86  130,-44')
-				]))
-		]));
-var $elm$core$String$length = _String_length;
-var $elm$browser$Debugger$Overlay$viewMiniControls = F2(
-	function (config, numMsgs) {
-		var string = $elm$core$String$fromInt(numMsgs);
-		var width = $elm$core$String$fromInt(
-			2 + $elm$core$String$length(string));
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
-					A2($elm$html$Html$Attributes$style, 'bottom', '2em'),
-					A2($elm$html$Html$Attributes$style, 'right', '2em'),
-					A2($elm$html$Html$Attributes$style, 'width', 'calc(42px + ' + (width + 'ch)')),
-					A2($elm$html$Html$Attributes$style, 'height', '36px'),
-					A2($elm$html$Html$Attributes$style, 'background-color', '#1293D8'),
-					A2($elm$html$Html$Attributes$style, 'color', 'white'),
-					A2($elm$html$Html$Attributes$style, 'font-family', 'monospace'),
-					A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto'),
-					A2($elm$html$Html$Attributes$style, 'z-index', '2147483647'),
-					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-					A2($elm$html$Html$Attributes$style, 'justify-content', 'center'),
-					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-					A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
-					$elm$html$Html$Events$onClick(config.open)
-				]),
-			_List_fromArray(
-				[
-					$elm$browser$Debugger$Overlay$elmLogo,
-					A2(
-					$elm$html$Html$span,
-					_List_fromArray(
-						[
-							A2($elm$html$Html$Attributes$style, 'padding-left', 'calc(1ch + 6px)'),
-							A2($elm$html$Html$Attributes$style, 'padding-right', '1ch')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text(string)
-						]))
-				]));
-	});
-var $elm$browser$Debugger$Overlay$explanationBad = '\nThe messages in this history do not match the messages handled by your\nprogram. I noticed changes in the following types:\n';
-var $elm$browser$Debugger$Overlay$explanationRisky = '\nThis history seems old. It will work with this program, but some\nmessages have been added since the history was created:\n';
-var $elm$core$List$intersperse = F2(
-	function (sep, xs) {
-		if (!xs.b) {
-			return _List_Nil;
-		} else {
-			var hd = xs.a;
-			var tl = xs.b;
-			var step = F2(
-				function (x, rest) {
-					return A2(
-						$elm$core$List$cons,
-						sep,
-						A2($elm$core$List$cons, x, rest));
-				});
-			var spersed = A3($elm$core$List$foldr, step, _List_Nil, tl);
-			return A2($elm$core$List$cons, hd, spersed);
-		}
-	});
-var $elm$browser$Debugger$Overlay$viewMention = F2(
-	function (tags, verbed) {
-		var _v0 = A2(
-			$elm$core$List$map,
-			$elm$browser$Debugger$Overlay$viewCode,
-			$elm$core$List$reverse(tags));
-		if (!_v0.b) {
-			return $elm$html$Html$text('');
-		} else {
-			if (!_v0.b.b) {
-				var tag = _v0.a;
-				return A2(
-					$elm$html$Html$li,
-					_List_Nil,
-					_List_fromArray(
-						[
-							$elm$html$Html$text(verbed),
-							tag,
-							$elm$html$Html$text('.')
-						]));
-			} else {
-				if (!_v0.b.b.b) {
-					var tag2 = _v0.a;
-					var _v1 = _v0.b;
-					var tag1 = _v1.a;
-					return A2(
-						$elm$html$Html$li,
-						_List_Nil,
-						_List_fromArray(
-							[
-								$elm$html$Html$text(verbed),
-								tag1,
-								$elm$html$Html$text(' and '),
-								tag2,
-								$elm$html$Html$text('.')
-							]));
-				} else {
-					var lastTag = _v0.a;
-					var otherTags = _v0.b;
-					return A2(
-						$elm$html$Html$li,
-						_List_Nil,
-						A2(
-							$elm$core$List$cons,
-							$elm$html$Html$text(verbed),
-							_Utils_ap(
-								A2(
-									$elm$core$List$intersperse,
-									$elm$html$Html$text(', '),
-									$elm$core$List$reverse(otherTags)),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(', and '),
-										lastTag,
-										$elm$html$Html$text('.')
-									]))));
-				}
-			}
-		}
-	});
-var $elm$browser$Debugger$Overlay$viewChange = function (change) {
-	return A2(
-		$elm$html$Html$li,
-		_List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'margin', '8px 0')
-			]),
-		function () {
-			if (change.$ === 'AliasChange') {
-				var name = change.a;
-				return _List_fromArray(
-					[
-						A2(
-						$elm$html$Html$span,
-						_List_fromArray(
-							[
-								A2($elm$html$Html$Attributes$style, 'font-size', '1.5em')
-							]),
-						_List_fromArray(
-							[
-								$elm$browser$Debugger$Overlay$viewCode(name)
-							]))
-					]);
-			} else {
-				var name = change.a;
-				var removed = change.b.removed;
-				var changed = change.b.changed;
-				var added = change.b.added;
-				var argsMatch = change.b.argsMatch;
-				return _List_fromArray(
-					[
-						A2(
-						$elm$html$Html$span,
-						_List_fromArray(
-							[
-								A2($elm$html$Html$Attributes$style, 'font-size', '1.5em')
-							]),
-						_List_fromArray(
-							[
-								$elm$browser$Debugger$Overlay$viewCode(name)
-							])),
-						A2(
-						$elm$html$Html$ul,
-						_List_fromArray(
-							[
-								A2($elm$html$Html$Attributes$style, 'list-style-type', 'disc'),
-								A2($elm$html$Html$Attributes$style, 'padding-left', '2em')
-							]),
-						_List_fromArray(
-							[
-								A2($elm$browser$Debugger$Overlay$viewMention, removed, 'Removed '),
-								A2($elm$browser$Debugger$Overlay$viewMention, changed, 'Changed '),
-								A2($elm$browser$Debugger$Overlay$viewMention, added, 'Added ')
-							])),
-						argsMatch ? $elm$html$Html$text('') : $elm$html$Html$text('This may be due to the fact that the type variable names changed.')
-					]);
-			}
-		}());
-};
-var $elm$browser$Debugger$Overlay$viewReport = F2(
-	function (isBad, report) {
-		switch (report.$) {
-			case 'CorruptHistory':
-				return _List_fromArray(
-					[
-						$elm$html$Html$text('Looks like this history file is corrupt. I cannot understand it.')
-					]);
-			case 'VersionChanged':
-				var old = report.a;
-				var _new = report.b;
-				return _List_fromArray(
-					[
-						$elm$html$Html$text('This history was created with Elm ' + (old + (', but you are using Elm ' + (_new + ' right now.'))))
-					]);
-			case 'MessageChanged':
-				var old = report.a;
-				var _new = report.b;
-				return _List_fromArray(
-					[
-						$elm$html$Html$text('To import some other history, the overall message type must' + ' be the same. The old history has '),
-						$elm$browser$Debugger$Overlay$viewCode(old),
-						$elm$html$Html$text(' messages, but the new program works with '),
-						$elm$browser$Debugger$Overlay$viewCode(_new),
-						$elm$html$Html$text(' messages.')
-					]);
-			default:
-				var changes = report.a;
-				return _List_fromArray(
-					[
-						A2(
-						$elm$html$Html$p,
-						_List_Nil,
-						_List_fromArray(
-							[
-								$elm$html$Html$text(
-								isBad ? $elm$browser$Debugger$Overlay$explanationBad : $elm$browser$Debugger$Overlay$explanationRisky)
-							])),
-						A2(
-						$elm$html$Html$ul,
-						_List_fromArray(
-							[
-								A2($elm$html$Html$Attributes$style, 'list-style-type', 'none'),
-								A2($elm$html$Html$Attributes$style, 'padding-left', '20px')
-							]),
-						A2($elm$core$List$map, $elm$browser$Debugger$Overlay$viewChange, changes))
-					]);
-		}
-	});
-var $elm$browser$Debugger$Overlay$view = F5(
-	function (config, isPaused, isOpen, numMsgs, state) {
-		switch (state.$) {
-			case 'None':
-				return isOpen ? $elm$html$Html$text('') : (isPaused ? A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							$elm$html$Html$Attributes$id('elm-debugger-overlay'),
-							A2($elm$html$Html$Attributes$style, 'position', 'fixed'),
-							A2($elm$html$Html$Attributes$style, 'top', '0'),
-							A2($elm$html$Html$Attributes$style, 'left', '0'),
-							A2($elm$html$Html$Attributes$style, 'width', '100vw'),
-							A2($elm$html$Html$Attributes$style, 'height', '100vh'),
-							A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
-							A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-							A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-							A2($elm$html$Html$Attributes$style, 'justify-content', 'center'),
-							A2($elm$html$Html$Attributes$style, 'pointer-events', 'auto'),
-							A2($elm$html$Html$Attributes$style, 'background-color', 'rgba(200, 200, 200, 0.7)'),
-							A2($elm$html$Html$Attributes$style, 'color', 'white'),
-							A2($elm$html$Html$Attributes$style, 'font-family', '\'Trebuchet MS\', \'Lucida Grande\', \'Bitstream Vera Sans\', \'Helvetica Neue\', sans-serif'),
-							A2($elm$html$Html$Attributes$style, 'z-index', '2147483646'),
-							$elm$html$Html$Events$onClick(config.resume)
-						]),
-					_List_fromArray(
-						[
-							A2(
-							$elm$html$Html$span,
-							_List_fromArray(
-								[
-									A2($elm$html$Html$Attributes$style, 'font-size', '80px')
-								]),
-							_List_fromArray(
-								[
-									$elm$html$Html$text('Click to Resume')
-								])),
-							A2($elm$browser$Debugger$Overlay$viewMiniControls, config, numMsgs)
-						])) : A2($elm$browser$Debugger$Overlay$viewMiniControls, config, numMsgs));
-			case 'BadMetadata':
-				var badMetadata_ = state.a;
-				return A4(
-					$elm$browser$Debugger$Overlay$viewMessage,
-					config,
-					'Cannot use Import or Export',
-					$elm$browser$Debugger$Overlay$viewBadMetadata(badMetadata_),
-					$elm$browser$Debugger$Overlay$Accept('Ok'));
-			case 'BadImport':
-				var report = state.a;
-				return A4(
-					$elm$browser$Debugger$Overlay$viewMessage,
-					config,
-					'Cannot Import History',
-					A2($elm$browser$Debugger$Overlay$viewReport, true, report),
-					$elm$browser$Debugger$Overlay$Accept('Ok'));
-			default:
-				var report = state.a;
-				return A4(
-					$elm$browser$Debugger$Overlay$viewMessage,
-					config,
-					'Warning',
-					A2($elm$browser$Debugger$Overlay$viewReport, false, report),
-					A2($elm$browser$Debugger$Overlay$Choose, 'Cancel', 'Import Anyway'));
-		}
-	});
-var $elm$browser$Debugger$Main$cornerView = function (model) {
-	return A5(
-		$elm$browser$Debugger$Overlay$view,
-		{exportHistory: $elm$browser$Debugger$Main$Export, importHistory: $elm$browser$Debugger$Main$Import, open: $elm$browser$Debugger$Main$Open, resume: $elm$browser$Debugger$Main$Resume, wrap: $elm$browser$Debugger$Main$OverlayMsg},
-		$elm$browser$Debugger$Main$isPaused(model.state),
-		_Debugger_isOpen(model.popout),
-		$elm$browser$Debugger$History$size(model.history),
-		model.overlay);
-};
-var $elm$core$Dict$RBEmpty_elm_builtin = {$: 'RBEmpty_elm_builtin'};
-var $elm$core$Dict$empty = $elm$core$Dict$RBEmpty_elm_builtin;
-var $elm$core$Set$foldr = F3(
-	function (func, initialState, _v0) {
-		var dict = _v0.a;
-		return A3(
-			$elm$core$Dict$foldr,
-			F3(
-				function (key, _v1, state) {
-					return A2(func, key, state);
-				}),
-			initialState,
-			dict);
-	});
-var $elm$browser$Debugger$Main$getCurrentModel = function (state) {
-	if (state.$ === 'Running') {
-		var model = state.a;
-		return model;
-	} else {
-		var model = state.b;
-		return model;
-	}
-};
-var $elm$browser$Debugger$Main$getUserModel = function (model) {
-	return $elm$browser$Debugger$Main$getCurrentModel(model.state);
-};
-var $elm$browser$Debugger$Main$initialWindowHeight = 420;
-var $elm$browser$Debugger$Main$initialWindowWidth = 900;
-var $elm$core$Dict$Black = {$: 'Black'};
-var $elm$core$Dict$RBNode_elm_builtin = F5(
-	function (a, b, c, d, e) {
-		return {$: 'RBNode_elm_builtin', a: a, b: b, c: c, d: d, e: e};
-	});
-var $elm$core$Dict$Red = {$: 'Red'};
-var $elm$core$Dict$balance = F5(
-	function (color, key, value, left, right) {
-		if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Red')) {
-			var _v1 = right.a;
-			var rK = right.b;
-			var rV = right.c;
-			var rLeft = right.d;
-			var rRight = right.e;
-			if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
-				var _v3 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var lLeft = left.d;
-				var lRight = left.e;
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Red,
-					key,
-					value,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, lK, lV, lLeft, lRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rLeft, rRight));
-			} else {
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					color,
-					rK,
-					rV,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, left, rLeft),
-					rRight);
-			}
-		} else {
-			if ((((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) && (left.d.$ === 'RBNode_elm_builtin')) && (left.d.a.$ === 'Red')) {
-				var _v5 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var _v6 = left.d;
-				var _v7 = _v6.a;
-				var llK = _v6.b;
-				var llV = _v6.c;
-				var llLeft = _v6.d;
-				var llRight = _v6.e;
-				var lRight = left.e;
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Red,
-					lK,
-					lV,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, key, value, lRight, right));
-			} else {
-				return A5($elm$core$Dict$RBNode_elm_builtin, color, key, value, left, right);
-			}
-		}
-	});
-var $elm$core$Basics$compare = _Utils_compare;
-var $elm$core$Dict$insertHelp = F3(
-	function (key, value, dict) {
-		if (dict.$ === 'RBEmpty_elm_builtin') {
-			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, $elm$core$Dict$RBEmpty_elm_builtin, $elm$core$Dict$RBEmpty_elm_builtin);
-		} else {
-			var nColor = dict.a;
-			var nKey = dict.b;
-			var nValue = dict.c;
-			var nLeft = dict.d;
-			var nRight = dict.e;
-			var _v1 = A2($elm$core$Basics$compare, key, nKey);
-			switch (_v1.$) {
-				case 'LT':
-					return A5(
-						$elm$core$Dict$balance,
-						nColor,
-						nKey,
-						nValue,
-						A3($elm$core$Dict$insertHelp, key, value, nLeft),
-						nRight);
-				case 'EQ':
-					return A5($elm$core$Dict$RBNode_elm_builtin, nColor, nKey, value, nLeft, nRight);
-				default:
-					return A5(
-						$elm$core$Dict$balance,
-						nColor,
-						nKey,
-						nValue,
-						nLeft,
-						A3($elm$core$Dict$insertHelp, key, value, nRight));
-			}
-		}
-	});
-var $elm$core$Dict$insert = F3(
-	function (key, value, dict) {
-		var _v0 = A3($elm$core$Dict$insertHelp, key, value, dict);
-		if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
-			var _v1 = _v0.a;
-			var k = _v0.b;
-			var v = _v0.c;
-			var l = _v0.d;
-			var r = _v0.e;
-			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
-		} else {
-			var x = _v0;
-			return x;
-		}
-	});
-var $elm$browser$Debugger$Main$cachedHistory = function (model) {
-	var _v0 = model.state;
-	if (_v0.$ === 'Running') {
-		return model.history;
-	} else {
-		var history = _v0.e;
-		return history;
-	}
-};
-var $elm$virtual_dom$VirtualDom$node = function (tag) {
-	return _VirtualDom_node(
-		_VirtualDom_noScript(tag));
-};
-var $elm$html$Html$node = $elm$virtual_dom$VirtualDom$node;
-var $elm$browser$Debugger$Main$DragEnd = {$: 'DragEnd'};
-var $elm$browser$Debugger$Main$getDragStatus = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		var status = layout.a;
-		return status;
-	} else {
-		var status = layout.a;
-		return status;
-	}
-};
-var $elm$browser$Debugger$Main$Drag = function (a) {
-	return {$: 'Drag', a: a};
-};
-var $elm$browser$Debugger$Main$DragInfo = F5(
-	function (x, y, down, width, height) {
-		return {down: down, height: height, width: width, x: x, y: y};
-	});
-var $elm$json$Json$Decode$field = _Json_decodeField;
-var $elm$json$Json$Decode$at = F2(
-	function (fields, decoder) {
-		return A3($elm$core$List$foldr, $elm$json$Json$Decode$field, decoder, fields);
-	});
-var $elm$json$Json$Decode$float = _Json_decodeFloat;
-var $elm$browser$Debugger$Main$decodeDimension = function (field) {
-	return A2(
-		$elm$json$Json$Decode$at,
-		_List_fromArray(
-			['currentTarget', 'ownerDocument', 'defaultView', field]),
-		$elm$json$Json$Decode$float);
-};
-var $elm$json$Json$Decode$int = _Json_decodeInt;
-var $elm$json$Json$Decode$map5 = _Json_map5;
-var $elm$browser$Debugger$Main$onMouseMove = A2(
-	$elm$html$Html$Events$on,
-	'mousemove',
-	A2(
-		$elm$json$Json$Decode$map,
-		$elm$browser$Debugger$Main$Drag,
-		A6(
-			$elm$json$Json$Decode$map5,
-			$elm$browser$Debugger$Main$DragInfo,
-			A2($elm$json$Json$Decode$field, 'pageX', $elm$json$Json$Decode$float),
-			A2($elm$json$Json$Decode$field, 'pageY', $elm$json$Json$Decode$float),
-			A2(
-				$elm$json$Json$Decode$field,
-				'buttons',
-				A2(
-					$elm$json$Json$Decode$map,
-					function (v) {
-						return v === 1;
-					},
-					$elm$json$Json$Decode$int)),
-			$elm$browser$Debugger$Main$decodeDimension('innerWidth'),
-			$elm$browser$Debugger$Main$decodeDimension('innerHeight'))));
-var $elm$html$Html$Events$onMouseUp = function (msg) {
-	return A2(
-		$elm$html$Html$Events$on,
-		'mouseup',
-		$elm$json$Json$Decode$succeed(msg));
-};
-var $elm$browser$Debugger$Main$toDragListeners = function (layout) {
-	var _v0 = $elm$browser$Debugger$Main$getDragStatus(layout);
-	if (_v0.$ === 'Static') {
-		return _List_Nil;
-	} else {
-		return _List_fromArray(
-			[
-				$elm$browser$Debugger$Main$onMouseMove,
-				$elm$html$Html$Events$onMouseUp($elm$browser$Debugger$Main$DragEnd)
-			]);
-	}
-};
-var $elm$browser$Debugger$Main$toFlexDirection = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		return 'row';
-	} else {
-		return 'column-reverse';
-	}
-};
-var $elm$browser$Debugger$Main$DragStart = {$: 'DragStart'};
-var $elm$html$Html$Events$onMouseDown = function (msg) {
-	return A2(
-		$elm$html$Html$Events$on,
-		'mousedown',
-		$elm$json$Json$Decode$succeed(msg));
-};
-var $elm$browser$Debugger$Main$toPercent = function (fraction) {
-	return $elm$core$String$fromFloat(100 * fraction) + '%';
-};
-var $elm$browser$Debugger$Main$viewDragZone = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		var x = layout.b;
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
-					A2($elm$html$Html$Attributes$style, 'top', '0'),
-					A2(
-					$elm$html$Html$Attributes$style,
-					'left',
-					$elm$browser$Debugger$Main$toPercent(x)),
-					A2($elm$html$Html$Attributes$style, 'margin-left', '-5px'),
-					A2($elm$html$Html$Attributes$style, 'width', '10px'),
-					A2($elm$html$Html$Attributes$style, 'height', '100%'),
-					A2($elm$html$Html$Attributes$style, 'cursor', 'col-resize'),
-					$elm$html$Html$Events$onMouseDown($elm$browser$Debugger$Main$DragStart)
-				]),
-			_List_Nil);
-	} else {
-		var y = layout.c;
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'position', 'absolute'),
-					A2(
-					$elm$html$Html$Attributes$style,
-					'top',
-					$elm$browser$Debugger$Main$toPercent(y)),
-					A2($elm$html$Html$Attributes$style, 'left', '0'),
-					A2($elm$html$Html$Attributes$style, 'margin-top', '-5px'),
-					A2($elm$html$Html$Attributes$style, 'width', '100%'),
-					A2($elm$html$Html$Attributes$style, 'height', '10px'),
-					A2($elm$html$Html$Attributes$style, 'cursor', 'row-resize'),
-					$elm$html$Html$Events$onMouseDown($elm$browser$Debugger$Main$DragStart)
-				]),
-			_List_Nil);
-	}
-};
-var $elm$browser$Debugger$Main$TweakExpandoModel = function (a) {
-	return {$: 'TweakExpandoModel', a: a};
-};
-var $elm$browser$Debugger$Main$TweakExpandoMsg = function (a) {
-	return {$: 'TweakExpandoMsg', a: a};
-};
-var $elm$browser$Debugger$Main$toExpandoPercents = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		var x = layout.b;
-		return _Utils_Tuple2(
-			$elm$browser$Debugger$Main$toPercent(1 - x),
-			'100%');
-	} else {
-		var y = layout.c;
-		return _Utils_Tuple2(
-			'100%',
-			$elm$browser$Debugger$Main$toPercent(y));
-	}
-};
-var $elm$browser$Debugger$Main$toMouseBlocker = function (layout) {
-	var _v0 = $elm$browser$Debugger$Main$getDragStatus(layout);
-	if (_v0.$ === 'Static') {
-		return 'auto';
-	} else {
-		return 'none';
-	}
-};
-var $elm$browser$Debugger$Expando$Field = F2(
-	function (a, b) {
-		return {$: 'Field', a: a, b: b};
-	});
-var $elm$browser$Debugger$Expando$Index = F3(
-	function (a, b, c) {
-		return {$: 'Index', a: a, b: b, c: c};
-	});
-var $elm$browser$Debugger$Expando$Key = {$: 'Key'};
-var $elm$browser$Debugger$Expando$None = {$: 'None'};
-var $elm$browser$Debugger$Expando$Toggle = {$: 'Toggle'};
-var $elm$browser$Debugger$Expando$Value = {$: 'Value'};
-var $elm$browser$Debugger$Expando$blue = A2($elm$html$Html$Attributes$style, 'color', 'rgb(28, 0, 207)');
-var $elm$core$Basics$composeL = F3(
-	function (g, f, x) {
-		return g(
-			f(x));
-	});
-var $elm$browser$Debugger$Expando$leftPad = function (maybeKey) {
-	if (maybeKey.$ === 'Nothing') {
-		return _List_Nil;
-	} else {
-		return _List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'padding-left', '4ch')
-			]);
-	}
-};
-var $elm$browser$Debugger$Expando$makeArrow = function (arrow) {
-	return A2(
-		$elm$html$Html$span,
-		_List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'color', '#777'),
-				A2($elm$html$Html$Attributes$style, 'padding-left', '2ch'),
-				A2($elm$html$Html$Attributes$style, 'width', '2ch'),
-				A2($elm$html$Html$Attributes$style, 'display', 'inline-block')
-			]),
-		_List_fromArray(
-			[
-				$elm$html$Html$text(arrow)
-			]));
-};
-var $elm$browser$Debugger$Expando$purple = A2($elm$html$Html$Attributes$style, 'color', 'rgb(136, 19, 145)');
-var $elm$browser$Debugger$Expando$lineStarter = F3(
-	function (maybeKey, maybeIsClosed, description) {
-		var arrow = function () {
-			if (maybeIsClosed.$ === 'Nothing') {
-				return $elm$browser$Debugger$Expando$makeArrow('');
-			} else {
-				if (maybeIsClosed.a) {
-					return $elm$browser$Debugger$Expando$makeArrow('▸');
-				} else {
-					return $elm$browser$Debugger$Expando$makeArrow('▾');
-				}
-			}
-		}();
-		if (maybeKey.$ === 'Nothing') {
-			return A2($elm$core$List$cons, arrow, description);
-		} else {
-			var key = maybeKey.a;
-			return A2(
-				$elm$core$List$cons,
-				arrow,
-				A2(
-					$elm$core$List$cons,
-					A2(
-						$elm$html$Html$span,
-						_List_fromArray(
-							[$elm$browser$Debugger$Expando$purple]),
-						_List_fromArray(
-							[
-								$elm$html$Html$text(key)
-							])),
-					A2(
-						$elm$core$List$cons,
-						$elm$html$Html$text(' = '),
-						description)));
-		}
-	});
-var $elm$browser$Debugger$Expando$red = A2($elm$html$Html$Attributes$style, 'color', 'rgb(196, 26, 22)');
-var $elm$core$Tuple$second = function (_v0) {
-	var y = _v0.b;
-	return y;
-};
-var $elm$browser$Debugger$Expando$seqTypeToString = F2(
-	function (n, seqType) {
-		switch (seqType.$) {
-			case 'ListSeq':
-				return 'List(' + ($elm$core$String$fromInt(n) + ')');
-			case 'SetSeq':
-				return 'Set(' + ($elm$core$String$fromInt(n) + ')');
-			default:
-				return 'Array(' + ($elm$core$String$fromInt(n) + ')');
-		}
-	});
-var $elm$core$String$slice = _String_slice;
-var $elm$core$String$left = F2(
-	function (n, string) {
-		return (n < 1) ? '' : A3($elm$core$String$slice, 0, n, string);
-	});
-var $elm$core$String$right = F2(
-	function (n, string) {
-		return (n < 1) ? '' : A3(
-			$elm$core$String$slice,
-			-n,
-			$elm$core$String$length(string),
-			string);
-	});
-var $elm$browser$Debugger$Expando$elideMiddle = function (str) {
-	return ($elm$core$String$length(str) <= 18) ? str : (A2($elm$core$String$left, 8, str) + ('...' + A2($elm$core$String$right, 8, str)));
-};
-var $elm$core$Dict$isEmpty = function (dict) {
-	if (dict.$ === 'RBEmpty_elm_builtin') {
-		return true;
-	} else {
-		return false;
-	}
-};
-var $elm$browser$Debugger$Expando$viewExtraTinyRecord = F3(
-	function (length, starter, entries) {
-		if (!entries.b) {
-			return _Utils_Tuple2(
-				length + 1,
-				_List_fromArray(
-					[
-						$elm$html$Html$text('}')
-					]));
-		} else {
-			var field = entries.a;
-			var rest = entries.b;
-			var nextLength = (length + $elm$core$String$length(field)) + 1;
-			if (nextLength > 18) {
-				return _Utils_Tuple2(
-					length + 2,
-					_List_fromArray(
-						[
-							$elm$html$Html$text('…}')
-						]));
-			} else {
-				var _v1 = A3($elm$browser$Debugger$Expando$viewExtraTinyRecord, nextLength, ',', rest);
-				var finalLength = _v1.a;
-				var otherHtmls = _v1.b;
-				return _Utils_Tuple2(
-					finalLength,
-					A2(
-						$elm$core$List$cons,
-						$elm$html$Html$text(starter),
-						A2(
-							$elm$core$List$cons,
-							A2(
-								$elm$html$Html$span,
-								_List_fromArray(
-									[$elm$browser$Debugger$Expando$purple]),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(field)
-									])),
-							otherHtmls)));
-			}
-		}
-	});
-var $elm$browser$Debugger$Expando$viewTinyHelp = function (str) {
-	return _Utils_Tuple2(
-		$elm$core$String$length(str),
-		_List_fromArray(
-			[
-				$elm$html$Html$text(str)
-			]));
-};
-var $elm$core$Maybe$withDefault = F2(
-	function (_default, maybe) {
-		if (maybe.$ === 'Just') {
-			var value = maybe.a;
-			return value;
-		} else {
-			return _default;
-		}
-	});
-var $elm$browser$Debugger$Expando$viewExtraTiny = function (value) {
-	if (value.$ === 'Record') {
-		var record = value.b;
-		return A3(
-			$elm$browser$Debugger$Expando$viewExtraTinyRecord,
-			0,
-			'{',
-			$elm$core$Dict$keys(record));
-	} else {
-		return $elm$browser$Debugger$Expando$viewTiny(value);
-	}
-};
-var $elm$browser$Debugger$Expando$viewTiny = function (value) {
-	switch (value.$) {
-		case 'S':
-			var stringRep = value.a;
-			var str = $elm$browser$Debugger$Expando$elideMiddle(stringRep);
-			return _Utils_Tuple2(
-				$elm$core$String$length(str),
-				_List_fromArray(
-					[
-						A2(
-						$elm$html$Html$span,
-						_List_fromArray(
-							[$elm$browser$Debugger$Expando$red]),
-						_List_fromArray(
-							[
-								$elm$html$Html$text(str)
-							]))
-					]));
-		case 'Primitive':
-			var stringRep = value.a;
-			return _Utils_Tuple2(
-				$elm$core$String$length(stringRep),
-				_List_fromArray(
-					[
-						A2(
-						$elm$html$Html$span,
-						_List_fromArray(
-							[$elm$browser$Debugger$Expando$blue]),
-						_List_fromArray(
-							[
-								$elm$html$Html$text(stringRep)
-							]))
-					]));
-		case 'Sequence':
-			var seqType = value.a;
-			var valueList = value.c;
-			return $elm$browser$Debugger$Expando$viewTinyHelp(
-				A2(
-					$elm$browser$Debugger$Expando$seqTypeToString,
-					$elm$core$List$length(valueList),
-					seqType));
-		case 'Dictionary':
-			var keyValuePairs = value.b;
-			return $elm$browser$Debugger$Expando$viewTinyHelp(
-				'Dict(' + ($elm$core$String$fromInt(
-					$elm$core$List$length(keyValuePairs)) + ')'));
-		case 'Record':
-			var record = value.b;
-			return $elm$browser$Debugger$Expando$viewTinyRecord(record);
-		default:
-			if (!value.c.b) {
-				var maybeName = value.a;
-				return $elm$browser$Debugger$Expando$viewTinyHelp(
-					A2($elm$core$Maybe$withDefault, 'Unit', maybeName));
-			} else {
-				var maybeName = value.a;
-				var valueList = value.c;
-				return $elm$browser$Debugger$Expando$viewTinyHelp(
-					function () {
-						if (maybeName.$ === 'Nothing') {
-							return 'Tuple(' + ($elm$core$String$fromInt(
-								$elm$core$List$length(valueList)) + ')');
-						} else {
-							var name = maybeName.a;
-							return name + ' …';
-						}
-					}());
-			}
-	}
-};
-var $elm$browser$Debugger$Expando$viewTinyRecord = function (record) {
-	return $elm$core$Dict$isEmpty(record) ? _Utils_Tuple2(
-		2,
-		_List_fromArray(
-			[
-				$elm$html$Html$text('{}')
-			])) : A3(
-		$elm$browser$Debugger$Expando$viewTinyRecordHelp,
-		0,
-		'{ ',
-		$elm$core$Dict$toList(record));
-};
-var $elm$browser$Debugger$Expando$viewTinyRecordHelp = F3(
-	function (length, starter, entries) {
-		if (!entries.b) {
-			return _Utils_Tuple2(
-				length + 2,
-				_List_fromArray(
-					[
-						$elm$html$Html$text(' }')
-					]));
-		} else {
-			var _v1 = entries.a;
-			var field = _v1.a;
-			var value = _v1.b;
-			var rest = entries.b;
-			var fieldLen = $elm$core$String$length(field);
-			var _v2 = $elm$browser$Debugger$Expando$viewExtraTiny(value);
-			var valueLen = _v2.a;
-			var valueHtmls = _v2.b;
-			var newLength = ((length + fieldLen) + valueLen) + 5;
-			if (newLength > 60) {
-				return _Utils_Tuple2(
-					length + 4,
-					_List_fromArray(
-						[
-							$elm$html$Html$text(', … }')
-						]));
-			} else {
-				var _v3 = A3($elm$browser$Debugger$Expando$viewTinyRecordHelp, newLength, ', ', rest);
-				var finalLength = _v3.a;
-				var otherHtmls = _v3.b;
-				return _Utils_Tuple2(
-					finalLength,
-					A2(
-						$elm$core$List$cons,
-						$elm$html$Html$text(starter),
-						A2(
-							$elm$core$List$cons,
-							A2(
-								$elm$html$Html$span,
-								_List_fromArray(
-									[$elm$browser$Debugger$Expando$purple]),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(field)
-									])),
-							A2(
-								$elm$core$List$cons,
-								$elm$html$Html$text(' = '),
-								A2(
-									$elm$core$List$cons,
-									A2($elm$html$Html$span, _List_Nil, valueHtmls),
-									otherHtmls)))));
-			}
-		}
-	});
-var $elm$browser$Debugger$Expando$view = F2(
-	function (maybeKey, expando) {
-		switch (expando.$) {
-			case 'S':
-				var stringRep = expando.a;
-				return A2(
-					$elm$html$Html$div,
-					$elm$browser$Debugger$Expando$leftPad(maybeKey),
-					A3(
-						$elm$browser$Debugger$Expando$lineStarter,
-						maybeKey,
-						$elm$core$Maybe$Nothing,
-						_List_fromArray(
-							[
-								A2(
-								$elm$html$Html$span,
-								_List_fromArray(
-									[$elm$browser$Debugger$Expando$red]),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(stringRep)
-									]))
-							])));
-			case 'Primitive':
-				var stringRep = expando.a;
-				return A2(
-					$elm$html$Html$div,
-					$elm$browser$Debugger$Expando$leftPad(maybeKey),
-					A3(
-						$elm$browser$Debugger$Expando$lineStarter,
-						maybeKey,
-						$elm$core$Maybe$Nothing,
-						_List_fromArray(
-							[
-								A2(
-								$elm$html$Html$span,
-								_List_fromArray(
-									[$elm$browser$Debugger$Expando$blue]),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(stringRep)
-									]))
-							])));
-			case 'Sequence':
-				var seqType = expando.a;
-				var isClosed = expando.b;
-				var valueList = expando.c;
-				return A4($elm$browser$Debugger$Expando$viewSequence, maybeKey, seqType, isClosed, valueList);
-			case 'Dictionary':
-				var isClosed = expando.a;
-				var keyValuePairs = expando.b;
-				return A3($elm$browser$Debugger$Expando$viewDictionary, maybeKey, isClosed, keyValuePairs);
-			case 'Record':
-				var isClosed = expando.a;
-				var valueDict = expando.b;
-				return A3($elm$browser$Debugger$Expando$viewRecord, maybeKey, isClosed, valueDict);
-			default:
-				var maybeName = expando.a;
-				var isClosed = expando.b;
-				var valueList = expando.c;
-				return A4($elm$browser$Debugger$Expando$viewConstructor, maybeKey, maybeName, isClosed, valueList);
-		}
-	});
-var $elm$browser$Debugger$Expando$viewConstructor = F4(
-	function (maybeKey, maybeName, isClosed, valueList) {
-		var tinyArgs = A2(
-			$elm$core$List$map,
-			A2($elm$core$Basics$composeL, $elm$core$Tuple$second, $elm$browser$Debugger$Expando$viewExtraTiny),
-			valueList);
-		var description = function () {
-			var _v7 = _Utils_Tuple2(maybeName, tinyArgs);
-			if (_v7.a.$ === 'Nothing') {
-				if (!_v7.b.b) {
-					var _v8 = _v7.a;
-					return _List_fromArray(
-						[
-							$elm$html$Html$text('()')
-						]);
-				} else {
-					var _v9 = _v7.a;
-					var _v10 = _v7.b;
-					var x = _v10.a;
-					var xs = _v10.b;
-					return A2(
-						$elm$core$List$cons,
-						$elm$html$Html$text('( '),
-						A2(
-							$elm$core$List$cons,
-							A2($elm$html$Html$span, _List_Nil, x),
-							A3(
-								$elm$core$List$foldr,
-								F2(
-									function (args, rest) {
-										return A2(
-											$elm$core$List$cons,
-											$elm$html$Html$text(', '),
-											A2(
-												$elm$core$List$cons,
-												A2($elm$html$Html$span, _List_Nil, args),
-												rest));
-									}),
-								_List_fromArray(
-									[
-										$elm$html$Html$text(' )')
-									]),
-								xs)));
-				}
-			} else {
-				if (!_v7.b.b) {
-					var name = _v7.a.a;
-					return _List_fromArray(
-						[
-							$elm$html$Html$text(name)
-						]);
-				} else {
-					var name = _v7.a.a;
-					var _v11 = _v7.b;
-					var x = _v11.a;
-					var xs = _v11.b;
-					return A2(
-						$elm$core$List$cons,
-						$elm$html$Html$text(name + ' '),
-						A2(
-							$elm$core$List$cons,
-							A2($elm$html$Html$span, _List_Nil, x),
-							A3(
-								$elm$core$List$foldr,
-								F2(
-									function (args, rest) {
-										return A2(
-											$elm$core$List$cons,
-											$elm$html$Html$text(' '),
-											A2(
-												$elm$core$List$cons,
-												A2($elm$html$Html$span, _List_Nil, args),
-												rest));
-									}),
-								_List_Nil,
-								xs)));
-				}
-			}
-		}();
-		var _v4 = function () {
-			if (!valueList.b) {
-				return _Utils_Tuple2(
-					$elm$core$Maybe$Nothing,
-					A2($elm$html$Html$div, _List_Nil, _List_Nil));
-			} else {
-				if (!valueList.b.b) {
-					var entry = valueList.a;
-					switch (entry.$) {
-						case 'S':
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Nothing,
-								A2($elm$html$Html$div, _List_Nil, _List_Nil));
-						case 'Primitive':
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Nothing,
-								A2($elm$html$Html$div, _List_Nil, _List_Nil));
-						case 'Sequence':
-							var subValueList = entry.c;
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Just(isClosed),
-								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
-									$elm$html$Html$map,
-									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
-									$elm$browser$Debugger$Expando$viewSequenceOpen(subValueList)));
-						case 'Dictionary':
-							var keyValuePairs = entry.b;
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Just(isClosed),
-								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
-									$elm$html$Html$map,
-									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
-									$elm$browser$Debugger$Expando$viewDictionaryOpen(keyValuePairs)));
-						case 'Record':
-							var record = entry.b;
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Just(isClosed),
-								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
-									$elm$html$Html$map,
-									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
-									$elm$browser$Debugger$Expando$viewRecordOpen(record)));
-						default:
-							var subValueList = entry.c;
-							return _Utils_Tuple2(
-								$elm$core$Maybe$Just(isClosed),
-								isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
-									$elm$html$Html$map,
-									A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, 0),
-									$elm$browser$Debugger$Expando$viewConstructorOpen(subValueList)));
-					}
-				} else {
-					return _Utils_Tuple2(
-						$elm$core$Maybe$Just(isClosed),
-						isClosed ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : $elm$browser$Debugger$Expando$viewConstructorOpen(valueList));
-				}
-			}
-		}();
-		var maybeIsClosed = _v4.a;
-		var openHtml = _v4.b;
-		return A2(
-			$elm$html$Html$div,
-			$elm$browser$Debugger$Expando$leftPad(maybeKey),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
-						]),
-					A3($elm$browser$Debugger$Expando$lineStarter, maybeKey, maybeIsClosed, description)),
-					openHtml
-				]));
-	});
-var $elm$browser$Debugger$Expando$viewConstructorEntry = F2(
-	function (index, value) {
-		return A2(
-			$elm$html$Html$map,
-			A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$None, index),
-			A2(
-				$elm$browser$Debugger$Expando$view,
-				$elm$core$Maybe$Just(
-					$elm$core$String$fromInt(index)),
-				value));
-	});
-var $elm$browser$Debugger$Expando$viewConstructorOpen = function (valueList) {
-	return A2(
-		$elm$html$Html$div,
-		_List_Nil,
-		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewConstructorEntry, valueList));
-};
-var $elm$browser$Debugger$Expando$viewDictionary = F3(
-	function (maybeKey, isClosed, keyValuePairs) {
-		var starter = 'Dict(' + ($elm$core$String$fromInt(
-			$elm$core$List$length(keyValuePairs)) + ')');
-		return A2(
-			$elm$html$Html$div,
-			$elm$browser$Debugger$Expando$leftPad(maybeKey),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
-						]),
-					A3(
-						$elm$browser$Debugger$Expando$lineStarter,
-						maybeKey,
-						$elm$core$Maybe$Just(isClosed),
-						_List_fromArray(
-							[
-								$elm$html$Html$text(starter)
-							]))),
-					isClosed ? $elm$html$Html$text('') : $elm$browser$Debugger$Expando$viewDictionaryOpen(keyValuePairs)
-				]));
-	});
-var $elm$browser$Debugger$Expando$viewDictionaryEntry = F2(
-	function (index, _v2) {
-		var key = _v2.a;
-		var value = _v2.b;
-		switch (key.$) {
-			case 'S':
-				var stringRep = key.a;
-				return A2(
-					$elm$html$Html$map,
-					A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
-					A2(
-						$elm$browser$Debugger$Expando$view,
-						$elm$core$Maybe$Just(stringRep),
-						value));
-			case 'Primitive':
-				var stringRep = key.a;
-				return A2(
-					$elm$html$Html$map,
-					A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
-					A2(
-						$elm$browser$Debugger$Expando$view,
-						$elm$core$Maybe$Just(stringRep),
-						value));
-			default:
-				return A2(
-					$elm$html$Html$div,
-					_List_Nil,
-					_List_fromArray(
-						[
-							A2(
-							$elm$html$Html$map,
-							A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Key, index),
-							A2(
-								$elm$browser$Debugger$Expando$view,
-								$elm$core$Maybe$Just('key'),
-								key)),
-							A2(
-							$elm$html$Html$map,
-							A2($elm$browser$Debugger$Expando$Index, $elm$browser$Debugger$Expando$Value, index),
-							A2(
-								$elm$browser$Debugger$Expando$view,
-								$elm$core$Maybe$Just('value'),
-								value))
-						]));
-		}
-	});
-var $elm$browser$Debugger$Expando$viewDictionaryOpen = function (keyValuePairs) {
-	return A2(
-		$elm$html$Html$div,
-		_List_Nil,
-		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewDictionaryEntry, keyValuePairs));
-};
-var $elm$browser$Debugger$Expando$viewRecord = F3(
-	function (maybeKey, isClosed, record) {
-		var _v1 = isClosed ? _Utils_Tuple3(
-			$elm$browser$Debugger$Expando$viewTinyRecord(record).b,
-			$elm$html$Html$text(''),
-			$elm$html$Html$text('')) : _Utils_Tuple3(
-			_List_fromArray(
-				[
-					$elm$html$Html$text('{')
-				]),
-			$elm$browser$Debugger$Expando$viewRecordOpen(record),
-			A2(
-				$elm$html$Html$div,
-				$elm$browser$Debugger$Expando$leftPad(
-					$elm$core$Maybe$Just(_Utils_Tuple0)),
-				_List_fromArray(
-					[
-						$elm$html$Html$text('}')
-					])));
-		var start = _v1.a;
-		var middle = _v1.b;
-		var end = _v1.c;
-		return A2(
-			$elm$html$Html$div,
-			$elm$browser$Debugger$Expando$leftPad(maybeKey),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
-						]),
-					A3(
-						$elm$browser$Debugger$Expando$lineStarter,
-						maybeKey,
-						$elm$core$Maybe$Just(isClosed),
-						start)),
-					middle,
-					end
-				]));
-	});
-var $elm$browser$Debugger$Expando$viewRecordEntry = function (_v0) {
-	var field = _v0.a;
-	var value = _v0.b;
-	return A2(
-		$elm$html$Html$map,
-		$elm$browser$Debugger$Expando$Field(field),
-		A2(
-			$elm$browser$Debugger$Expando$view,
-			$elm$core$Maybe$Just(field),
-			value));
-};
-var $elm$browser$Debugger$Expando$viewRecordOpen = function (record) {
-	return A2(
-		$elm$html$Html$div,
-		_List_Nil,
-		A2(
-			$elm$core$List$map,
-			$elm$browser$Debugger$Expando$viewRecordEntry,
-			$elm$core$Dict$toList(record)));
-};
-var $elm$browser$Debugger$Expando$viewSequence = F4(
-	function (maybeKey, seqType, isClosed, valueList) {
-		var starter = A2(
-			$elm$browser$Debugger$Expando$seqTypeToString,
-			$elm$core$List$length(valueList),
-			seqType);
-		return A2(
-			$elm$html$Html$div,
-			$elm$browser$Debugger$Expando$leftPad(maybeKey),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							$elm$html$Html$Events$onClick($elm$browser$Debugger$Expando$Toggle)
-						]),
-					A3(
-						$elm$browser$Debugger$Expando$lineStarter,
-						maybeKey,
-						$elm$core$Maybe$Just(isClosed),
-						_List_fromArray(
-							[
-								$elm$html$Html$text(starter)
-							]))),
-					isClosed ? $elm$html$Html$text('') : $elm$browser$Debugger$Expando$viewSequenceOpen(valueList)
-				]));
-	});
-var $elm$browser$Debugger$Expando$viewSequenceOpen = function (values) {
-	return A2(
-		$elm$html$Html$div,
-		_List_Nil,
-		A2($elm$core$List$indexedMap, $elm$browser$Debugger$Expando$viewConstructorEntry, values));
-};
-var $elm$browser$Debugger$Main$viewExpando = F3(
-	function (expandoMsg, expandoModel, layout) {
-		var block = $elm$browser$Debugger$Main$toMouseBlocker(layout);
-		var _v0 = $elm$browser$Debugger$Main$toExpandoPercents(layout);
-		var w = _v0.a;
-		var h = _v0.b;
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'display', 'block'),
-					A2($elm$html$Html$Attributes$style, 'width', 'calc(' + (w + ' - 4em)')),
-					A2($elm$html$Html$Attributes$style, 'height', 'calc(' + (h + ' - 4em)')),
-					A2($elm$html$Html$Attributes$style, 'padding', '2em'),
-					A2($elm$html$Html$Attributes$style, 'margin', '0'),
-					A2($elm$html$Html$Attributes$style, 'overflow', 'auto'),
-					A2($elm$html$Html$Attributes$style, 'pointer-events', block),
-					A2($elm$html$Html$Attributes$style, '-webkit-user-select', block),
-					A2($elm$html$Html$Attributes$style, '-moz-user-select', block),
-					A2($elm$html$Html$Attributes$style, '-ms-user-select', block),
-					A2($elm$html$Html$Attributes$style, 'user-select', block)
-				]),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							A2($elm$html$Html$Attributes$style, 'color', '#ccc'),
-							A2($elm$html$Html$Attributes$style, 'padding', '0 0 1em 0')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text('-- MESSAGE')
-						])),
-					A2(
-					$elm$html$Html$map,
-					$elm$browser$Debugger$Main$TweakExpandoMsg,
-					A2($elm$browser$Debugger$Expando$view, $elm$core$Maybe$Nothing, expandoMsg)),
-					A2(
-					$elm$html$Html$div,
-					_List_fromArray(
-						[
-							A2($elm$html$Html$Attributes$style, 'color', '#ccc'),
-							A2($elm$html$Html$Attributes$style, 'padding', '1em 0')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text('-- MODEL')
-						])),
-					A2(
-					$elm$html$Html$map,
-					$elm$browser$Debugger$Main$TweakExpandoModel,
-					A2($elm$browser$Debugger$Expando$view, $elm$core$Maybe$Nothing, expandoModel))
-				]));
-	});
-var $elm$browser$Debugger$Main$Jump = function (a) {
-	return {$: 'Jump', a: a};
-};
-var $elm$virtual_dom$VirtualDom$lazy = _VirtualDom_lazy;
-var $elm$html$Html$Lazy$lazy = $elm$virtual_dom$VirtualDom$lazy;
-var $elm$browser$Debugger$Main$toHistoryPercents = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		var x = layout.b;
-		return _Utils_Tuple2(
-			$elm$browser$Debugger$Main$toPercent(x),
-			'100%');
-	} else {
-		var y = layout.c;
-		return _Utils_Tuple2(
-			'100%',
-			$elm$browser$Debugger$Main$toPercent(1 - y));
-	}
-};
-var $elm$virtual_dom$VirtualDom$lazy3 = _VirtualDom_lazy3;
-var $elm$html$Html$Lazy$lazy3 = $elm$virtual_dom$VirtualDom$lazy3;
-var $elm$html$Html$Attributes$class = $elm$html$Html$Attributes$stringProperty('className');
-var $elm$browser$Debugger$History$idForMessageIndex = function (index) {
-	return 'msg-' + $elm$core$String$fromInt(index);
-};
-var $elm$html$Html$Attributes$title = $elm$html$Html$Attributes$stringProperty('title');
-var $elm$browser$Debugger$History$viewMessage = F3(
-	function (currentIndex, index, msg) {
-		var messageName = _Debugger_messageToString(msg);
-		var className = _Utils_eq(currentIndex, index) ? 'elm-debugger-entry elm-debugger-entry-selected' : 'elm-debugger-entry';
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					$elm$html$Html$Attributes$id(
-					$elm$browser$Debugger$History$idForMessageIndex(index)),
-					$elm$html$Html$Attributes$class(className),
-					$elm$html$Html$Events$onClick(index)
-				]),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$span,
-					_List_fromArray(
-						[
-							$elm$html$Html$Attributes$title(messageName),
-							$elm$html$Html$Attributes$class('elm-debugger-entry-content')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text(messageName)
-						])),
-					A2(
-					$elm$html$Html$span,
-					_List_fromArray(
-						[
-							$elm$html$Html$Attributes$class('elm-debugger-entry-index')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text(
-							$elm$core$String$fromInt(index))
-						]))
-				]));
-	});
-var $elm$browser$Debugger$History$consMsg = F3(
-	function (currentIndex, msg, _v0) {
-		var index = _v0.a;
-		var rest = _v0.b;
-		return _Utils_Tuple2(
-			index + 1,
-			A2(
-				$elm$core$List$cons,
-				_Utils_Tuple2(
-					$elm$core$String$fromInt(index),
-					A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewMessage, currentIndex, index, msg)),
-				rest));
-	});
-var $elm$core$Array$length = function (_v0) {
-	var len = _v0.a;
-	return len;
-};
-var $elm$core$Basics$neq = _Utils_notEqual;
-var $elm$virtual_dom$VirtualDom$keyedNode = function (tag) {
-	return _VirtualDom_keyedNode(
-		_VirtualDom_noScript(tag));
-};
-var $elm$html$Html$Keyed$node = $elm$virtual_dom$VirtualDom$keyedNode;
-var $elm$browser$Debugger$History$maxSnapshotSize = 31;
-var $elm$browser$Debugger$History$showMoreButton = function (numMessages) {
-	var nextIndex = (numMessages - 1) - ($elm$browser$Debugger$History$maxSnapshotSize * 2);
-	var labelText = 'View more messages';
-	return A2(
-		$elm$html$Html$div,
-		_List_fromArray(
-			[
-				$elm$html$Html$Attributes$class('elm-debugger-entry'),
-				$elm$html$Html$Events$onClick(nextIndex)
-			]),
-		_List_fromArray(
-			[
-				A2(
-				$elm$html$Html$span,
-				_List_fromArray(
-					[
-						$elm$html$Html$Attributes$title(labelText),
-						$elm$html$Html$Attributes$class('elm-debugger-entry-content')
-					]),
-				_List_fromArray(
-					[
-						$elm$html$Html$text(labelText)
-					])),
-				A2(
-				$elm$html$Html$span,
-				_List_fromArray(
-					[
-						$elm$html$Html$Attributes$class('elm-debugger-entry-index')
-					]),
-				_List_Nil)
-			]));
-};
-var $elm$browser$Debugger$History$styles = A3(
-	$elm$html$Html$node,
-	'style',
-	_List_Nil,
-	_List_fromArray(
-		[
-			$elm$html$Html$text('\n\n.elm-debugger-entry {\n  cursor: pointer;\n  width: 100%;\n  box-sizing: border-box;\n  padding: 8px;\n}\n\n.elm-debugger-entry:hover {\n  background-color: rgb(41, 41, 41);\n}\n\n.elm-debugger-entry-selected, .elm-debugger-entry-selected:hover {\n  background-color: rgb(10, 10, 10);\n}\n\n.elm-debugger-entry-content {\n  width: calc(100% - 40px);\n  padding: 0 5px;\n  box-sizing: border-box;\n  text-overflow: ellipsis;\n  white-space: nowrap;\n  overflow: hidden;\n  display: inline-block;\n}\n\n.elm-debugger-entry-index {\n  color: #666;\n  width: 40px;\n  text-align: right;\n  display: block;\n  float: right;\n}\n\n')
-		]));
-var $elm$core$Basics$ge = _Utils_ge;
-var $elm$browser$Debugger$History$viewSnapshot = F3(
-	function (selectedIndex, index, _v0) {
-		var messages = _v0.messages;
-		return A3(
-			$elm$html$Html$Keyed$node,
-			'div',
-			_List_Nil,
-			A3(
-				$elm$core$Array$foldr,
-				$elm$browser$Debugger$History$consMsg(selectedIndex),
-				_Utils_Tuple2(index, _List_Nil),
-				messages).b);
-	});
-var $elm$browser$Debugger$History$consSnapshot = F3(
-	function (selectedIndex, snapshot, _v0) {
-		var index = _v0.a;
-		var rest = _v0.b;
-		var nextIndex = index + $elm$core$Array$length(snapshot.messages);
-		var selectedIndexHelp = ((_Utils_cmp(nextIndex, selectedIndex) > 0) && (_Utils_cmp(selectedIndex, index) > -1)) ? selectedIndex : (-1);
-		return _Utils_Tuple2(
-			nextIndex,
-			A2(
-				$elm$core$List$cons,
-				A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewSnapshot, selectedIndexHelp, index, snapshot),
-				rest));
-	});
-var $elm$core$Elm$JsArray$foldl = _JsArray_foldl;
-var $elm$core$Array$foldl = F3(
-	function (func, baseCase, _v0) {
-		var tree = _v0.c;
-		var tail = _v0.d;
-		var helper = F2(
-			function (node, acc) {
-				if (node.$ === 'SubTree') {
-					var subTree = node.a;
-					return A3($elm$core$Elm$JsArray$foldl, helper, acc, subTree);
-				} else {
-					var values = node.a;
-					return A3($elm$core$Elm$JsArray$foldl, func, acc, values);
-				}
-			});
-		return A3(
-			$elm$core$Elm$JsArray$foldl,
-			func,
-			A3($elm$core$Elm$JsArray$foldl, helper, baseCase, tree),
-			tail);
-	});
-var $elm$browser$Debugger$History$viewAllSnapshots = F3(
-	function (selectedIndex, startIndex, snapshots) {
-		return A2(
-			$elm$html$Html$div,
-			_List_Nil,
-			A3(
-				$elm$core$Array$foldl,
-				$elm$browser$Debugger$History$consSnapshot(selectedIndex),
-				_Utils_Tuple2(startIndex, _List_Nil),
-				snapshots).b);
-	});
-var $elm$core$Array$fromListHelp = F3(
-	function (list, nodeList, nodeListSize) {
-		fromListHelp:
-		while (true) {
-			var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, list);
-			var jsArray = _v0.a;
-			var remainingItems = _v0.b;
-			if (_Utils_cmp(
-				$elm$core$Elm$JsArray$length(jsArray),
-				$elm$core$Array$branchFactor) < 0) {
-				return A2(
-					$elm$core$Array$builderToArray,
-					true,
-					{nodeList: nodeList, nodeListSize: nodeListSize, tail: jsArray});
-			} else {
-				var $temp$list = remainingItems,
-					$temp$nodeList = A2(
-					$elm$core$List$cons,
-					$elm$core$Array$Leaf(jsArray),
-					nodeList),
-					$temp$nodeListSize = nodeListSize + 1;
-				list = $temp$list;
-				nodeList = $temp$nodeList;
-				nodeListSize = $temp$nodeListSize;
-				continue fromListHelp;
-			}
-		}
-	});
-var $elm$core$Array$fromList = function (list) {
-	if (!list.b) {
-		return $elm$core$Array$empty;
-	} else {
-		return A3($elm$core$Array$fromListHelp, list, _List_Nil, 0);
-	}
-};
-var $elm$core$Bitwise$and = _Bitwise_and;
-var $elm$core$Bitwise$shiftRightZfBy = _Bitwise_shiftRightZfBy;
-var $elm$core$Array$bitMask = 4294967295 >>> (32 - $elm$core$Array$shiftStep);
-var $elm$core$Elm$JsArray$unsafeGet = _JsArray_unsafeGet;
-var $elm$core$Array$getHelp = F3(
-	function (shift, index, tree) {
-		getHelp:
-		while (true) {
-			var pos = $elm$core$Array$bitMask & (index >>> shift);
-			var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
-			if (_v0.$ === 'SubTree') {
-				var subTree = _v0.a;
-				var $temp$shift = shift - $elm$core$Array$shiftStep,
-					$temp$index = index,
-					$temp$tree = subTree;
-				shift = $temp$shift;
-				index = $temp$index;
-				tree = $temp$tree;
-				continue getHelp;
-			} else {
-				var values = _v0.a;
-				return A2($elm$core$Elm$JsArray$unsafeGet, $elm$core$Array$bitMask & index, values);
-			}
-		}
-	});
-var $elm$core$Bitwise$shiftLeftBy = _Bitwise_shiftLeftBy;
-var $elm$core$Array$tailIndex = function (len) {
-	return (len >>> 5) << 5;
-};
-var $elm$core$Array$get = F2(
-	function (index, _v0) {
-		var len = _v0.a;
-		var startShift = _v0.b;
-		var tree = _v0.c;
-		var tail = _v0.d;
-		return ((index < 0) || (_Utils_cmp(index, len) > -1)) ? $elm$core$Maybe$Nothing : ((_Utils_cmp(
-			index,
-			$elm$core$Array$tailIndex(len)) > -1) ? $elm$core$Maybe$Just(
-			A2($elm$core$Elm$JsArray$unsafeGet, $elm$core$Array$bitMask & index, tail)) : $elm$core$Maybe$Just(
-			A3($elm$core$Array$getHelp, startShift, index, tree)));
-	});
-var $elm$core$Elm$JsArray$appendN = _JsArray_appendN;
-var $elm$core$Elm$JsArray$slice = _JsArray_slice;
-var $elm$core$Array$appendHelpBuilder = F2(
-	function (tail, builder) {
-		var tailLen = $elm$core$Elm$JsArray$length(tail);
-		var notAppended = ($elm$core$Array$branchFactor - $elm$core$Elm$JsArray$length(builder.tail)) - tailLen;
-		var appended = A3($elm$core$Elm$JsArray$appendN, $elm$core$Array$branchFactor, builder.tail, tail);
-		return (notAppended < 0) ? {
-			nodeList: A2(
-				$elm$core$List$cons,
-				$elm$core$Array$Leaf(appended),
-				builder.nodeList),
-			nodeListSize: builder.nodeListSize + 1,
-			tail: A3($elm$core$Elm$JsArray$slice, notAppended, tailLen, tail)
-		} : ((!notAppended) ? {
-			nodeList: A2(
-				$elm$core$List$cons,
-				$elm$core$Array$Leaf(appended),
-				builder.nodeList),
-			nodeListSize: builder.nodeListSize + 1,
-			tail: $elm$core$Elm$JsArray$empty
-		} : {nodeList: builder.nodeList, nodeListSize: builder.nodeListSize, tail: appended});
-	});
-var $elm$core$List$drop = F2(
-	function (n, list) {
-		drop:
-		while (true) {
-			if (n <= 0) {
-				return list;
-			} else {
-				if (!list.b) {
-					return list;
-				} else {
-					var x = list.a;
-					var xs = list.b;
-					var $temp$n = n - 1,
-						$temp$list = xs;
-					n = $temp$n;
-					list = $temp$list;
-					continue drop;
-				}
-			}
-		}
-	});
-var $elm$core$Array$sliceLeft = F2(
-	function (from, array) {
-		var len = array.a;
-		var tree = array.c;
-		var tail = array.d;
-		if (!from) {
-			return array;
-		} else {
-			if (_Utils_cmp(
-				from,
-				$elm$core$Array$tailIndex(len)) > -1) {
-				return A4(
-					$elm$core$Array$Array_elm_builtin,
-					len - from,
-					$elm$core$Array$shiftStep,
-					$elm$core$Elm$JsArray$empty,
-					A3(
-						$elm$core$Elm$JsArray$slice,
-						from - $elm$core$Array$tailIndex(len),
-						$elm$core$Elm$JsArray$length(tail),
-						tail));
-			} else {
-				var skipNodes = (from / $elm$core$Array$branchFactor) | 0;
-				var helper = F2(
-					function (node, acc) {
-						if (node.$ === 'SubTree') {
-							var subTree = node.a;
-							return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
-						} else {
-							var leaf = node.a;
-							return A2($elm$core$List$cons, leaf, acc);
-						}
-					});
-				var leafNodes = A3(
-					$elm$core$Elm$JsArray$foldr,
-					helper,
-					_List_fromArray(
-						[tail]),
-					tree);
-				var nodesToInsert = A2($elm$core$List$drop, skipNodes, leafNodes);
-				if (!nodesToInsert.b) {
-					return $elm$core$Array$empty;
-				} else {
-					var head = nodesToInsert.a;
-					var rest = nodesToInsert.b;
-					var firstSlice = from - (skipNodes * $elm$core$Array$branchFactor);
-					var initialBuilder = {
-						nodeList: _List_Nil,
-						nodeListSize: 0,
-						tail: A3(
-							$elm$core$Elm$JsArray$slice,
-							firstSlice,
-							$elm$core$Elm$JsArray$length(head),
-							head)
-					};
-					return A2(
-						$elm$core$Array$builderToArray,
-						true,
-						A3($elm$core$List$foldl, $elm$core$Array$appendHelpBuilder, initialBuilder, rest));
-				}
-			}
-		}
-	});
-var $elm$core$Array$fetchNewTail = F4(
-	function (shift, end, treeEnd, tree) {
-		fetchNewTail:
-		while (true) {
-			var pos = $elm$core$Array$bitMask & (treeEnd >>> shift);
-			var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
-			if (_v0.$ === 'SubTree') {
-				var sub = _v0.a;
-				var $temp$shift = shift - $elm$core$Array$shiftStep,
-					$temp$end = end,
-					$temp$treeEnd = treeEnd,
-					$temp$tree = sub;
-				shift = $temp$shift;
-				end = $temp$end;
-				treeEnd = $temp$treeEnd;
-				tree = $temp$tree;
-				continue fetchNewTail;
-			} else {
-				var values = _v0.a;
-				return A3($elm$core$Elm$JsArray$slice, 0, $elm$core$Array$bitMask & end, values);
-			}
-		}
-	});
-var $elm$core$Array$hoistTree = F3(
-	function (oldShift, newShift, tree) {
-		hoistTree:
-		while (true) {
-			if ((_Utils_cmp(oldShift, newShift) < 1) || (!$elm$core$Elm$JsArray$length(tree))) {
-				return tree;
-			} else {
-				var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, 0, tree);
-				if (_v0.$ === 'SubTree') {
-					var sub = _v0.a;
-					var $temp$oldShift = oldShift - $elm$core$Array$shiftStep,
-						$temp$newShift = newShift,
-						$temp$tree = sub;
-					oldShift = $temp$oldShift;
-					newShift = $temp$newShift;
-					tree = $temp$tree;
-					continue hoistTree;
-				} else {
-					return tree;
-				}
-			}
-		}
-	});
-var $elm$core$Elm$JsArray$unsafeSet = _JsArray_unsafeSet;
-var $elm$core$Array$sliceTree = F3(
-	function (shift, endIdx, tree) {
-		var lastPos = $elm$core$Array$bitMask & (endIdx >>> shift);
-		var _v0 = A2($elm$core$Elm$JsArray$unsafeGet, lastPos, tree);
-		if (_v0.$ === 'SubTree') {
-			var sub = _v0.a;
-			var newSub = A3($elm$core$Array$sliceTree, shift - $elm$core$Array$shiftStep, endIdx, sub);
-			return (!$elm$core$Elm$JsArray$length(newSub)) ? A3($elm$core$Elm$JsArray$slice, 0, lastPos, tree) : A3(
-				$elm$core$Elm$JsArray$unsafeSet,
-				lastPos,
-				$elm$core$Array$SubTree(newSub),
-				A3($elm$core$Elm$JsArray$slice, 0, lastPos + 1, tree));
-		} else {
-			return A3($elm$core$Elm$JsArray$slice, 0, lastPos, tree);
-		}
-	});
-var $elm$core$Array$sliceRight = F2(
-	function (end, array) {
-		var len = array.a;
-		var startShift = array.b;
-		var tree = array.c;
-		var tail = array.d;
-		if (_Utils_eq(end, len)) {
-			return array;
-		} else {
-			if (_Utils_cmp(
-				end,
-				$elm$core$Array$tailIndex(len)) > -1) {
-				return A4(
-					$elm$core$Array$Array_elm_builtin,
-					end,
-					startShift,
-					tree,
-					A3($elm$core$Elm$JsArray$slice, 0, $elm$core$Array$bitMask & end, tail));
-			} else {
-				var endIdx = $elm$core$Array$tailIndex(end);
-				var depth = $elm$core$Basics$floor(
-					A2(
-						$elm$core$Basics$logBase,
-						$elm$core$Array$branchFactor,
-						A2($elm$core$Basics$max, 1, endIdx - 1)));
-				var newShift = A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep);
-				return A4(
-					$elm$core$Array$Array_elm_builtin,
-					end,
-					newShift,
-					A3(
-						$elm$core$Array$hoistTree,
-						startShift,
-						newShift,
-						A3($elm$core$Array$sliceTree, startShift, endIdx, tree)),
-					A4($elm$core$Array$fetchNewTail, startShift, end, endIdx, tree));
-			}
-		}
-	});
-var $elm$core$Array$translateIndex = F2(
-	function (index, _v0) {
-		var len = _v0.a;
-		var posIndex = (index < 0) ? (len + index) : index;
-		return (posIndex < 0) ? 0 : ((_Utils_cmp(posIndex, len) > 0) ? len : posIndex);
-	});
-var $elm$core$Array$slice = F3(
-	function (from, to, array) {
-		var correctTo = A2($elm$core$Array$translateIndex, to, array);
-		var correctFrom = A2($elm$core$Array$translateIndex, from, array);
-		return (_Utils_cmp(correctFrom, correctTo) > 0) ? $elm$core$Array$empty : A2(
-			$elm$core$Array$sliceLeft,
-			correctFrom,
-			A2($elm$core$Array$sliceRight, correctTo, array));
-	});
-var $elm$browser$Debugger$History$viewRecentSnapshots = F3(
-	function (selectedIndex, recentMessagesNum, snapshots) {
-		var messagesToFill = $elm$browser$Debugger$History$maxSnapshotSize - recentMessagesNum;
-		var arrayLength = $elm$core$Array$length(snapshots);
-		var snapshotsToRender = function () {
-			var _v0 = _Utils_Tuple2(
-				A2($elm$core$Array$get, arrayLength - 2, snapshots),
-				A2($elm$core$Array$get, arrayLength - 1, snapshots));
-			if ((_v0.a.$ === 'Just') && (_v0.b.$ === 'Just')) {
-				var fillerSnapshot = _v0.a.a;
-				var recentSnapshot = _v0.b.a;
-				return $elm$core$Array$fromList(
-					_List_fromArray(
-						[
-							{
-							messages: A3($elm$core$Array$slice, 0, messagesToFill, fillerSnapshot.messages),
-							model: fillerSnapshot.model
-						},
-							recentSnapshot
-						]));
-			} else {
-				return snapshots;
-			}
-		}();
-		var startingIndex = ((arrayLength * $elm$browser$Debugger$History$maxSnapshotSize) - $elm$browser$Debugger$History$maxSnapshotSize) - messagesToFill;
-		return A3($elm$browser$Debugger$History$viewAllSnapshots, selectedIndex, startingIndex, snapshotsToRender);
-	});
-var $elm$browser$Debugger$History$view = F2(
-	function (maybeIndex, _v0) {
-		var snapshots = _v0.snapshots;
-		var recent = _v0.recent;
-		var numMessages = _v0.numMessages;
-		var recentMessageStartIndex = numMessages - recent.numMessages;
-		var index = A2($elm$core$Maybe$withDefault, -1, maybeIndex);
-		var newStuff = A3(
-			$elm$html$Html$Keyed$node,
-			'div',
-			_List_Nil,
-			A3(
-				$elm$core$List$foldr,
-				$elm$browser$Debugger$History$consMsg(index),
-				_Utils_Tuple2(recentMessageStartIndex, _List_Nil),
-				recent.messages).b);
-		var onlyRenderRecentMessages = (!_Utils_eq(index, -1)) || ($elm$core$Array$length(snapshots) < 2);
-		var oldStuff = onlyRenderRecentMessages ? A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewAllSnapshots, index, 0, snapshots) : A4($elm$html$Html$Lazy$lazy3, $elm$browser$Debugger$History$viewRecentSnapshots, index, recent.numMessages, snapshots);
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					$elm$html$Html$Attributes$id('elm-debugger-sidebar'),
-					A2($elm$html$Html$Attributes$style, 'width', '100%'),
-					A2($elm$html$Html$Attributes$style, 'overflow-y', 'auto'),
-					A2($elm$html$Html$Attributes$style, 'height', 'calc(100% - 72px)')
-				]),
-			A2(
-				$elm$core$List$cons,
-				$elm$browser$Debugger$History$styles,
-				A2(
-					$elm$core$List$cons,
-					newStuff,
-					A2(
-						$elm$core$List$cons,
-						oldStuff,
-						onlyRenderRecentMessages ? _List_Nil : _List_fromArray(
-							[
-								$elm$browser$Debugger$History$showMoreButton(numMessages)
-							])))));
-	});
-var $elm$browser$Debugger$Main$SwapLayout = {$: 'SwapLayout'};
-var $elm$browser$Debugger$Main$toHistoryIcon = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		return 'M13 1a3 3 0 0 1 3 3v8a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M13 3h-10a1 1 0 0 0-1 1v5h12v-5a1 1 0 0 0-1-1z M14 10h-12v2a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1z';
-	} else {
-		return 'M0 4a3 3 0 0 1 3-3h10a3 3 0 0 1 3 3v8a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3z M2 4v8a1 1 0 0 0 1 1h2v-10h-2a1 1 0 0 0-1 1z M6 3v10h7a1 1 0 0 0 1-1v-8a1 1 0 0 0-1-1z';
-	}
-};
-var $elm$browser$Debugger$Main$icon = function (path) {
-	return A4(
-		$elm$virtual_dom$VirtualDom$nodeNS,
-		'http://www.w3.org/2000/svg',
-		'svg',
-		_List_fromArray(
-			[
-				A2($elm$virtual_dom$VirtualDom$attribute, 'viewBox', '0 0 16 16'),
-				A2($elm$virtual_dom$VirtualDom$attribute, 'xmlns', 'http://www.w3.org/2000/svg'),
-				A2($elm$virtual_dom$VirtualDom$attribute, 'fill', 'currentColor'),
-				A2($elm$virtual_dom$VirtualDom$attribute, 'width', '16px'),
-				A2($elm$virtual_dom$VirtualDom$attribute, 'height', '16px')
-			]),
-		_List_fromArray(
-			[
-				A4(
-				$elm$virtual_dom$VirtualDom$nodeNS,
-				'http://www.w3.org/2000/svg',
-				'path',
-				_List_fromArray(
-					[
-						A2($elm$virtual_dom$VirtualDom$attribute, 'd', path)
-					]),
-				_List_Nil)
-			]));
-};
-var $elm$browser$Debugger$Main$viewHistoryButton = F3(
-	function (label, msg, path) {
-		return A2(
-			$elm$html$Html$button,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-					A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
-					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-					A2($elm$html$Html$Attributes$style, 'background', 'none'),
-					A2($elm$html$Html$Attributes$style, 'border', 'none'),
-					A2($elm$html$Html$Attributes$style, 'color', 'inherit'),
-					A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
-					$elm$html$Html$Events$onClick(msg)
-				]),
-			_List_fromArray(
-				[
-					$elm$browser$Debugger$Main$icon(path),
-					A2(
-					$elm$html$Html$span,
-					_List_fromArray(
-						[
-							A2($elm$html$Html$Attributes$style, 'padding-left', '6px')
-						]),
-					_List_fromArray(
-						[
-							$elm$html$Html$text(label)
-						]))
-				]));
-	});
-var $elm$browser$Debugger$Main$viewHistoryOptions = function (layout) {
-	return A2(
-		$elm$html$Html$div,
-		_List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'width', '100%'),
-				A2($elm$html$Html$Attributes$style, 'height', '36px'),
-				A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-				A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
-				A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-				A2($elm$html$Html$Attributes$style, 'justify-content', 'space-between'),
-				A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
-			]),
-		_List_fromArray(
-			[
-				A3(
-				$elm$browser$Debugger$Main$viewHistoryButton,
-				'Swap Layout',
-				$elm$browser$Debugger$Main$SwapLayout,
-				$elm$browser$Debugger$Main$toHistoryIcon(layout)),
-				A2(
-				$elm$html$Html$div,
-				_List_fromArray(
-					[
-						A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-						A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
-						A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-						A2($elm$html$Html$Attributes$style, 'justify-content', 'space-between')
-					]),
-				_List_fromArray(
-					[
-						A3($elm$browser$Debugger$Main$viewHistoryButton, 'Import', $elm$browser$Debugger$Main$Import, 'M5 1a1 1 0 0 1 0 2h-2a1 1 0 0 0-1 1v8a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1a1 1 0 0 1 2 0a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M10 2a1 1 0 0 0 -2 0v6a1 1 0 0 0 1 1h6a1 1 0 0 0 0-2h-3.586l4.293-4.293a1 1 0 0 0-1.414-1.414l-4.293 4.293z'),
-						A3($elm$browser$Debugger$Main$viewHistoryButton, 'Export', $elm$browser$Debugger$Main$Export, 'M5 1a1 1 0 0 1 0 2h-2a1 1 0 0 0-1 1v8a1 1 0 0 0 1 1h10a1 1 0 0 0 1-1 a1 1 0 0 1 2 0a3 3 0 0 1-3 3h-10a3 3 0 0 1-3-3v-8a3 3 0 0 1 3-3z M9 3a1 1 0 1 1 0-2h6a1 1 0 0 1 1 1v6a1 1 0 1 1-2 0v-3.586l-5.293 5.293 a1 1 0 0 1-1.414-1.414l5.293 -5.293z')
-					]))
-			]));
-};
-var $elm$browser$Debugger$Main$SliderJump = function (a) {
-	return {$: 'SliderJump', a: a};
-};
-var $elm$core$Basics$composeR = F3(
-	function (f, g, x) {
-		return g(
-			f(x));
-	});
-var $elm$html$Html$input = _VirtualDom_node('input');
-var $elm$browser$Debugger$Main$isPlaying = function (maybeIndex) {
-	if (maybeIndex.$ === 'Nothing') {
-		return true;
-	} else {
-		return false;
-	}
-};
-var $elm$html$Html$Attributes$max = $elm$html$Html$Attributes$stringProperty('max');
-var $elm$html$Html$Attributes$min = $elm$html$Html$Attributes$stringProperty('min');
-var $elm$html$Html$Events$alwaysStop = function (x) {
-	return _Utils_Tuple2(x, true);
-};
-var $elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) {
-	return {$: 'MayStopPropagation', a: a};
-};
-var $elm$html$Html$Events$stopPropagationOn = F2(
-	function (event, decoder) {
-		return A2(
-			$elm$virtual_dom$VirtualDom$on,
-			event,
-			$elm$virtual_dom$VirtualDom$MayStopPropagation(decoder));
-	});
-var $elm$json$Json$Decode$string = _Json_decodeString;
-var $elm$html$Html$Events$targetValue = A2(
-	$elm$json$Json$Decode$at,
-	_List_fromArray(
-		['target', 'value']),
-	$elm$json$Json$Decode$string);
-var $elm$html$Html$Events$onInput = function (tagger) {
-	return A2(
-		$elm$html$Html$Events$stopPropagationOn,
-		'input',
-		A2(
-			$elm$json$Json$Decode$map,
-			$elm$html$Html$Events$alwaysStop,
-			A2($elm$json$Json$Decode$map, tagger, $elm$html$Html$Events$targetValue)));
-};
-var $elm$core$String$toInt = _String_toInt;
-var $elm$html$Html$Attributes$type_ = $elm$html$Html$Attributes$stringProperty('type');
-var $elm$html$Html$Attributes$value = $elm$html$Html$Attributes$stringProperty('value');
-var $elm$browser$Debugger$Main$viewPlayButton = function (playing) {
-	return A2(
-		$elm$html$Html$button,
-		_List_fromArray(
-			[
-				A2($elm$html$Html$Attributes$style, 'background', '#1293D8'),
-				A2($elm$html$Html$Attributes$style, 'border', 'none'),
-				A2($elm$html$Html$Attributes$style, 'color', 'white'),
-				A2($elm$html$Html$Attributes$style, 'cursor', 'pointer'),
-				A2($elm$html$Html$Attributes$style, 'width', '36px'),
-				A2($elm$html$Html$Attributes$style, 'height', '36px'),
-				$elm$html$Html$Events$onClick($elm$browser$Debugger$Main$Resume)
-			]),
-		_List_fromArray(
-			[
-				playing ? $elm$browser$Debugger$Main$icon('M2 2h4v12h-4v-12z M10 2h4v12h-4v-12z') : $elm$browser$Debugger$Main$icon('M2 2l12 7l-12 7z')
-			]));
-};
-var $elm$browser$Debugger$Main$viewHistorySlider = F2(
-	function (history, maybeIndex) {
-		var lastIndex = $elm$browser$Debugger$History$size(history) - 1;
-		var selectedIndex = A2($elm$core$Maybe$withDefault, lastIndex, maybeIndex);
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-					A2($elm$html$Html$Attributes$style, 'flex-direction', 'row'),
-					A2($elm$html$Html$Attributes$style, 'align-items', 'center'),
-					A2($elm$html$Html$Attributes$style, 'width', '100%'),
-					A2($elm$html$Html$Attributes$style, 'height', '36px'),
-					A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(50, 50, 50)')
-				]),
-			_List_fromArray(
-				[
-					A2(
-					$elm$html$Html$Lazy$lazy,
-					$elm$browser$Debugger$Main$viewPlayButton,
-					$elm$browser$Debugger$Main$isPlaying(maybeIndex)),
-					A2(
-					$elm$html$Html$input,
-					_List_fromArray(
-						[
-							$elm$html$Html$Attributes$type_('range'),
-							A2($elm$html$Html$Attributes$style, 'width', 'calc(100% - 56px)'),
-							A2($elm$html$Html$Attributes$style, 'height', '36px'),
-							A2($elm$html$Html$Attributes$style, 'margin', '0 10px'),
-							$elm$html$Html$Attributes$min('0'),
-							$elm$html$Html$Attributes$max(
-							$elm$core$String$fromInt(lastIndex)),
-							$elm$html$Html$Attributes$value(
-							$elm$core$String$fromInt(selectedIndex)),
-							$elm$html$Html$Events$onInput(
-							A2(
-								$elm$core$Basics$composeR,
-								$elm$core$String$toInt,
-								A2(
-									$elm$core$Basics$composeR,
-									$elm$core$Maybe$withDefault(lastIndex),
-									$elm$browser$Debugger$Main$SliderJump)))
-						]),
-					_List_Nil)
-				]));
-	});
-var $elm$browser$Debugger$Main$viewHistory = F3(
-	function (maybeIndex, history, layout) {
-		var block = $elm$browser$Debugger$Main$toMouseBlocker(layout);
-		var _v0 = $elm$browser$Debugger$Main$toHistoryPercents(layout);
-		var w = _v0.a;
-		var h = _v0.b;
-		return A2(
-			$elm$html$Html$div,
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'width', w),
-					A2($elm$html$Html$Attributes$style, 'height', h),
-					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-					A2($elm$html$Html$Attributes$style, 'flex-direction', 'column'),
-					A2($elm$html$Html$Attributes$style, 'color', '#DDDDDD'),
-					A2($elm$html$Html$Attributes$style, 'background-color', 'rgb(61, 61, 61)'),
-					A2($elm$html$Html$Attributes$style, 'pointer-events', block),
-					A2($elm$html$Html$Attributes$style, 'user-select', block)
-				]),
-			_List_fromArray(
-				[
-					A2($elm$browser$Debugger$Main$viewHistorySlider, history, maybeIndex),
-					A2(
-					$elm$html$Html$map,
-					$elm$browser$Debugger$Main$Jump,
-					A2($elm$browser$Debugger$History$view, maybeIndex, history)),
-					A2($elm$html$Html$Lazy$lazy, $elm$browser$Debugger$Main$viewHistoryOptions, layout)
-				]));
-	});
-var $elm$browser$Debugger$Main$popoutView = function (model) {
-	var maybeIndex = function () {
-		var _v0 = model.state;
-		if (_v0.$ === 'Running') {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			var index = _v0.a;
-			return $elm$core$Maybe$Just(index);
-		}
-	}();
-	var historyToRender = $elm$browser$Debugger$Main$cachedHistory(model);
-	return A3(
-		$elm$html$Html$node,
-		'body',
-		_Utils_ap(
-			$elm$browser$Debugger$Main$toDragListeners(model.layout),
-			_List_fromArray(
-				[
-					A2($elm$html$Html$Attributes$style, 'margin', '0'),
-					A2($elm$html$Html$Attributes$style, 'padding', '0'),
-					A2($elm$html$Html$Attributes$style, 'width', '100%'),
-					A2($elm$html$Html$Attributes$style, 'height', '100%'),
-					A2($elm$html$Html$Attributes$style, 'font-family', 'monospace'),
-					A2($elm$html$Html$Attributes$style, 'display', 'flex'),
-					A2(
-					$elm$html$Html$Attributes$style,
-					'flex-direction',
-					$elm$browser$Debugger$Main$toFlexDirection(model.layout))
-				])),
-		_List_fromArray(
-			[
-				A3($elm$browser$Debugger$Main$viewHistory, maybeIndex, historyToRender, model.layout),
-				$elm$browser$Debugger$Main$viewDragZone(model.layout),
-				A3($elm$browser$Debugger$Main$viewExpando, model.expandoMsg, model.expandoModel, model.layout)
-			]));
-};
-var $elm$browser$Debugger$Overlay$BlockAll = {$: 'BlockAll'};
-var $elm$browser$Debugger$Overlay$toBlockerType = F2(
-	function (isPaused, state) {
-		switch (state.$) {
-			case 'None':
-				return isPaused ? $elm$browser$Debugger$Overlay$BlockAll : $elm$browser$Debugger$Overlay$BlockNone;
-			case 'BadMetadata':
-				return $elm$browser$Debugger$Overlay$BlockMost;
-			case 'BadImport':
-				return $elm$browser$Debugger$Overlay$BlockMost;
-			default:
-				return $elm$browser$Debugger$Overlay$BlockMost;
-		}
-	});
-var $elm$browser$Debugger$Main$toBlockerType = function (model) {
-	return A2(
-		$elm$browser$Debugger$Overlay$toBlockerType,
-		$elm$browser$Debugger$Main$isPaused(model.state),
-		model.overlay);
-};
-var $elm$browser$Debugger$Main$Horizontal = F3(
-	function (a, b, c) {
-		return {$: 'Horizontal', a: a, b: b, c: c};
-	});
-var $elm$browser$Debugger$Main$Running = function (a) {
-	return {$: 'Running', a: a};
-};
-var $elm$browser$Debugger$Main$Static = {$: 'Static'};
-var $elm$browser$Debugger$Metadata$Error = F2(
-	function (message, problems) {
-		return {message: message, problems: problems};
-	});
-var $elm$json$Json$Decode$decodeValue = _Json_run;
-var $elm$browser$Debugger$Metadata$Metadata = F2(
-	function (versions, types) {
-		return {types: types, versions: versions};
-	});
-var $elm$browser$Debugger$Metadata$Types = F3(
-	function (message, aliases, unions) {
-		return {aliases: aliases, message: message, unions: unions};
-	});
-var $elm$browser$Debugger$Metadata$Alias = F2(
-	function (args, tipe) {
-		return {args: args, tipe: tipe};
-	});
-var $elm$json$Json$Decode$list = _Json_decodeList;
-var $elm$browser$Debugger$Metadata$decodeAlias = A3(
-	$elm$json$Json$Decode$map2,
-	$elm$browser$Debugger$Metadata$Alias,
-	A2(
-		$elm$json$Json$Decode$field,
-		'args',
-		$elm$json$Json$Decode$list($elm$json$Json$Decode$string)),
-	A2($elm$json$Json$Decode$field, 'type', $elm$json$Json$Decode$string));
-var $elm$browser$Debugger$Metadata$Union = F2(
-	function (args, tags) {
-		return {args: args, tags: tags};
-	});
-var $elm$core$Dict$fromList = function (assocs) {
-	return A3(
-		$elm$core$List$foldl,
-		F2(
-			function (_v0, dict) {
-				var key = _v0.a;
-				var value = _v0.b;
-				return A3($elm$core$Dict$insert, key, value, dict);
-			}),
-		$elm$core$Dict$empty,
-		assocs);
-};
-var $elm$json$Json$Decode$keyValuePairs = _Json_decodeKeyValuePairs;
-var $elm$json$Json$Decode$dict = function (decoder) {
-	return A2(
-		$elm$json$Json$Decode$map,
-		$elm$core$Dict$fromList,
-		$elm$json$Json$Decode$keyValuePairs(decoder));
-};
-var $elm$browser$Debugger$Metadata$decodeUnion = A3(
-	$elm$json$Json$Decode$map2,
-	$elm$browser$Debugger$Metadata$Union,
-	A2(
-		$elm$json$Json$Decode$field,
-		'args',
-		$elm$json$Json$Decode$list($elm$json$Json$Decode$string)),
-	A2(
-		$elm$json$Json$Decode$field,
-		'tags',
-		$elm$json$Json$Decode$dict(
-			$elm$json$Json$Decode$list($elm$json$Json$Decode$string))));
-var $elm$json$Json$Decode$map3 = _Json_map3;
-var $elm$browser$Debugger$Metadata$decodeTypes = A4(
-	$elm$json$Json$Decode$map3,
-	$elm$browser$Debugger$Metadata$Types,
-	A2($elm$json$Json$Decode$field, 'message', $elm$json$Json$Decode$string),
-	A2(
-		$elm$json$Json$Decode$field,
-		'aliases',
-		$elm$json$Json$Decode$dict($elm$browser$Debugger$Metadata$decodeAlias)),
-	A2(
-		$elm$json$Json$Decode$field,
-		'unions',
-		$elm$json$Json$Decode$dict($elm$browser$Debugger$Metadata$decodeUnion)));
-var $elm$browser$Debugger$Metadata$Versions = function (elm) {
-	return {elm: elm};
-};
-var $elm$browser$Debugger$Metadata$decodeVersions = A2(
-	$elm$json$Json$Decode$map,
-	$elm$browser$Debugger$Metadata$Versions,
-	A2($elm$json$Json$Decode$field, 'elm', $elm$json$Json$Decode$string));
-var $elm$browser$Debugger$Metadata$decoder = A3(
-	$elm$json$Json$Decode$map2,
-	$elm$browser$Debugger$Metadata$Metadata,
-	A2($elm$json$Json$Decode$field, 'versions', $elm$browser$Debugger$Metadata$decodeVersions),
-	A2($elm$json$Json$Decode$field, 'types', $elm$browser$Debugger$Metadata$decodeTypes));
-var $elm$browser$Debugger$Metadata$ProblemType = F2(
-	function (name, problems) {
-		return {name: name, problems: problems};
-	});
-var $elm$core$List$maybeCons = F3(
-	function (f, mx, xs) {
-		var _v0 = f(mx);
-		if (_v0.$ === 'Just') {
-			var x = _v0.a;
-			return A2($elm$core$List$cons, x, xs);
-		} else {
-			return xs;
-		}
-	});
-var $elm$core$List$filterMap = F2(
-	function (f, xs) {
-		return A3(
-			$elm$core$List$foldr,
-			$elm$core$List$maybeCons(f),
-			_List_Nil,
-			xs);
-	});
-var $elm$core$String$contains = _String_contains;
-var $elm$browser$Debugger$Metadata$hasProblem = F2(
-	function (tipe, _v0) {
-		var problem = _v0.a;
-		var token = _v0.b;
-		return A2($elm$core$String$contains, token, tipe) ? $elm$core$Maybe$Just(problem) : $elm$core$Maybe$Nothing;
-	});
-var $elm$browser$Debugger$Metadata$Decoder = {$: 'Decoder'};
-var $elm$browser$Debugger$Metadata$Function = {$: 'Function'};
-var $elm$browser$Debugger$Metadata$Process = {$: 'Process'};
-var $elm$browser$Debugger$Metadata$Program = {$: 'Program'};
-var $elm$browser$Debugger$Metadata$Request = {$: 'Request'};
-var $elm$browser$Debugger$Metadata$Socket = {$: 'Socket'};
-var $elm$browser$Debugger$Metadata$Task = {$: 'Task'};
-var $elm$browser$Debugger$Metadata$VirtualDom = {$: 'VirtualDom'};
-var $elm$browser$Debugger$Metadata$problemTable = _List_fromArray(
-	[
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Function, '->'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Decoder, 'Json.Decode.Decoder'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Task, 'Task.Task'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Process, 'Process.Id'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Socket, 'WebSocket.LowLevel.WebSocket'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Request, 'Http.Request'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$Program, 'Platform.Program'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$VirtualDom, 'VirtualDom.Node'),
-		_Utils_Tuple2($elm$browser$Debugger$Metadata$VirtualDom, 'VirtualDom.Attribute')
-	]);
-var $elm$browser$Debugger$Metadata$findProblems = function (tipe) {
-	return A2(
-		$elm$core$List$filterMap,
-		$elm$browser$Debugger$Metadata$hasProblem(tipe),
-		$elm$browser$Debugger$Metadata$problemTable);
-};
-var $elm$browser$Debugger$Metadata$collectBadAliases = F3(
-	function (name, _v0, list) {
-		var tipe = _v0.tipe;
-		var _v1 = $elm$browser$Debugger$Metadata$findProblems(tipe);
-		if (!_v1.b) {
-			return list;
-		} else {
-			var problems = _v1;
-			return A2(
-				$elm$core$List$cons,
-				A2($elm$browser$Debugger$Metadata$ProblemType, name, problems),
-				list);
-		}
-	});
-var $elm$core$List$append = F2(
-	function (xs, ys) {
-		if (!ys.b) {
-			return xs;
-		} else {
-			return A3($elm$core$List$foldr, $elm$core$List$cons, ys, xs);
-		}
-	});
-var $elm$core$List$concat = function (lists) {
-	return A3($elm$core$List$foldr, $elm$core$List$append, _List_Nil, lists);
-};
-var $elm$core$List$concatMap = F2(
-	function (f, list) {
-		return $elm$core$List$concat(
-			A2($elm$core$List$map, f, list));
-	});
-var $elm$core$Dict$values = function (dict) {
-	return A3(
-		$elm$core$Dict$foldr,
-		F3(
-			function (key, value, valueList) {
-				return A2($elm$core$List$cons, value, valueList);
-			}),
-		_List_Nil,
-		dict);
-};
-var $elm$browser$Debugger$Metadata$collectBadUnions = F3(
-	function (name, _v0, list) {
-		var tags = _v0.tags;
-		var _v1 = A2(
-			$elm$core$List$concatMap,
-			$elm$browser$Debugger$Metadata$findProblems,
-			$elm$core$List$concat(
-				$elm$core$Dict$values(tags)));
-		if (!_v1.b) {
-			return list;
-		} else {
-			var problems = _v1;
-			return A2(
-				$elm$core$List$cons,
-				A2($elm$browser$Debugger$Metadata$ProblemType, name, problems),
-				list);
-		}
-	});
-var $elm$core$Dict$foldl = F3(
-	function (func, acc, dict) {
-		foldl:
-		while (true) {
-			if (dict.$ === 'RBEmpty_elm_builtin') {
-				return acc;
-			} else {
-				var key = dict.b;
-				var value = dict.c;
-				var left = dict.d;
-				var right = dict.e;
-				var $temp$func = func,
-					$temp$acc = A3(
-					func,
-					key,
-					value,
-					A3($elm$core$Dict$foldl, func, acc, left)),
-					$temp$dict = right;
-				func = $temp$func;
-				acc = $temp$acc;
-				dict = $temp$dict;
-				continue foldl;
-			}
-		}
-	});
-var $elm$browser$Debugger$Metadata$isPortable = function (_v0) {
-	var types = _v0.types;
-	var badAliases = A3($elm$core$Dict$foldl, $elm$browser$Debugger$Metadata$collectBadAliases, _List_Nil, types.aliases);
-	var _v1 = A3($elm$core$Dict$foldl, $elm$browser$Debugger$Metadata$collectBadUnions, badAliases, types.unions);
-	if (!_v1.b) {
-		return $elm$core$Maybe$Nothing;
-	} else {
-		var problems = _v1;
-		return $elm$core$Maybe$Just(
-			A2($elm$browser$Debugger$Metadata$Error, types.message, problems));
-	}
-};
-var $elm$browser$Debugger$Metadata$decode = function (value) {
-	var _v0 = A2($elm$json$Json$Decode$decodeValue, $elm$browser$Debugger$Metadata$decoder, value);
-	if (_v0.$ === 'Err') {
-		return $elm$core$Result$Err(
-			A2($elm$browser$Debugger$Metadata$Error, 'The compiler is generating bad metadata. This is a compiler bug!', _List_Nil));
-	} else {
-		var metadata = _v0.a;
-		var _v1 = $elm$browser$Debugger$Metadata$isPortable(metadata);
-		if (_v1.$ === 'Nothing') {
-			return $elm$core$Result$Ok(metadata);
-		} else {
-			var error = _v1.a;
-			return $elm$core$Result$Err(error);
-		}
-	}
-};
-var $elm$browser$Debugger$History$History = F3(
-	function (snapshots, recent, numMessages) {
-		return {numMessages: numMessages, recent: recent, snapshots: snapshots};
-	});
-var $elm$browser$Debugger$History$RecentHistory = F3(
-	function (model, messages, numMessages) {
-		return {messages: messages, model: model, numMessages: numMessages};
-	});
-var $elm$browser$Debugger$History$empty = function (model) {
-	return A3(
-		$elm$browser$Debugger$History$History,
-		$elm$core$Array$empty,
-		A3($elm$browser$Debugger$History$RecentHistory, model, _List_Nil, 0),
-		0);
-};
-var $elm$core$Dict$map = F2(
-	function (func, dict) {
-		if (dict.$ === 'RBEmpty_elm_builtin') {
-			return $elm$core$Dict$RBEmpty_elm_builtin;
-		} else {
-			var color = dict.a;
-			var key = dict.b;
-			var value = dict.c;
-			var left = dict.d;
-			var right = dict.e;
-			return A5(
-				$elm$core$Dict$RBNode_elm_builtin,
-				color,
-				key,
-				A2(func, key, value),
-				A2($elm$core$Dict$map, func, left),
-				A2($elm$core$Dict$map, func, right));
-		}
-	});
-var $elm$core$Dict$sizeHelp = F2(
-	function (n, dict) {
-		sizeHelp:
-		while (true) {
-			if (dict.$ === 'RBEmpty_elm_builtin') {
-				return n;
-			} else {
-				var left = dict.d;
-				var right = dict.e;
-				var $temp$n = A2($elm$core$Dict$sizeHelp, n + 1, right),
-					$temp$dict = left;
-				n = $temp$n;
-				dict = $temp$dict;
-				continue sizeHelp;
-			}
-		}
-	});
-var $elm$core$Dict$size = function (dict) {
-	return A2($elm$core$Dict$sizeHelp, 0, dict);
-};
-var $elm$browser$Debugger$Expando$initHelp = F2(
-	function (isOuter, expando) {
-		switch (expando.$) {
-			case 'S':
-				return expando;
-			case 'Primitive':
-				return expando;
-			case 'Sequence':
-				var seqType = expando.a;
-				var isClosed = expando.b;
-				var items = expando.c;
-				return isOuter ? A3(
-					$elm$browser$Debugger$Expando$Sequence,
-					seqType,
-					false,
-					A2(
-						$elm$core$List$map,
-						$elm$browser$Debugger$Expando$initHelp(false),
-						items)) : (($elm$core$List$length(items) <= 8) ? A3($elm$browser$Debugger$Expando$Sequence, seqType, false, items) : expando);
-			case 'Dictionary':
-				var isClosed = expando.a;
-				var keyValuePairs = expando.b;
-				return isOuter ? A2(
-					$elm$browser$Debugger$Expando$Dictionary,
-					false,
-					A2(
-						$elm$core$List$map,
-						function (_v1) {
-							var k = _v1.a;
-							var v = _v1.b;
-							return _Utils_Tuple2(
-								k,
-								A2($elm$browser$Debugger$Expando$initHelp, false, v));
-						},
-						keyValuePairs)) : (($elm$core$List$length(keyValuePairs) <= 8) ? A2($elm$browser$Debugger$Expando$Dictionary, false, keyValuePairs) : expando);
-			case 'Record':
-				var isClosed = expando.a;
-				var entries = expando.b;
-				return isOuter ? A2(
-					$elm$browser$Debugger$Expando$Record,
-					false,
-					A2(
-						$elm$core$Dict$map,
-						F2(
-							function (_v2, v) {
-								return A2($elm$browser$Debugger$Expando$initHelp, false, v);
-							}),
-						entries)) : (($elm$core$Dict$size(entries) <= 4) ? A2($elm$browser$Debugger$Expando$Record, false, entries) : expando);
-			default:
-				var maybeName = expando.a;
-				var isClosed = expando.b;
-				var args = expando.c;
-				return isOuter ? A3(
-					$elm$browser$Debugger$Expando$Constructor,
-					maybeName,
-					false,
-					A2(
-						$elm$core$List$map,
-						$elm$browser$Debugger$Expando$initHelp(false),
-						args)) : (($elm$core$List$length(args) <= 4) ? A3($elm$browser$Debugger$Expando$Constructor, maybeName, false, args) : expando);
-		}
-	});
-var $elm$browser$Debugger$Expando$init = function (value) {
-	return A2(
-		$elm$browser$Debugger$Expando$initHelp,
-		true,
-		_Debugger_init(value));
-};
-var $elm$core$Platform$Cmd$map = _Platform_map;
-var $elm$browser$Debugger$Overlay$None = {$: 'None'};
-var $elm$browser$Debugger$Overlay$none = $elm$browser$Debugger$Overlay$None;
-var $elm$browser$Debugger$Main$wrapInit = F4(
-	function (metadata, popout, init, flags) {
-		var _v0 = init(flags);
-		var userModel = _v0.a;
-		var userCommands = _v0.b;
-		return _Utils_Tuple2(
-			{
-				expandoModel: $elm$browser$Debugger$Expando$init(userModel),
-				expandoMsg: $elm$browser$Debugger$Expando$init(_Utils_Tuple0),
-				history: $elm$browser$Debugger$History$empty(userModel),
-				layout: A3($elm$browser$Debugger$Main$Horizontal, $elm$browser$Debugger$Main$Static, 0.3, 0.5),
-				metadata: $elm$browser$Debugger$Metadata$decode(metadata),
-				overlay: $elm$browser$Debugger$Overlay$none,
-				popout: popout,
-				state: $elm$browser$Debugger$Main$Running(userModel)
-			},
-			A2($elm$core$Platform$Cmd$map, $elm$browser$Debugger$Main$UserMsg, userCommands));
-	});
-var $elm$browser$Debugger$Main$getLatestModel = function (state) {
-	if (state.$ === 'Running') {
-		var model = state.a;
-		return model;
-	} else {
-		var model = state.c;
-		return model;
-	}
-};
-var $elm$core$Platform$Sub$map = _Platform_map;
-var $elm$browser$Debugger$Main$wrapSubs = F2(
-	function (subscriptions, model) {
-		return A2(
-			$elm$core$Platform$Sub$map,
-			$elm$browser$Debugger$Main$UserMsg,
-			subscriptions(
-				$elm$browser$Debugger$Main$getLatestModel(model.state)));
-	});
-var $elm$browser$Debugger$Main$Moving = {$: 'Moving'};
-var $elm$browser$Debugger$Main$Paused = F5(
-	function (a, b, c, d, e) {
-		return {$: 'Paused', a: a, b: b, c: c, d: d, e: e};
-	});
-var $elm$browser$Debugger$History$Snapshot = F2(
-	function (model, messages) {
-		return {messages: messages, model: model};
-	});
-var $elm$browser$Debugger$History$addRecent = F3(
-	function (msg, newModel, _v0) {
-		var model = _v0.model;
-		var messages = _v0.messages;
-		var numMessages = _v0.numMessages;
-		return _Utils_eq(numMessages, $elm$browser$Debugger$History$maxSnapshotSize) ? _Utils_Tuple2(
-			$elm$core$Maybe$Just(
-				A2(
-					$elm$browser$Debugger$History$Snapshot,
-					model,
-					$elm$core$Array$fromList(messages))),
-			A3(
-				$elm$browser$Debugger$History$RecentHistory,
-				newModel,
-				_List_fromArray(
-					[msg]),
-				1)) : _Utils_Tuple2(
-			$elm$core$Maybe$Nothing,
-			A3(
-				$elm$browser$Debugger$History$RecentHistory,
-				model,
-				A2($elm$core$List$cons, msg, messages),
-				numMessages + 1));
-	});
-var $elm$core$Elm$JsArray$push = _JsArray_push;
-var $elm$core$Elm$JsArray$singleton = _JsArray_singleton;
-var $elm$core$Array$insertTailInTree = F4(
-	function (shift, index, tail, tree) {
-		var pos = $elm$core$Array$bitMask & (index >>> shift);
-		if (_Utils_cmp(
-			pos,
-			$elm$core$Elm$JsArray$length(tree)) > -1) {
-			if (shift === 5) {
-				return A2(
-					$elm$core$Elm$JsArray$push,
-					$elm$core$Array$Leaf(tail),
-					tree);
-			} else {
-				var newSub = $elm$core$Array$SubTree(
-					A4($elm$core$Array$insertTailInTree, shift - $elm$core$Array$shiftStep, index, tail, $elm$core$Elm$JsArray$empty));
-				return A2($elm$core$Elm$JsArray$push, newSub, tree);
-			}
-		} else {
-			var value = A2($elm$core$Elm$JsArray$unsafeGet, pos, tree);
-			if (value.$ === 'SubTree') {
-				var subTree = value.a;
-				var newSub = $elm$core$Array$SubTree(
-					A4($elm$core$Array$insertTailInTree, shift - $elm$core$Array$shiftStep, index, tail, subTree));
-				return A3($elm$core$Elm$JsArray$unsafeSet, pos, newSub, tree);
-			} else {
-				var newSub = $elm$core$Array$SubTree(
-					A4(
-						$elm$core$Array$insertTailInTree,
-						shift - $elm$core$Array$shiftStep,
-						index,
-						tail,
-						$elm$core$Elm$JsArray$singleton(value)));
-				return A3($elm$core$Elm$JsArray$unsafeSet, pos, newSub, tree);
-			}
-		}
-	});
-var $elm$core$Array$unsafeReplaceTail = F2(
-	function (newTail, _v0) {
-		var len = _v0.a;
-		var startShift = _v0.b;
-		var tree = _v0.c;
-		var tail = _v0.d;
-		var originalTailLen = $elm$core$Elm$JsArray$length(tail);
-		var newTailLen = $elm$core$Elm$JsArray$length(newTail);
-		var newArrayLen = len + (newTailLen - originalTailLen);
-		if (_Utils_eq(newTailLen, $elm$core$Array$branchFactor)) {
-			var overflow = _Utils_cmp(newArrayLen >>> $elm$core$Array$shiftStep, 1 << startShift) > 0;
-			if (overflow) {
-				var newShift = startShift + $elm$core$Array$shiftStep;
-				var newTree = A4(
-					$elm$core$Array$insertTailInTree,
-					newShift,
-					len,
-					newTail,
-					$elm$core$Elm$JsArray$singleton(
-						$elm$core$Array$SubTree(tree)));
-				return A4($elm$core$Array$Array_elm_builtin, newArrayLen, newShift, newTree, $elm$core$Elm$JsArray$empty);
-			} else {
-				return A4(
-					$elm$core$Array$Array_elm_builtin,
-					newArrayLen,
-					startShift,
-					A4($elm$core$Array$insertTailInTree, startShift, len, newTail, tree),
-					$elm$core$Elm$JsArray$empty);
-			}
-		} else {
-			return A4($elm$core$Array$Array_elm_builtin, newArrayLen, startShift, tree, newTail);
-		}
-	});
-var $elm$core$Array$push = F2(
-	function (a, array) {
-		var tail = array.d;
-		return A2(
-			$elm$core$Array$unsafeReplaceTail,
-			A2($elm$core$Elm$JsArray$push, a, tail),
-			array);
-	});
-var $elm$browser$Debugger$History$add = F3(
-	function (msg, model, _v0) {
-		var snapshots = _v0.snapshots;
-		var recent = _v0.recent;
-		var numMessages = _v0.numMessages;
-		var _v1 = A3($elm$browser$Debugger$History$addRecent, msg, model, recent);
-		if (_v1.a.$ === 'Just') {
-			var snapshot = _v1.a.a;
-			var newRecent = _v1.b;
-			return A3(
-				$elm$browser$Debugger$History$History,
-				A2($elm$core$Array$push, snapshot, snapshots),
-				newRecent,
-				numMessages + 1);
-		} else {
-			var _v2 = _v1.a;
-			var newRecent = _v1.b;
-			return A3($elm$browser$Debugger$History$History, snapshots, newRecent, numMessages + 1);
-		}
-	});
-var $elm$core$Basics$always = F2(
-	function (a, _v0) {
-		return a;
-	});
-var $elm$browser$Debugger$Overlay$BadImport = function (a) {
-	return {$: 'BadImport', a: a};
-};
-var $elm$browser$Debugger$Overlay$RiskyImport = F2(
-	function (a, b) {
-		return {$: 'RiskyImport', a: a, b: b};
-	});
-var $elm$browser$Debugger$Report$VersionChanged = F2(
-	function (a, b) {
-		return {$: 'VersionChanged', a: a, b: b};
-	});
-var $elm$browser$Debugger$Report$MessageChanged = F2(
-	function (a, b) {
-		return {$: 'MessageChanged', a: a, b: b};
-	});
-var $elm$browser$Debugger$Report$SomethingChanged = function (a) {
-	return {$: 'SomethingChanged', a: a};
-};
-var $elm$browser$Debugger$Report$AliasChange = function (a) {
-	return {$: 'AliasChange', a: a};
-};
-var $elm$browser$Debugger$Metadata$checkAlias = F4(
-	function (name, old, _new, changes) {
-		return (_Utils_eq(old.tipe, _new.tipe) && _Utils_eq(old.args, _new.args)) ? changes : A2(
-			$elm$core$List$cons,
-			$elm$browser$Debugger$Report$AliasChange(name),
-			changes);
-	});
-var $elm$browser$Debugger$Report$UnionChange = F2(
-	function (a, b) {
-		return {$: 'UnionChange', a: a, b: b};
-	});
-var $elm$browser$Debugger$Metadata$addTag = F3(
-	function (tag, _v0, changes) {
-		return _Utils_update(
-			changes,
-			{
-				added: A2($elm$core$List$cons, tag, changes.added)
-			});
-	});
-var $elm$browser$Debugger$Metadata$checkTag = F4(
-	function (tag, old, _new, changes) {
-		return _Utils_eq(old, _new) ? changes : _Utils_update(
-			changes,
-			{
-				changed: A2($elm$core$List$cons, tag, changes.changed)
-			});
-	});
-var $elm$browser$Debugger$Report$TagChanges = F4(
-	function (removed, changed, added, argsMatch) {
-		return {added: added, argsMatch: argsMatch, changed: changed, removed: removed};
-	});
-var $elm$browser$Debugger$Report$emptyTagChanges = function (argsMatch) {
-	return A4($elm$browser$Debugger$Report$TagChanges, _List_Nil, _List_Nil, _List_Nil, argsMatch);
-};
-var $elm$browser$Debugger$Report$hasTagChanges = function (tagChanges) {
-	return _Utils_eq(
-		tagChanges,
-		A4($elm$browser$Debugger$Report$TagChanges, _List_Nil, _List_Nil, _List_Nil, true));
-};
-var $elm$core$Dict$merge = F6(
-	function (leftStep, bothStep, rightStep, leftDict, rightDict, initialResult) {
-		var stepState = F3(
-			function (rKey, rValue, _v0) {
-				stepState:
-				while (true) {
-					var list = _v0.a;
-					var result = _v0.b;
-					if (!list.b) {
-						return _Utils_Tuple2(
-							list,
-							A3(rightStep, rKey, rValue, result));
-					} else {
-						var _v2 = list.a;
-						var lKey = _v2.a;
-						var lValue = _v2.b;
-						var rest = list.b;
-						if (_Utils_cmp(lKey, rKey) < 0) {
-							var $temp$rKey = rKey,
-								$temp$rValue = rValue,
-								$temp$_v0 = _Utils_Tuple2(
-								rest,
-								A3(leftStep, lKey, lValue, result));
-							rKey = $temp$rKey;
-							rValue = $temp$rValue;
-							_v0 = $temp$_v0;
-							continue stepState;
-						} else {
-							if (_Utils_cmp(lKey, rKey) > 0) {
-								return _Utils_Tuple2(
-									list,
-									A3(rightStep, rKey, rValue, result));
-							} else {
-								return _Utils_Tuple2(
-									rest,
-									A4(bothStep, lKey, lValue, rValue, result));
-							}
-						}
-					}
-				}
-			});
-		var _v3 = A3(
-			$elm$core$Dict$foldl,
-			stepState,
-			_Utils_Tuple2(
-				$elm$core$Dict$toList(leftDict),
-				initialResult),
-			rightDict);
-		var leftovers = _v3.a;
-		var intermediateResult = _v3.b;
-		return A3(
-			$elm$core$List$foldl,
-			F2(
-				function (_v4, result) {
-					var k = _v4.a;
-					var v = _v4.b;
-					return A3(leftStep, k, v, result);
-				}),
-			intermediateResult,
-			leftovers);
-	});
-var $elm$browser$Debugger$Metadata$removeTag = F3(
-	function (tag, _v0, changes) {
-		return _Utils_update(
-			changes,
-			{
-				removed: A2($elm$core$List$cons, tag, changes.removed)
-			});
-	});
-var $elm$browser$Debugger$Metadata$checkUnion = F4(
-	function (name, old, _new, changes) {
-		var tagChanges = A6(
-			$elm$core$Dict$merge,
-			$elm$browser$Debugger$Metadata$removeTag,
-			$elm$browser$Debugger$Metadata$checkTag,
-			$elm$browser$Debugger$Metadata$addTag,
-			old.tags,
-			_new.tags,
-			$elm$browser$Debugger$Report$emptyTagChanges(
-				_Utils_eq(old.args, _new.args)));
-		return $elm$browser$Debugger$Report$hasTagChanges(tagChanges) ? changes : A2(
-			$elm$core$List$cons,
-			A2($elm$browser$Debugger$Report$UnionChange, name, tagChanges),
-			changes);
-	});
-var $elm$browser$Debugger$Metadata$ignore = F3(
-	function (key, value, report) {
-		return report;
-	});
-var $elm$browser$Debugger$Metadata$checkTypes = F2(
-	function (old, _new) {
-		return (!_Utils_eq(old.message, _new.message)) ? A2($elm$browser$Debugger$Report$MessageChanged, old.message, _new.message) : $elm$browser$Debugger$Report$SomethingChanged(
-			A6(
-				$elm$core$Dict$merge,
-				$elm$browser$Debugger$Metadata$ignore,
-				$elm$browser$Debugger$Metadata$checkUnion,
-				$elm$browser$Debugger$Metadata$ignore,
-				old.unions,
-				_new.unions,
-				A6($elm$core$Dict$merge, $elm$browser$Debugger$Metadata$ignore, $elm$browser$Debugger$Metadata$checkAlias, $elm$browser$Debugger$Metadata$ignore, old.aliases, _new.aliases, _List_Nil)));
-	});
-var $elm$browser$Debugger$Metadata$check = F2(
-	function (old, _new) {
-		return (!_Utils_eq(old.versions.elm, _new.versions.elm)) ? A2($elm$browser$Debugger$Report$VersionChanged, old.versions.elm, _new.versions.elm) : A2($elm$browser$Debugger$Metadata$checkTypes, old.types, _new.types);
-	});
-var $elm$browser$Debugger$Report$CorruptHistory = {$: 'CorruptHistory'};
-var $elm$browser$Debugger$Overlay$corruptImport = $elm$browser$Debugger$Overlay$BadImport($elm$browser$Debugger$Report$CorruptHistory);
-var $elm$json$Json$Decode$decodeString = _Json_runOnString;
-var $elm$browser$Debugger$Report$Fine = {$: 'Fine'};
-var $elm$browser$Debugger$Report$Impossible = {$: 'Impossible'};
-var $elm$browser$Debugger$Report$Risky = {$: 'Risky'};
-var $elm$core$Basics$not = _Basics_not;
-var $elm$core$List$isEmpty = function (xs) {
-	if (!xs.b) {
-		return true;
-	} else {
-		return false;
-	}
-};
-var $elm$browser$Debugger$Report$some = function (list) {
-	return !$elm$core$List$isEmpty(list);
-};
-var $elm$browser$Debugger$Report$evaluateChange = function (change) {
-	if (change.$ === 'AliasChange') {
-		return $elm$browser$Debugger$Report$Impossible;
-	} else {
-		var removed = change.b.removed;
-		var changed = change.b.changed;
-		var added = change.b.added;
-		var argsMatch = change.b.argsMatch;
-		return ((!argsMatch) || ($elm$browser$Debugger$Report$some(changed) || $elm$browser$Debugger$Report$some(removed))) ? $elm$browser$Debugger$Report$Impossible : ($elm$browser$Debugger$Report$some(added) ? $elm$browser$Debugger$Report$Risky : $elm$browser$Debugger$Report$Fine);
-	}
-};
-var $elm$browser$Debugger$Report$worstCase = F2(
-	function (status, statusList) {
-		worstCase:
-		while (true) {
-			if (!statusList.b) {
-				return status;
-			} else {
-				switch (statusList.a.$) {
-					case 'Impossible':
-						var _v1 = statusList.a;
-						return $elm$browser$Debugger$Report$Impossible;
-					case 'Risky':
-						var _v2 = statusList.a;
-						var rest = statusList.b;
-						var $temp$status = $elm$browser$Debugger$Report$Risky,
-							$temp$statusList = rest;
-						status = $temp$status;
-						statusList = $temp$statusList;
-						continue worstCase;
-					default:
-						var _v3 = statusList.a;
-						var rest = statusList.b;
-						var $temp$status = status,
-							$temp$statusList = rest;
-						status = $temp$status;
-						statusList = $temp$statusList;
-						continue worstCase;
-				}
-			}
-		}
-	});
-var $elm$browser$Debugger$Report$evaluate = function (report) {
-	switch (report.$) {
-		case 'CorruptHistory':
-			return $elm$browser$Debugger$Report$Impossible;
-		case 'VersionChanged':
-			return $elm$browser$Debugger$Report$Impossible;
-		case 'MessageChanged':
-			return $elm$browser$Debugger$Report$Impossible;
-		default:
-			var changes = report.a;
-			return A2(
-				$elm$browser$Debugger$Report$worstCase,
-				$elm$browser$Debugger$Report$Fine,
-				A2($elm$core$List$map, $elm$browser$Debugger$Report$evaluateChange, changes));
-	}
-};
-var $elm$json$Json$Decode$value = _Json_decodeValue;
-var $elm$browser$Debugger$Overlay$uploadDecoder = A3(
-	$elm$json$Json$Decode$map2,
-	F2(
-		function (x, y) {
-			return _Utils_Tuple2(x, y);
-		}),
-	A2($elm$json$Json$Decode$field, 'metadata', $elm$browser$Debugger$Metadata$decoder),
-	A2($elm$json$Json$Decode$field, 'history', $elm$json$Json$Decode$value));
-var $elm$browser$Debugger$Overlay$assessImport = F2(
-	function (metadata, jsonString) {
-		var _v0 = A2($elm$json$Json$Decode$decodeString, $elm$browser$Debugger$Overlay$uploadDecoder, jsonString);
-		if (_v0.$ === 'Err') {
-			return $elm$core$Result$Err($elm$browser$Debugger$Overlay$corruptImport);
-		} else {
-			var _v1 = _v0.a;
-			var foreignMetadata = _v1.a;
-			var rawHistory = _v1.b;
-			var report = A2($elm$browser$Debugger$Metadata$check, foreignMetadata, metadata);
-			var _v2 = $elm$browser$Debugger$Report$evaluate(report);
-			switch (_v2.$) {
-				case 'Impossible':
-					return $elm$core$Result$Err(
-						$elm$browser$Debugger$Overlay$BadImport(report));
-				case 'Risky':
-					return $elm$core$Result$Err(
-						A2($elm$browser$Debugger$Overlay$RiskyImport, report, rawHistory));
-				default:
-					return $elm$core$Result$Ok(rawHistory);
-			}
-		}
-	});
-var $elm$core$Platform$Cmd$batch = _Platform_batch;
-var $elm$browser$Debugger$Overlay$close = F2(
-	function (msg, state) {
-		switch (state.$) {
-			case 'None':
-				return $elm$core$Maybe$Nothing;
-			case 'BadMetadata':
-				return $elm$core$Maybe$Nothing;
-			case 'BadImport':
-				return $elm$core$Maybe$Nothing;
-			default:
-				var rawHistory = state.b;
-				if (msg.$ === 'Cancel') {
-					return $elm$core$Maybe$Nothing;
-				} else {
-					return $elm$core$Maybe$Just(rawHistory);
-				}
-		}
-	});
-var $elm$browser$Debugger$History$elmToJs = A2($elm$core$Basics$composeR, _Json_wrap, _Debugger_unsafeCoerce);
-var $elm$browser$Debugger$History$encodeHelp = F2(
-	function (snapshot, allMessages) {
-		return A3($elm$core$Array$foldl, $elm$core$List$cons, allMessages, snapshot.messages);
-	});
-var $elm$json$Json$Encode$list = F2(
-	function (func, entries) {
-		return _Json_wrap(
-			A3(
-				$elm$core$List$foldl,
-				_Json_addEntry(func),
-				_Json_emptyArray(_Utils_Tuple0),
-				entries));
-	});
-var $elm$browser$Debugger$History$encode = function (_v0) {
-	var snapshots = _v0.snapshots;
-	var recent = _v0.recent;
-	return A2(
-		$elm$json$Json$Encode$list,
-		$elm$browser$Debugger$History$elmToJs,
-		A3(
-			$elm$core$Array$foldr,
-			$elm$browser$Debugger$History$encodeHelp,
-			$elm$core$List$reverse(recent.messages),
-			snapshots));
-};
-var $elm$json$Json$Encode$object = function (pairs) {
-	return _Json_wrap(
-		A3(
-			$elm$core$List$foldl,
-			F2(
-				function (_v0, obj) {
-					var k = _v0.a;
-					var v = _v0.b;
-					return A3(_Json_addField, k, v, obj);
-				}),
-			_Json_emptyObject(_Utils_Tuple0),
-			pairs));
-};
-var $elm$browser$Debugger$Metadata$encodeAlias = function (_v0) {
-	var args = _v0.args;
-	var tipe = _v0.tipe;
-	return $elm$json$Json$Encode$object(
-		_List_fromArray(
-			[
-				_Utils_Tuple2(
-				'args',
-				A2($elm$json$Json$Encode$list, $elm$json$Json$Encode$string, args)),
-				_Utils_Tuple2(
-				'type',
-				$elm$json$Json$Encode$string(tipe))
-			]));
-};
-var $elm$browser$Debugger$Metadata$encodeDict = F2(
-	function (f, dict) {
-		return $elm$json$Json$Encode$object(
-			$elm$core$Dict$toList(
-				A2(
-					$elm$core$Dict$map,
-					F2(
-						function (key, value) {
-							return f(value);
-						}),
-					dict)));
-	});
-var $elm$browser$Debugger$Metadata$encodeUnion = function (_v0) {
-	var args = _v0.args;
-	var tags = _v0.tags;
-	return $elm$json$Json$Encode$object(
-		_List_fromArray(
-			[
-				_Utils_Tuple2(
-				'args',
-				A2($elm$json$Json$Encode$list, $elm$json$Json$Encode$string, args)),
-				_Utils_Tuple2(
-				'tags',
-				A2(
-					$elm$browser$Debugger$Metadata$encodeDict,
-					$elm$json$Json$Encode$list($elm$json$Json$Encode$string),
-					tags))
-			]));
-};
-var $elm$browser$Debugger$Metadata$encodeTypes = function (_v0) {
-	var message = _v0.message;
-	var unions = _v0.unions;
-	var aliases = _v0.aliases;
-	return $elm$json$Json$Encode$object(
-		_List_fromArray(
-			[
-				_Utils_Tuple2(
-				'message',
-				$elm$json$Json$Encode$string(message)),
-				_Utils_Tuple2(
-				'aliases',
-				A2($elm$browser$Debugger$Metadata$encodeDict, $elm$browser$Debugger$Metadata$encodeAlias, aliases)),
-				_Utils_Tuple2(
-				'unions',
-				A2($elm$browser$Debugger$Metadata$encodeDict, $elm$browser$Debugger$Metadata$encodeUnion, unions))
-			]));
-};
-var $elm$browser$Debugger$Metadata$encodeVersions = function (_v0) {
-	var elm = _v0.elm;
-	return $elm$json$Json$Encode$object(
-		_List_fromArray(
-			[
-				_Utils_Tuple2(
-				'elm',
-				$elm$json$Json$Encode$string(elm))
-			]));
-};
-var $elm$browser$Debugger$Metadata$encode = function (_v0) {
-	var versions = _v0.versions;
-	var types = _v0.types;
-	return $elm$json$Json$Encode$object(
-		_List_fromArray(
-			[
-				_Utils_Tuple2(
-				'versions',
-				$elm$browser$Debugger$Metadata$encodeVersions(versions)),
-				_Utils_Tuple2(
-				'types',
-				$elm$browser$Debugger$Metadata$encodeTypes(types))
-			]));
-};
-var $elm$core$Basics$identity = function (x) {
-	return x;
-};
-var $elm$core$Task$Perform = function (a) {
-	return {$: 'Perform', a: a};
-};
-var $elm$core$Task$succeed = _Scheduler_succeed;
-var $elm$core$Task$init = $elm$core$Task$succeed(_Utils_Tuple0);
-var $elm$core$Task$andThen = _Scheduler_andThen;
-var $elm$core$Task$map = F2(
-	function (func, taskA) {
-		return A2(
-			$elm$core$Task$andThen,
-			function (a) {
-				return $elm$core$Task$succeed(
-					func(a));
-			},
-			taskA);
-	});
-var $elm$core$Task$map2 = F3(
-	function (func, taskA, taskB) {
-		return A2(
-			$elm$core$Task$andThen,
-			function (a) {
-				return A2(
-					$elm$core$Task$andThen,
-					function (b) {
-						return $elm$core$Task$succeed(
-							A2(func, a, b));
-					},
-					taskB);
-			},
-			taskA);
-	});
-var $elm$core$Task$sequence = function (tasks) {
-	return A3(
-		$elm$core$List$foldr,
-		$elm$core$Task$map2($elm$core$List$cons),
-		$elm$core$Task$succeed(_List_Nil),
-		tasks);
-};
-var $elm$core$Platform$sendToApp = _Platform_sendToApp;
-var $elm$core$Task$spawnCmd = F2(
-	function (router, _v0) {
-		var task = _v0.a;
-		return _Scheduler_spawn(
-			A2(
-				$elm$core$Task$andThen,
-				$elm$core$Platform$sendToApp(router),
-				task));
-	});
-var $elm$core$Task$onEffects = F3(
-	function (router, commands, state) {
-		return A2(
-			$elm$core$Task$map,
-			function (_v0) {
-				return _Utils_Tuple0;
-			},
-			$elm$core$Task$sequence(
-				A2(
-					$elm$core$List$map,
-					$elm$core$Task$spawnCmd(router),
-					commands)));
-	});
-var $elm$core$Task$onSelfMsg = F3(
-	function (_v0, _v1, _v2) {
-		return $elm$core$Task$succeed(_Utils_Tuple0);
-	});
-var $elm$core$Task$cmdMap = F2(
-	function (tagger, _v0) {
-		var task = _v0.a;
-		return $elm$core$Task$Perform(
-			A2($elm$core$Task$map, tagger, task));
-	});
-_Platform_effectManagers['Task'] = _Platform_createManager($elm$core$Task$init, $elm$core$Task$onEffects, $elm$core$Task$onSelfMsg, $elm$core$Task$cmdMap);
-var $elm$core$Task$command = _Platform_leaf('Task');
-var $elm$core$Task$perform = F2(
-	function (toMessage, task) {
-		return $elm$core$Task$command(
-			$elm$core$Task$Perform(
-				A2($elm$core$Task$map, toMessage, task)));
-	});
-var $elm$browser$Debugger$Main$download = F2(
-	function (metadata, history) {
-		var historyLength = $elm$browser$Debugger$History$size(history);
-		return A2(
-			$elm$core$Task$perform,
-			function (_v0) {
-				return $elm$browser$Debugger$Main$NoOp;
-			},
-			A2(
-				_Debugger_download,
-				historyLength,
-				_Json_unwrap(
-					$elm$json$Json$Encode$object(
-						_List_fromArray(
-							[
-								_Utils_Tuple2(
-								'metadata',
-								$elm$browser$Debugger$Metadata$encode(metadata)),
-								_Utils_Tuple2(
-								'history',
-								$elm$browser$Debugger$History$encode(history))
-							])))));
-	});
-var $elm$browser$Debugger$Main$Vertical = F3(
-	function (a, b, c) {
-		return {$: 'Vertical', a: a, b: b, c: c};
-	});
-var $elm$browser$Debugger$Main$drag = F2(
-	function (info, layout) {
-		if (layout.$ === 'Horizontal') {
-			var status = layout.a;
-			var y = layout.c;
-			return A3($elm$browser$Debugger$Main$Horizontal, status, info.x / info.width, y);
-		} else {
-			var status = layout.a;
-			var x = layout.b;
-			return A3($elm$browser$Debugger$Main$Vertical, status, x, info.y / info.height);
-		}
-	});
-var $elm$browser$Debugger$History$Stepping = F2(
-	function (a, b) {
-		return {$: 'Stepping', a: a, b: b};
-	});
-var $elm$browser$Debugger$History$Done = F2(
-	function (a, b) {
-		return {$: 'Done', a: a, b: b};
-	});
-var $elm$browser$Debugger$History$getHelp = F3(
-	function (update, msg, getResult) {
-		if (getResult.$ === 'Done') {
-			return getResult;
-		} else {
-			var n = getResult.a;
-			var model = getResult.b;
-			return (!n) ? A2(
-				$elm$browser$Debugger$History$Done,
-				msg,
-				A2(update, msg, model).a) : A2(
-				$elm$browser$Debugger$History$Stepping,
-				n - 1,
-				A2(update, msg, model).a);
-		}
-	});
-var $elm$browser$Debugger$History$undone = function (getResult) {
-	undone:
-	while (true) {
-		if (getResult.$ === 'Done') {
-			var msg = getResult.a;
-			var model = getResult.b;
-			return _Utils_Tuple2(model, msg);
-		} else {
-			var $temp$getResult = getResult;
-			getResult = $temp$getResult;
-			continue undone;
-		}
-	}
-};
-var $elm$browser$Debugger$History$get = F3(
-	function (update, index, history) {
-		get:
-		while (true) {
-			var recent = history.recent;
-			var snapshotMax = history.numMessages - recent.numMessages;
-			if (_Utils_cmp(index, snapshotMax) > -1) {
-				return $elm$browser$Debugger$History$undone(
-					A3(
-						$elm$core$List$foldr,
-						$elm$browser$Debugger$History$getHelp(update),
-						A2($elm$browser$Debugger$History$Stepping, index - snapshotMax, recent.model),
-						recent.messages));
-			} else {
-				var _v0 = A2($elm$core$Array$get, (index / $elm$browser$Debugger$History$maxSnapshotSize) | 0, history.snapshots);
-				if (_v0.$ === 'Nothing') {
-					var $temp$update = update,
-						$temp$index = index,
-						$temp$history = history;
-					update = $temp$update;
-					index = $temp$index;
-					history = $temp$history;
-					continue get;
-				} else {
-					var model = _v0.a.model;
-					var messages = _v0.a.messages;
-					return $elm$browser$Debugger$History$undone(
-						A3(
-							$elm$core$Array$foldr,
-							$elm$browser$Debugger$History$getHelp(update),
-							A2($elm$browser$Debugger$History$Stepping, index % $elm$browser$Debugger$History$maxSnapshotSize, model),
-							messages));
-				}
-			}
-		}
-	});
-var $elm$browser$Debugger$History$getRecentMsg = function (history) {
-	getRecentMsg:
-	while (true) {
-		var _v0 = history.recent.messages;
-		if (!_v0.b) {
-			var $temp$history = history;
-			history = $temp$history;
-			continue getRecentMsg;
-		} else {
-			var first = _v0.a;
-			return first;
-		}
-	}
-};
-var $elm$core$Dict$get = F2(
-	function (targetKey, dict) {
-		get:
-		while (true) {
-			if (dict.$ === 'RBEmpty_elm_builtin') {
-				return $elm$core$Maybe$Nothing;
-			} else {
-				var key = dict.b;
-				var value = dict.c;
-				var left = dict.d;
-				var right = dict.e;
-				var _v1 = A2($elm$core$Basics$compare, targetKey, key);
-				switch (_v1.$) {
-					case 'LT':
-						var $temp$targetKey = targetKey,
-							$temp$dict = left;
-						targetKey = $temp$targetKey;
-						dict = $temp$dict;
-						continue get;
-					case 'EQ':
-						return $elm$core$Maybe$Just(value);
-					default:
-						var $temp$targetKey = targetKey,
-							$temp$dict = right;
-						targetKey = $temp$targetKey;
-						dict = $temp$dict;
-						continue get;
-				}
-			}
-		}
-	});
-var $elm$browser$Debugger$Expando$mergeDictHelp = F3(
-	function (oldDict, key, value) {
-		var _v12 = A2($elm$core$Dict$get, key, oldDict);
-		if (_v12.$ === 'Nothing') {
-			return value;
-		} else {
-			var oldValue = _v12.a;
-			return A2($elm$browser$Debugger$Expando$mergeHelp, oldValue, value);
-		}
-	});
-var $elm$browser$Debugger$Expando$mergeHelp = F2(
-	function (old, _new) {
-		var _v3 = _Utils_Tuple2(old, _new);
-		_v3$6:
-		while (true) {
-			switch (_v3.b.$) {
-				case 'S':
-					return _new;
-				case 'Primitive':
-					return _new;
-				case 'Sequence':
-					if (_v3.a.$ === 'Sequence') {
-						var _v4 = _v3.a;
-						var isClosed = _v4.b;
-						var oldValues = _v4.c;
-						var _v5 = _v3.b;
-						var seqType = _v5.a;
-						var newValues = _v5.c;
-						return A3(
-							$elm$browser$Debugger$Expando$Sequence,
-							seqType,
-							isClosed,
-							A2($elm$browser$Debugger$Expando$mergeListHelp, oldValues, newValues));
-					} else {
-						break _v3$6;
-					}
-				case 'Dictionary':
-					if (_v3.a.$ === 'Dictionary') {
-						var _v6 = _v3.a;
-						var isClosed = _v6.a;
-						var _v7 = _v3.b;
-						var keyValuePairs = _v7.b;
-						return A2($elm$browser$Debugger$Expando$Dictionary, isClosed, keyValuePairs);
-					} else {
-						break _v3$6;
-					}
-				case 'Record':
-					if (_v3.a.$ === 'Record') {
-						var _v8 = _v3.a;
-						var isClosed = _v8.a;
-						var oldDict = _v8.b;
-						var _v9 = _v3.b;
-						var newDict = _v9.b;
-						return A2(
-							$elm$browser$Debugger$Expando$Record,
-							isClosed,
-							A2(
-								$elm$core$Dict$map,
-								$elm$browser$Debugger$Expando$mergeDictHelp(oldDict),
-								newDict));
-					} else {
-						break _v3$6;
-					}
-				default:
-					if (_v3.a.$ === 'Constructor') {
-						var _v10 = _v3.a;
-						var isClosed = _v10.b;
-						var oldValues = _v10.c;
-						var _v11 = _v3.b;
-						var maybeName = _v11.a;
-						var newValues = _v11.c;
-						return A3(
-							$elm$browser$Debugger$Expando$Constructor,
-							maybeName,
-							isClosed,
-							A2($elm$browser$Debugger$Expando$mergeListHelp, oldValues, newValues));
-					} else {
-						break _v3$6;
-					}
-			}
-		}
-		return _new;
-	});
-var $elm$browser$Debugger$Expando$mergeListHelp = F2(
-	function (olds, news) {
-		var _v0 = _Utils_Tuple2(olds, news);
-		if (!_v0.a.b) {
-			return news;
-		} else {
-			if (!_v0.b.b) {
-				return news;
-			} else {
-				var _v1 = _v0.a;
-				var x = _v1.a;
-				var xs = _v1.b;
-				var _v2 = _v0.b;
-				var y = _v2.a;
-				var ys = _v2.b;
-				return A2(
-					$elm$core$List$cons,
-					A2($elm$browser$Debugger$Expando$mergeHelp, x, y),
-					A2($elm$browser$Debugger$Expando$mergeListHelp, xs, ys));
-			}
-		}
-	});
-var $elm$browser$Debugger$Expando$merge = F2(
-	function (value, expando) {
-		return A2(
-			$elm$browser$Debugger$Expando$mergeHelp,
-			expando,
-			_Debugger_init(value));
-	});
-var $elm$browser$Debugger$Main$jumpUpdate = F3(
-	function (update, index, model) {
-		var history = $elm$browser$Debugger$Main$cachedHistory(model);
-		var currentMsg = $elm$browser$Debugger$History$getRecentMsg(history);
-		var currentModel = $elm$browser$Debugger$Main$getLatestModel(model.state);
-		var _v0 = A3($elm$browser$Debugger$History$get, update, index, history);
-		var indexModel = _v0.a;
-		var indexMsg = _v0.b;
-		return _Utils_update(
-			model,
-			{
-				expandoModel: A2($elm$browser$Debugger$Expando$merge, indexModel, model.expandoModel),
-				expandoMsg: A2($elm$browser$Debugger$Expando$merge, indexMsg, model.expandoMsg),
-				state: A5($elm$browser$Debugger$Main$Paused, index, indexModel, currentModel, currentMsg, history)
-			});
-	});
-var $elm$browser$Debugger$History$jsToElm = A2($elm$core$Basics$composeR, _Json_unwrap, _Debugger_unsafeCoerce);
-var $elm$browser$Debugger$History$decoder = F2(
-	function (initialModel, update) {
-		var addMessage = F2(
-			function (rawMsg, _v0) {
-				var model = _v0.a;
-				var history = _v0.b;
-				var msg = $elm$browser$Debugger$History$jsToElm(rawMsg);
-				return _Utils_Tuple2(
-					A2(update, msg, model),
-					A3($elm$browser$Debugger$History$add, msg, model, history));
-			});
-		var updateModel = function (rawMsgs) {
-			return A3(
-				$elm$core$List$foldl,
-				addMessage,
-				_Utils_Tuple2(
-					initialModel,
-					$elm$browser$Debugger$History$empty(initialModel)),
-				rawMsgs);
-		};
-		return A2(
-			$elm$json$Json$Decode$map,
-			updateModel,
-			$elm$json$Json$Decode$list($elm$json$Json$Decode$value));
-	});
-var $elm$browser$Debugger$History$getInitialModel = function (_v0) {
-	var snapshots = _v0.snapshots;
-	var recent = _v0.recent;
-	var _v1 = A2($elm$core$Array$get, 0, snapshots);
-	if (_v1.$ === 'Just') {
-		var model = _v1.a.model;
-		return model;
-	} else {
-		return recent.model;
-	}
-};
-var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
-var $elm$browser$Debugger$Main$loadNewHistory = F3(
-	function (rawHistory, update, model) {
-		var pureUserUpdate = F2(
-			function (msg, userModel) {
-				return A2(update, msg, userModel).a;
-			});
-		var initialUserModel = $elm$browser$Debugger$History$getInitialModel(model.history);
-		var decoder = A2($elm$browser$Debugger$History$decoder, initialUserModel, pureUserUpdate);
-		var _v0 = A2($elm$json$Json$Decode$decodeValue, decoder, rawHistory);
-		if (_v0.$ === 'Err') {
-			return _Utils_Tuple2(
-				_Utils_update(
-					model,
-					{overlay: $elm$browser$Debugger$Overlay$corruptImport}),
-				$elm$core$Platform$Cmd$none);
-		} else {
-			var _v1 = _v0.a;
-			var latestUserModel = _v1.a;
-			var newHistory = _v1.b;
-			return _Utils_Tuple2(
-				_Utils_update(
-					model,
-					{
-						expandoModel: $elm$browser$Debugger$Expando$init(latestUserModel),
-						expandoMsg: $elm$browser$Debugger$Expando$init(
-							$elm$browser$Debugger$History$getRecentMsg(newHistory)),
-						history: newHistory,
-						overlay: $elm$browser$Debugger$Overlay$none,
-						state: $elm$browser$Debugger$Main$Running(latestUserModel)
-					}),
-				$elm$core$Platform$Cmd$none);
-		}
-	});
-var $elm$browser$Debugger$Main$scroll = function (popout) {
-	return A2(
-		$elm$core$Task$perform,
-		$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
-		_Debugger_scroll(popout));
-};
-var $elm$browser$Debugger$Main$scrollTo = F2(
-	function (id, popout) {
-		return A2(
-			$elm$core$Task$perform,
-			$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
-			A2(_Debugger_scrollTo, id, popout));
-	});
-var $elm$browser$Debugger$Main$setDragStatus = F2(
-	function (status, layout) {
-		if (layout.$ === 'Horizontal') {
-			var x = layout.b;
-			var y = layout.c;
-			return A3($elm$browser$Debugger$Main$Horizontal, status, x, y);
-		} else {
-			var x = layout.b;
-			var y = layout.c;
-			return A3($elm$browser$Debugger$Main$Vertical, status, x, y);
-		}
-	});
-var $elm$browser$Debugger$Main$swapLayout = function (layout) {
-	if (layout.$ === 'Horizontal') {
-		var s = layout.a;
-		var x = layout.b;
-		var y = layout.c;
-		return A3($elm$browser$Debugger$Main$Vertical, s, x, y);
-	} else {
-		var s = layout.a;
-		var x = layout.b;
-		var y = layout.c;
-		return A3($elm$browser$Debugger$Main$Horizontal, s, x, y);
-	}
-};
-var $elm$core$Dict$getMin = function (dict) {
-	getMin:
-	while (true) {
-		if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
-			var left = dict.d;
-			var $temp$dict = left;
-			dict = $temp$dict;
-			continue getMin;
-		} else {
-			return dict;
-		}
-	}
-};
-var $elm$core$Dict$moveRedLeft = function (dict) {
-	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
-		if ((dict.e.d.$ === 'RBNode_elm_builtin') && (dict.e.d.a.$ === 'Red')) {
-			var clr = dict.a;
-			var k = dict.b;
-			var v = dict.c;
-			var _v1 = dict.d;
-			var lClr = _v1.a;
-			var lK = _v1.b;
-			var lV = _v1.c;
-			var lLeft = _v1.d;
-			var lRight = _v1.e;
-			var _v2 = dict.e;
-			var rClr = _v2.a;
-			var rK = _v2.b;
-			var rV = _v2.c;
-			var rLeft = _v2.d;
-			var _v3 = rLeft.a;
-			var rlK = rLeft.b;
-			var rlV = rLeft.c;
-			var rlL = rLeft.d;
-			var rlR = rLeft.e;
-			var rRight = _v2.e;
-			return A5(
-				$elm$core$Dict$RBNode_elm_builtin,
-				$elm$core$Dict$Red,
-				rlK,
-				rlV,
-				A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
-					rlL),
-				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rlR, rRight));
-		} else {
-			var clr = dict.a;
-			var k = dict.b;
-			var v = dict.c;
-			var _v4 = dict.d;
-			var lClr = _v4.a;
-			var lK = _v4.b;
-			var lV = _v4.c;
-			var lLeft = _v4.d;
-			var lRight = _v4.e;
-			var _v5 = dict.e;
-			var rClr = _v5.a;
-			var rK = _v5.b;
-			var rV = _v5.c;
-			var rLeft = _v5.d;
-			var rRight = _v5.e;
-			if (clr.$ === 'Black') {
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
-			} else {
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
-			}
-		}
-	} else {
-		return dict;
-	}
-};
-var $elm$core$Dict$moveRedRight = function (dict) {
-	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
-		if ((dict.d.d.$ === 'RBNode_elm_builtin') && (dict.d.d.a.$ === 'Red')) {
-			var clr = dict.a;
-			var k = dict.b;
-			var v = dict.c;
-			var _v1 = dict.d;
-			var lClr = _v1.a;
-			var lK = _v1.b;
-			var lV = _v1.c;
-			var _v2 = _v1.d;
-			var _v3 = _v2.a;
-			var llK = _v2.b;
-			var llV = _v2.c;
-			var llLeft = _v2.d;
-			var llRight = _v2.e;
-			var lRight = _v1.e;
-			var _v4 = dict.e;
-			var rClr = _v4.a;
-			var rK = _v4.b;
-			var rV = _v4.c;
-			var rLeft = _v4.d;
-			var rRight = _v4.e;
-			return A5(
-				$elm$core$Dict$RBNode_elm_builtin,
-				$elm$core$Dict$Red,
-				lK,
-				lV,
-				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
-				A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					lRight,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight)));
-		} else {
-			var clr = dict.a;
-			var k = dict.b;
-			var v = dict.c;
-			var _v5 = dict.d;
-			var lClr = _v5.a;
-			var lK = _v5.b;
-			var lV = _v5.c;
-			var lLeft = _v5.d;
-			var lRight = _v5.e;
-			var _v6 = dict.e;
-			var rClr = _v6.a;
-			var rK = _v6.b;
-			var rV = _v6.c;
-			var rLeft = _v6.d;
-			var rRight = _v6.e;
-			if (clr.$ === 'Black') {
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
-			} else {
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					$elm$core$Dict$Black,
-					k,
-					v,
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
-					A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
-			}
-		}
-	} else {
-		return dict;
-	}
-};
-var $elm$core$Dict$removeHelpPrepEQGT = F7(
-	function (targetKey, dict, color, key, value, left, right) {
-		if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
-			var _v1 = left.a;
-			var lK = left.b;
-			var lV = left.c;
-			var lLeft = left.d;
-			var lRight = left.e;
-			return A5(
-				$elm$core$Dict$RBNode_elm_builtin,
-				color,
-				lK,
-				lV,
-				lLeft,
-				A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, lRight, right));
-		} else {
-			_v2$2:
-			while (true) {
-				if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Black')) {
-					if (right.d.$ === 'RBNode_elm_builtin') {
-						if (right.d.a.$ === 'Black') {
-							var _v3 = right.a;
-							var _v4 = right.d;
-							var _v5 = _v4.a;
-							return $elm$core$Dict$moveRedRight(dict);
-						} else {
-							break _v2$2;
-						}
-					} else {
-						var _v6 = right.a;
-						var _v7 = right.d;
-						return $elm$core$Dict$moveRedRight(dict);
-					}
-				} else {
-					break _v2$2;
-				}
-			}
-			return dict;
-		}
-	});
-var $elm$core$Dict$removeMin = function (dict) {
-	if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
-		var color = dict.a;
-		var key = dict.b;
-		var value = dict.c;
-		var left = dict.d;
-		var lColor = left.a;
-		var lLeft = left.d;
-		var right = dict.e;
-		if (lColor.$ === 'Black') {
-			if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
-				var _v3 = lLeft.a;
-				return A5(
-					$elm$core$Dict$RBNode_elm_builtin,
-					color,
-					key,
-					value,
-					$elm$core$Dict$removeMin(left),
-					right);
-			} else {
-				var _v4 = $elm$core$Dict$moveRedLeft(dict);
-				if (_v4.$ === 'RBNode_elm_builtin') {
-					var nColor = _v4.a;
-					var nKey = _v4.b;
-					var nValue = _v4.c;
-					var nLeft = _v4.d;
-					var nRight = _v4.e;
-					return A5(
-						$elm$core$Dict$balance,
-						nColor,
-						nKey,
-						nValue,
-						$elm$core$Dict$removeMin(nLeft),
-						nRight);
-				} else {
-					return $elm$core$Dict$RBEmpty_elm_builtin;
-				}
-			}
-		} else {
-			return A5(
-				$elm$core$Dict$RBNode_elm_builtin,
-				color,
-				key,
-				value,
-				$elm$core$Dict$removeMin(left),
-				right);
-		}
-	} else {
-		return $elm$core$Dict$RBEmpty_elm_builtin;
-	}
-};
-var $elm$core$Dict$removeHelp = F2(
-	function (targetKey, dict) {
-		if (dict.$ === 'RBEmpty_elm_builtin') {
-			return $elm$core$Dict$RBEmpty_elm_builtin;
-		} else {
-			var color = dict.a;
-			var key = dict.b;
-			var value = dict.c;
-			var left = dict.d;
-			var right = dict.e;
-			if (_Utils_cmp(targetKey, key) < 0) {
-				if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Black')) {
-					var _v4 = left.a;
-					var lLeft = left.d;
-					if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
-						var _v6 = lLeft.a;
-						return A5(
-							$elm$core$Dict$RBNode_elm_builtin,
-							color,
-							key,
-							value,
-							A2($elm$core$Dict$removeHelp, targetKey, left),
-							right);
-					} else {
-						var _v7 = $elm$core$Dict$moveRedLeft(dict);
-						if (_v7.$ === 'RBNode_elm_builtin') {
-							var nColor = _v7.a;
-							var nKey = _v7.b;
-							var nValue = _v7.c;
-							var nLeft = _v7.d;
-							var nRight = _v7.e;
-							return A5(
-								$elm$core$Dict$balance,
-								nColor,
-								nKey,
-								nValue,
-								A2($elm$core$Dict$removeHelp, targetKey, nLeft),
-								nRight);
-						} else {
-							return $elm$core$Dict$RBEmpty_elm_builtin;
-						}
-					}
-				} else {
-					return A5(
-						$elm$core$Dict$RBNode_elm_builtin,
-						color,
-						key,
-						value,
-						A2($elm$core$Dict$removeHelp, targetKey, left),
-						right);
-				}
-			} else {
-				return A2(
-					$elm$core$Dict$removeHelpEQGT,
-					targetKey,
-					A7($elm$core$Dict$removeHelpPrepEQGT, targetKey, dict, color, key, value, left, right));
-			}
-		}
-	});
-var $elm$core$Dict$removeHelpEQGT = F2(
-	function (targetKey, dict) {
-		if (dict.$ === 'RBNode_elm_builtin') {
-			var color = dict.a;
-			var key = dict.b;
-			var value = dict.c;
-			var left = dict.d;
-			var right = dict.e;
-			if (_Utils_eq(targetKey, key)) {
-				var _v1 = $elm$core$Dict$getMin(right);
-				if (_v1.$ === 'RBNode_elm_builtin') {
-					var minKey = _v1.b;
-					var minValue = _v1.c;
-					return A5(
-						$elm$core$Dict$balance,
-						color,
-						minKey,
-						minValue,
-						left,
-						$elm$core$Dict$removeMin(right));
-				} else {
-					return $elm$core$Dict$RBEmpty_elm_builtin;
-				}
-			} else {
-				return A5(
-					$elm$core$Dict$balance,
-					color,
-					key,
-					value,
-					left,
-					A2($elm$core$Dict$removeHelp, targetKey, right));
-			}
-		} else {
-			return $elm$core$Dict$RBEmpty_elm_builtin;
-		}
-	});
-var $elm$core$Dict$remove = F2(
-	function (key, dict) {
-		var _v0 = A2($elm$core$Dict$removeHelp, key, dict);
-		if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
-			var _v1 = _v0.a;
-			var k = _v0.b;
-			var v = _v0.c;
-			var l = _v0.d;
-			var r = _v0.e;
-			return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
-		} else {
-			var x = _v0;
-			return x;
-		}
-	});
-var $elm$core$Dict$update = F3(
-	function (targetKey, alter, dictionary) {
-		var _v0 = alter(
-			A2($elm$core$Dict$get, targetKey, dictionary));
-		if (_v0.$ === 'Just') {
-			var value = _v0.a;
-			return A3($elm$core$Dict$insert, targetKey, value, dictionary);
-		} else {
-			return A2($elm$core$Dict$remove, targetKey, dictionary);
-		}
-	});
-var $elm$browser$Debugger$Expando$updateIndex = F3(
-	function (n, func, list) {
-		if (!list.b) {
-			return _List_Nil;
-		} else {
-			var x = list.a;
-			var xs = list.b;
-			return (n <= 0) ? A2(
-				$elm$core$List$cons,
-				func(x),
-				xs) : A2(
-				$elm$core$List$cons,
-				x,
-				A3($elm$browser$Debugger$Expando$updateIndex, n - 1, func, xs));
-		}
-	});
-var $elm$browser$Debugger$Expando$update = F2(
-	function (msg, value) {
-		switch (value.$) {
-			case 'S':
-				return value;
-			case 'Primitive':
-				return value;
-			case 'Sequence':
-				var seqType = value.a;
-				var isClosed = value.b;
-				var valueList = value.c;
-				switch (msg.$) {
-					case 'Toggle':
-						return A3($elm$browser$Debugger$Expando$Sequence, seqType, !isClosed, valueList);
-					case 'Index':
-						if (msg.a.$ === 'None') {
-							var _v3 = msg.a;
-							var index = msg.b;
-							var subMsg = msg.c;
-							return A3(
-								$elm$browser$Debugger$Expando$Sequence,
-								seqType,
-								isClosed,
-								A3(
-									$elm$browser$Debugger$Expando$updateIndex,
-									index,
-									$elm$browser$Debugger$Expando$update(subMsg),
-									valueList));
-						} else {
-							return value;
-						}
-					default:
-						return value;
-				}
-			case 'Dictionary':
-				var isClosed = value.a;
-				var keyValuePairs = value.b;
-				switch (msg.$) {
-					case 'Toggle':
-						return A2($elm$browser$Debugger$Expando$Dictionary, !isClosed, keyValuePairs);
-					case 'Index':
-						var redirect = msg.a;
-						var index = msg.b;
-						var subMsg = msg.c;
-						switch (redirect.$) {
-							case 'None':
-								return value;
-							case 'Key':
-								return A2(
-									$elm$browser$Debugger$Expando$Dictionary,
-									isClosed,
-									A3(
-										$elm$browser$Debugger$Expando$updateIndex,
-										index,
-										function (_v6) {
-											var k = _v6.a;
-											var v = _v6.b;
-											return _Utils_Tuple2(
-												A2($elm$browser$Debugger$Expando$update, subMsg, k),
-												v);
-										},
-										keyValuePairs));
-							default:
-								return A2(
-									$elm$browser$Debugger$Expando$Dictionary,
-									isClosed,
-									A3(
-										$elm$browser$Debugger$Expando$updateIndex,
-										index,
-										function (_v7) {
-											var k = _v7.a;
-											var v = _v7.b;
-											return _Utils_Tuple2(
-												k,
-												A2($elm$browser$Debugger$Expando$update, subMsg, v));
-										},
-										keyValuePairs));
-						}
-					default:
-						return value;
-				}
-			case 'Record':
-				var isClosed = value.a;
-				var valueDict = value.b;
-				switch (msg.$) {
-					case 'Toggle':
-						return A2($elm$browser$Debugger$Expando$Record, !isClosed, valueDict);
-					case 'Index':
-						return value;
-					default:
-						var field = msg.a;
-						var subMsg = msg.b;
-						return A2(
-							$elm$browser$Debugger$Expando$Record,
-							isClosed,
-							A3(
-								$elm$core$Dict$update,
-								field,
-								$elm$browser$Debugger$Expando$updateField(subMsg),
-								valueDict));
-				}
-			default:
-				var maybeName = value.a;
-				var isClosed = value.b;
-				var valueList = value.c;
-				switch (msg.$) {
-					case 'Toggle':
-						return A3($elm$browser$Debugger$Expando$Constructor, maybeName, !isClosed, valueList);
-					case 'Index':
-						if (msg.a.$ === 'None') {
-							var _v10 = msg.a;
-							var index = msg.b;
-							var subMsg = msg.c;
-							return A3(
-								$elm$browser$Debugger$Expando$Constructor,
-								maybeName,
-								isClosed,
-								A3(
-									$elm$browser$Debugger$Expando$updateIndex,
-									index,
-									$elm$browser$Debugger$Expando$update(subMsg),
-									valueList));
-						} else {
-							return value;
-						}
-					default:
-						return value;
-				}
-		}
-	});
-var $elm$browser$Debugger$Expando$updateField = F2(
-	function (msg, maybeExpando) {
-		if (maybeExpando.$ === 'Nothing') {
-			return maybeExpando;
-		} else {
-			var expando = maybeExpando.a;
-			return $elm$core$Maybe$Just(
-				A2($elm$browser$Debugger$Expando$update, msg, expando));
-		}
-	});
-var $elm$browser$Debugger$Main$Upload = function (a) {
-	return {$: 'Upload', a: a};
-};
-var $elm$browser$Debugger$Main$upload = function (popout) {
-	return A2(
-		$elm$core$Task$perform,
-		$elm$browser$Debugger$Main$Upload,
-		_Debugger_upload(popout));
-};
-var $elm$browser$Debugger$Overlay$BadMetadata = function (a) {
-	return {$: 'BadMetadata', a: a};
-};
-var $elm$browser$Debugger$Overlay$badMetadata = $elm$browser$Debugger$Overlay$BadMetadata;
-var $elm$browser$Debugger$Main$withGoodMetadata = F2(
-	function (model, func) {
-		var _v0 = model.metadata;
-		if (_v0.$ === 'Ok') {
-			var metadata = _v0.a;
-			return func(metadata);
-		} else {
-			var error = _v0.a;
-			return _Utils_Tuple2(
-				_Utils_update(
-					model,
-					{
-						overlay: $elm$browser$Debugger$Overlay$badMetadata(error)
-					}),
-				$elm$core$Platform$Cmd$none);
-		}
-	});
-var $elm$browser$Debugger$Main$wrapUpdate = F3(
-	function (update, msg, model) {
-		wrapUpdate:
-		while (true) {
-			switch (msg.$) {
-				case 'NoOp':
-					return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
-				case 'UserMsg':
-					var userMsg = msg.a;
-					var userModel = $elm$browser$Debugger$Main$getLatestModel(model.state);
-					var newHistory = A3($elm$browser$Debugger$History$add, userMsg, userModel, model.history);
-					var _v1 = A2(update, userMsg, userModel);
-					var newUserModel = _v1.a;
-					var userCmds = _v1.b;
-					var commands = A2($elm$core$Platform$Cmd$map, $elm$browser$Debugger$Main$UserMsg, userCmds);
-					var _v2 = model.state;
-					if (_v2.$ === 'Running') {
-						return _Utils_Tuple2(
-							_Utils_update(
-								model,
-								{
-									expandoModel: A2($elm$browser$Debugger$Expando$merge, newUserModel, model.expandoModel),
-									expandoMsg: A2($elm$browser$Debugger$Expando$merge, userMsg, model.expandoMsg),
-									history: newHistory,
-									state: $elm$browser$Debugger$Main$Running(newUserModel)
-								}),
-							$elm$core$Platform$Cmd$batch(
-								_List_fromArray(
-									[
-										commands,
-										$elm$browser$Debugger$Main$scroll(model.popout)
-									])));
-					} else {
-						var index = _v2.a;
-						var indexModel = _v2.b;
-						var history = _v2.e;
-						return _Utils_Tuple2(
-							_Utils_update(
-								model,
-								{
-									history: newHistory,
-									state: A5($elm$browser$Debugger$Main$Paused, index, indexModel, newUserModel, userMsg, history)
-								}),
-							commands);
-					}
-				case 'TweakExpandoMsg':
-					var eMsg = msg.a;
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								expandoMsg: A2($elm$browser$Debugger$Expando$update, eMsg, model.expandoMsg)
-							}),
-						$elm$core$Platform$Cmd$none);
-				case 'TweakExpandoModel':
-					var eMsg = msg.a;
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								expandoModel: A2($elm$browser$Debugger$Expando$update, eMsg, model.expandoModel)
-							}),
-						$elm$core$Platform$Cmd$none);
-				case 'Resume':
-					var _v3 = model.state;
-					if (_v3.$ === 'Running') {
-						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
-					} else {
-						var userModel = _v3.c;
-						var userMsg = _v3.d;
-						return _Utils_Tuple2(
-							_Utils_update(
-								model,
-								{
-									expandoModel: A2($elm$browser$Debugger$Expando$merge, userModel, model.expandoModel),
-									expandoMsg: A2($elm$browser$Debugger$Expando$merge, userMsg, model.expandoMsg),
-									state: $elm$browser$Debugger$Main$Running(userModel)
-								}),
-							$elm$browser$Debugger$Main$scroll(model.popout));
-					}
-				case 'Jump':
-					var index = msg.a;
-					return _Utils_Tuple2(
-						A3($elm$browser$Debugger$Main$jumpUpdate, update, index, model),
-						$elm$core$Platform$Cmd$none);
-				case 'SliderJump':
-					var index = msg.a;
-					return _Utils_Tuple2(
-						A3($elm$browser$Debugger$Main$jumpUpdate, update, index, model),
-						A2(
-							$elm$browser$Debugger$Main$scrollTo,
-							$elm$browser$Debugger$History$idForMessageIndex(index),
-							model.popout));
-				case 'Open':
-					return _Utils_Tuple2(
-						model,
-						A2(
-							$elm$core$Task$perform,
-							$elm$core$Basics$always($elm$browser$Debugger$Main$NoOp),
-							_Debugger_open(model.popout)));
-				case 'Up':
-					var _v4 = model.state;
-					if (_v4.$ === 'Running') {
-						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
-					} else {
-						var i = _v4.a;
-						var history = _v4.e;
-						var targetIndex = i + 1;
-						if (_Utils_cmp(
-							targetIndex,
-							$elm$browser$Debugger$History$size(history)) < 0) {
-							var $temp$update = update,
-								$temp$msg = $elm$browser$Debugger$Main$SliderJump(targetIndex),
-								$temp$model = model;
-							update = $temp$update;
-							msg = $temp$msg;
-							model = $temp$model;
-							continue wrapUpdate;
-						} else {
-							var $temp$update = update,
-								$temp$msg = $elm$browser$Debugger$Main$Resume,
-								$temp$model = model;
-							update = $temp$update;
-							msg = $temp$msg;
-							model = $temp$model;
-							continue wrapUpdate;
-						}
-					}
-				case 'Down':
-					var _v5 = model.state;
-					if (_v5.$ === 'Running') {
-						var $temp$update = update,
-							$temp$msg = $elm$browser$Debugger$Main$Jump(
-							$elm$browser$Debugger$History$size(model.history) - 1),
-							$temp$model = model;
-						update = $temp$update;
-						msg = $temp$msg;
-						model = $temp$model;
-						continue wrapUpdate;
-					} else {
-						var index = _v5.a;
-						if (index > 0) {
-							var $temp$update = update,
-								$temp$msg = $elm$browser$Debugger$Main$SliderJump(index - 1),
-								$temp$model = model;
-							update = $temp$update;
-							msg = $temp$msg;
-							model = $temp$model;
-							continue wrapUpdate;
-						} else {
-							return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
-						}
-					}
-				case 'Import':
-					return A2(
-						$elm$browser$Debugger$Main$withGoodMetadata,
-						model,
-						function (_v6) {
-							return _Utils_Tuple2(
-								model,
-								$elm$browser$Debugger$Main$upload(model.popout));
-						});
-				case 'Export':
-					return A2(
-						$elm$browser$Debugger$Main$withGoodMetadata,
-						model,
-						function (metadata) {
-							return _Utils_Tuple2(
-								model,
-								A2($elm$browser$Debugger$Main$download, metadata, model.history));
-						});
-				case 'Upload':
-					var jsonString = msg.a;
-					return A2(
-						$elm$browser$Debugger$Main$withGoodMetadata,
-						model,
-						function (metadata) {
-							var _v7 = A2($elm$browser$Debugger$Overlay$assessImport, metadata, jsonString);
-							if (_v7.$ === 'Err') {
-								var newOverlay = _v7.a;
-								return _Utils_Tuple2(
-									_Utils_update(
-										model,
-										{overlay: newOverlay}),
-									$elm$core$Platform$Cmd$none);
-							} else {
-								var rawHistory = _v7.a;
-								return A3($elm$browser$Debugger$Main$loadNewHistory, rawHistory, update, model);
-							}
-						});
-				case 'OverlayMsg':
-					var overlayMsg = msg.a;
-					var _v8 = A2($elm$browser$Debugger$Overlay$close, overlayMsg, model.overlay);
-					if (_v8.$ === 'Nothing') {
-						return _Utils_Tuple2(
-							_Utils_update(
-								model,
-								{overlay: $elm$browser$Debugger$Overlay$none}),
-							$elm$core$Platform$Cmd$none);
-					} else {
-						var rawHistory = _v8.a;
-						return A3($elm$browser$Debugger$Main$loadNewHistory, rawHistory, update, model);
-					}
-				case 'SwapLayout':
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								layout: $elm$browser$Debugger$Main$swapLayout(model.layout)
-							}),
-						$elm$core$Platform$Cmd$none);
-				case 'DragStart':
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								layout: A2($elm$browser$Debugger$Main$setDragStatus, $elm$browser$Debugger$Main$Moving, model.layout)
-							}),
-						$elm$core$Platform$Cmd$none);
-				case 'Drag':
-					var info = msg.a;
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								layout: A2($elm$browser$Debugger$Main$drag, info, model.layout)
-							}),
-						$elm$core$Platform$Cmd$none);
-				default:
-					return _Utils_Tuple2(
-						_Utils_update(
-							model,
-							{
-								layout: A2($elm$browser$Debugger$Main$setDragStatus, $elm$browser$Debugger$Main$Static, model.layout)
-							}),
-						$elm$core$Platform$Cmd$none);
-			}
-		}
-	});
-var $elm$browser$Browser$External = function (a) {
-	return {$: 'External', a: a};
-};
-var $elm$browser$Browser$Internal = function (a) {
-	return {$: 'Internal', a: a};
-};
-var $elm$browser$Browser$Dom$NotFound = function (a) {
-	return {$: 'NotFound', a: a};
-};
-var $elm$url$Url$Http = {$: 'Http'};
-var $elm$url$Url$Https = {$: 'Https'};
-var $elm$url$Url$Url = F6(
-	function (protocol, host, port_, path, query, fragment) {
-		return {fragment: fragment, host: host, path: path, port_: port_, protocol: protocol, query: query};
-	});
-var $elm$core$String$dropLeft = F2(
-	function (n, string) {
-		return (n < 1) ? string : A3(
-			$elm$core$String$slice,
-			n,
-			$elm$core$String$length(string),
-			string);
-	});
-var $elm$core$String$indexes = _String_indexes;
-var $elm$core$String$isEmpty = function (string) {
-	return string === '';
-};
-var $elm$url$Url$chompBeforePath = F5(
-	function (protocol, path, params, frag, str) {
-		if ($elm$core$String$isEmpty(str) || A2($elm$core$String$contains, '@', str)) {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			var _v0 = A2($elm$core$String$indexes, ':', str);
-			if (!_v0.b) {
-				return $elm$core$Maybe$Just(
-					A6($elm$url$Url$Url, protocol, str, $elm$core$Maybe$Nothing, path, params, frag));
-			} else {
-				if (!_v0.b.b) {
-					var i = _v0.a;
-					var _v1 = $elm$core$String$toInt(
-						A2($elm$core$String$dropLeft, i + 1, str));
-					if (_v1.$ === 'Nothing') {
-						return $elm$core$Maybe$Nothing;
-					} else {
-						var port_ = _v1;
-						return $elm$core$Maybe$Just(
-							A6(
-								$elm$url$Url$Url,
-								protocol,
-								A2($elm$core$String$left, i, str),
-								port_,
-								path,
-								params,
-								frag));
-					}
-				} else {
-					return $elm$core$Maybe$Nothing;
-				}
-			}
-		}
-	});
-var $elm$url$Url$chompBeforeQuery = F4(
-	function (protocol, params, frag, str) {
-		if ($elm$core$String$isEmpty(str)) {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			var _v0 = A2($elm$core$String$indexes, '/', str);
-			if (!_v0.b) {
-				return A5($elm$url$Url$chompBeforePath, protocol, '/', params, frag, str);
-			} else {
-				var i = _v0.a;
-				return A5(
-					$elm$url$Url$chompBeforePath,
-					protocol,
-					A2($elm$core$String$dropLeft, i, str),
-					params,
-					frag,
-					A2($elm$core$String$left, i, str));
-			}
-		}
-	});
-var $elm$url$Url$chompBeforeFragment = F3(
-	function (protocol, frag, str) {
-		if ($elm$core$String$isEmpty(str)) {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			var _v0 = A2($elm$core$String$indexes, '?', str);
-			if (!_v0.b) {
-				return A4($elm$url$Url$chompBeforeQuery, protocol, $elm$core$Maybe$Nothing, frag, str);
-			} else {
-				var i = _v0.a;
-				return A4(
-					$elm$url$Url$chompBeforeQuery,
-					protocol,
-					$elm$core$Maybe$Just(
-						A2($elm$core$String$dropLeft, i + 1, str)),
-					frag,
-					A2($elm$core$String$left, i, str));
-			}
-		}
-	});
-var $elm$url$Url$chompAfterProtocol = F2(
-	function (protocol, str) {
-		if ($elm$core$String$isEmpty(str)) {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			var _v0 = A2($elm$core$String$indexes, '#', str);
-			if (!_v0.b) {
-				return A3($elm$url$Url$chompBeforeFragment, protocol, $elm$core$Maybe$Nothing, str);
-			} else {
-				var i = _v0.a;
-				return A3(
-					$elm$url$Url$chompBeforeFragment,
-					protocol,
-					$elm$core$Maybe$Just(
-						A2($elm$core$String$dropLeft, i + 1, str)),
-					A2($elm$core$String$left, i, str));
-			}
-		}
-	});
-var $elm$core$String$startsWith = _String_startsWith;
-var $elm$url$Url$fromString = function (str) {
-	return A2($elm$core$String$startsWith, 'http://', str) ? A2(
-		$elm$url$Url$chompAfterProtocol,
-		$elm$url$Url$Http,
-		A2($elm$core$String$dropLeft, 7, str)) : (A2($elm$core$String$startsWith, 'https://', str) ? A2(
-		$elm$url$Url$chompAfterProtocol,
-		$elm$url$Url$Https,
-		A2($elm$core$String$dropLeft, 8, str)) : $elm$core$Maybe$Nothing);
-};
-var $elm$core$Basics$never = function (_v0) {
-	never:
-	while (true) {
-		var nvr = _v0.a;
-		var $temp$_v0 = nvr;
-		_v0 = $temp$_v0;
-		continue never;
-	}
-};
-var $elm$browser$Browser$document = _Browser_document;
-var $author$project$Types$Vault = function (a) {
-	return {$: 'Vault', a: a};
-};
-var $elm$core$String$concat = function (strings) {
-	return A2($elm$core$String$join, '', strings);
-};
-var $elm$core$Maybe$map = F2(
-	function (f, maybe) {
-		if (maybe.$ === 'Just') {
-			var value = maybe.a;
-			return $elm$core$Maybe$Just(
-				f(value));
-		} else {
-			return $elm$core$Maybe$Nothing;
-		}
-	});
-var $author$project$Internal$Grammar$ServerName$toString = function (_v0) {
-	var port_ = _v0.port_;
-	var host = _v0.host;
-	var portString = A2(
-		$elm$core$Maybe$withDefault,
-		'',
-		A2(
-			$elm$core$Maybe$map,
-			$elm$core$Basics$append(':'),
-			A2($elm$core$Maybe$map, $elm$core$String$fromInt, port_)));
-	var hostString = function () {
-		if (host.$ === 'DNS') {
-			var name = host.a;
-			return name;
-		} else {
-			var back = host.a.back;
-			var front = host.a.front;
-			return function (i) {
-				return '[' + (i + ']');
-			}(
-				$elm$core$String$concat(
-					($elm$core$List$length(front) === 8) ? A2($elm$core$List$intersperse, ':', front) : (($elm$core$List$length(back) === 8) ? A2($elm$core$List$intersperse, ':', back) : $elm$core$List$concat(
-						_List_fromArray(
-							[
-								A2($elm$core$List$intersperse, ':', front),
-								_List_fromArray(
-								['::']),
-								A2($elm$core$List$intersperse, ':', back)
-							])))));
-		}
-	}();
-	return _Utils_ap(hostString, portString);
-};
-var $author$project$Internal$Values$User$domain = A2(
-	$elm$core$Basics$composeR,
-	function ($) {
-		return $.domain;
-	},
-	$author$project$Internal$Grammar$ServerName$toString);
-var $elm$parser$Parser$ExpectingEnd = {$: 'ExpectingEnd'};
-var $elm$parser$Parser$Advanced$Bad = F2(
-	function (a, b) {
-		return {$: 'Bad', a: a, b: b};
-	});
-var $elm$parser$Parser$Advanced$Good = F3(
-	function (a, b, c) {
-		return {$: 'Good', a: a, b: b, c: c};
-	});
-var $elm$parser$Parser$Advanced$Parser = function (a) {
-	return {$: 'Parser', a: a};
-};
-var $elm$parser$Parser$Advanced$AddRight = F2(
-	function (a, b) {
-		return {$: 'AddRight', a: a, b: b};
-	});
-var $elm$parser$Parser$Advanced$DeadEnd = F4(
-	function (row, col, problem, contextStack) {
-		return {col: col, contextStack: contextStack, problem: problem, row: row};
-	});
-var $elm$parser$Parser$Advanced$Empty = {$: 'Empty'};
-var $elm$parser$Parser$Advanced$fromState = F2(
-	function (s, x) {
-		return A2(
-			$elm$parser$Parser$Advanced$AddRight,
-			$elm$parser$Parser$Advanced$Empty,
-			A4($elm$parser$Parser$Advanced$DeadEnd, s.row, s.col, x, s.context));
-	});
-var $elm$parser$Parser$Advanced$end = function (x) {
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			return _Utils_eq(
-				$elm$core$String$length(s.src),
-				s.offset) ? A3($elm$parser$Parser$Advanced$Good, false, _Utils_Tuple0, s) : A2(
-				$elm$parser$Parser$Advanced$Bad,
-				false,
-				A2($elm$parser$Parser$Advanced$fromState, s, x));
-		});
-};
-var $elm$parser$Parser$end = $elm$parser$Parser$Advanced$end($elm$parser$Parser$ExpectingEnd);
-var $elm$parser$Parser$Advanced$map2 = F3(
-	function (func, _v0, _v1) {
-		var parseA = _v0.a;
-		var parseB = _v1.a;
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s0) {
-				var _v2 = parseA(s0);
-				if (_v2.$ === 'Bad') {
-					var p = _v2.a;
-					var x = _v2.b;
-					return A2($elm$parser$Parser$Advanced$Bad, p, x);
-				} else {
-					var p1 = _v2.a;
-					var a = _v2.b;
-					var s1 = _v2.c;
-					var _v3 = parseB(s1);
-					if (_v3.$ === 'Bad') {
-						var p2 = _v3.a;
-						var x = _v3.b;
-						return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x);
-					} else {
-						var p2 = _v3.a;
-						var b = _v3.b;
-						var s2 = _v3.c;
-						return A3(
-							$elm$parser$Parser$Advanced$Good,
-							p1 || p2,
-							A2(func, a, b),
-							s2);
-					}
-				}
-			});
-	});
-var $elm$parser$Parser$Advanced$ignorer = F2(
-	function (keepParser, ignoreParser) {
-		return A3($elm$parser$Parser$Advanced$map2, $elm$core$Basics$always, keepParser, ignoreParser);
-	});
-var $elm$parser$Parser$ignorer = $elm$parser$Parser$Advanced$ignorer;
-var $elm$parser$Parser$DeadEnd = F3(
-	function (row, col, problem) {
-		return {col: col, problem: problem, row: row};
-	});
-var $elm$parser$Parser$problemToDeadEnd = function (p) {
-	return A3($elm$parser$Parser$DeadEnd, p.row, p.col, p.problem);
-};
-var $elm$parser$Parser$Advanced$bagToList = F2(
-	function (bag, list) {
-		bagToList:
-		while (true) {
-			switch (bag.$) {
-				case 'Empty':
-					return list;
-				case 'AddRight':
-					var bag1 = bag.a;
-					var x = bag.b;
-					var $temp$bag = bag1,
-						$temp$list = A2($elm$core$List$cons, x, list);
-					bag = $temp$bag;
-					list = $temp$list;
-					continue bagToList;
-				default:
-					var bag1 = bag.a;
-					var bag2 = bag.b;
-					var $temp$bag = bag1,
-						$temp$list = A2($elm$parser$Parser$Advanced$bagToList, bag2, list);
-					bag = $temp$bag;
-					list = $temp$list;
-					continue bagToList;
-			}
-		}
-	});
-var $elm$parser$Parser$Advanced$run = F2(
-	function (_v0, src) {
-		var parse = _v0.a;
-		var _v1 = parse(
-			{col: 1, context: _List_Nil, indent: 1, offset: 0, row: 1, src: src});
-		if (_v1.$ === 'Good') {
-			var value = _v1.b;
-			return $elm$core$Result$Ok(value);
-		} else {
-			var bag = _v1.b;
-			return $elm$core$Result$Err(
-				A2($elm$parser$Parser$Advanced$bagToList, bag, _List_Nil));
-		}
-	});
-var $elm$parser$Parser$run = F2(
-	function (parser, source) {
-		var _v0 = A2($elm$parser$Parser$Advanced$run, parser, source);
-		if (_v0.$ === 'Ok') {
-			var a = _v0.a;
-			return $elm$core$Result$Ok(a);
-		} else {
-			var problems = _v0.a;
-			return $elm$core$Result$Err(
-				A2($elm$core$List$map, $elm$parser$Parser$problemToDeadEnd, problems));
-		}
-	});
-var $elm$core$Result$toMaybe = function (result) {
-	if (result.$ === 'Ok') {
-		var v = result.a;
-		return $elm$core$Maybe$Just(v);
-	} else {
-		return $elm$core$Maybe$Nothing;
-	}
-};
-var $author$project$Internal$Grammar$UserId$UserID = F2(
-	function (localpart, domain) {
-		return {domain: domain, localpart: localpart};
-	});
-var $elm$parser$Parser$Advanced$keeper = F2(
-	function (parseFunc, parseArg) {
-		return A3($elm$parser$Parser$Advanced$map2, $elm$core$Basics$apL, parseFunc, parseArg);
-	});
-var $elm$parser$Parser$keeper = $elm$parser$Parser$Advanced$keeper;
-var $elm$parser$Parser$UnexpectedChar = {$: 'UnexpectedChar'};
-var $elm$parser$Parser$Advanced$isSubChar = _Parser_isSubChar;
-var $elm$parser$Parser$Advanced$chompIf = F2(
-	function (isGood, expecting) {
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s) {
-				var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, s.offset, s.src);
-				return _Utils_eq(newOffset, -1) ? A2(
-					$elm$parser$Parser$Advanced$Bad,
-					false,
-					A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : (_Utils_eq(newOffset, -2) ? A3(
-					$elm$parser$Parser$Advanced$Good,
-					true,
-					_Utils_Tuple0,
-					{col: 1, context: s.context, indent: s.indent, offset: s.offset + 1, row: s.row + 1, src: s.src}) : A3(
-					$elm$parser$Parser$Advanced$Good,
-					true,
-					_Utils_Tuple0,
-					{col: s.col + 1, context: s.context, indent: s.indent, offset: newOffset, row: s.row, src: s.src}));
-			});
-	});
-var $elm$parser$Parser$chompIf = function (isGood) {
-	return A2($elm$parser$Parser$Advanced$chompIf, isGood, $elm$parser$Parser$UnexpectedChar);
-};
-var $elm$parser$Parser$Advanced$mapChompedString = F2(
-	function (func, _v0) {
-		var parse = _v0.a;
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s0) {
-				var _v1 = parse(s0);
-				if (_v1.$ === 'Bad') {
-					var p = _v1.a;
-					var x = _v1.b;
-					return A2($elm$parser$Parser$Advanced$Bad, p, x);
-				} else {
-					var p = _v1.a;
-					var a = _v1.b;
-					var s1 = _v1.c;
-					return A3(
-						$elm$parser$Parser$Advanced$Good,
-						p,
-						A2(
-							func,
-							A3($elm$core$String$slice, s0.offset, s1.offset, s0.src),
-							a),
-						s1);
-				}
-			});
-	});
-var $elm$parser$Parser$Advanced$getChompedString = function (parser) {
-	return A2($elm$parser$Parser$Advanced$mapChompedString, $elm$core$Basics$always, parser);
-};
-var $elm$parser$Parser$getChompedString = $elm$parser$Parser$Advanced$getChompedString;
-var $elm$parser$Parser$Advanced$map = F2(
-	function (func, _v0) {
-		var parse = _v0.a;
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s0) {
-				var _v1 = parse(s0);
-				if (_v1.$ === 'Good') {
-					var p = _v1.a;
-					var a = _v1.b;
-					var s1 = _v1.c;
-					return A3(
-						$elm$parser$Parser$Advanced$Good,
-						p,
-						func(a),
-						s1);
-				} else {
-					var p = _v1.a;
-					var x = _v1.b;
-					return A2($elm$parser$Parser$Advanced$Bad, p, x);
-				}
-			});
-	});
-var $elm$parser$Parser$map = $elm$parser$Parser$Advanced$map;
-var $elm$parser$Parser$Done = function (a) {
-	return {$: 'Done', a: a};
-};
-var $elm$parser$Parser$Loop = function (a) {
-	return {$: 'Loop', a: a};
-};
-var $elm$parser$Parser$Advanced$loopHelp = F4(
-	function (p, state, callback, s0) {
-		loopHelp:
-		while (true) {
-			var _v0 = callback(state);
-			var parse = _v0.a;
-			var _v1 = parse(s0);
-			if (_v1.$ === 'Good') {
-				var p1 = _v1.a;
-				var step = _v1.b;
-				var s1 = _v1.c;
-				if (step.$ === 'Loop') {
-					var newState = step.a;
-					var $temp$p = p || p1,
-						$temp$state = newState,
-						$temp$callback = callback,
-						$temp$s0 = s1;
-					p = $temp$p;
-					state = $temp$state;
-					callback = $temp$callback;
-					s0 = $temp$s0;
-					continue loopHelp;
-				} else {
-					var result = step.a;
-					return A3($elm$parser$Parser$Advanced$Good, p || p1, result, s1);
-				}
-			} else {
-				var p1 = _v1.a;
-				var x = _v1.b;
-				return A2($elm$parser$Parser$Advanced$Bad, p || p1, x);
-			}
-		}
-	});
-var $elm$parser$Parser$Advanced$loop = F2(
-	function (state, callback) {
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s) {
-				return A4($elm$parser$Parser$Advanced$loopHelp, false, state, callback, s);
-			});
-	});
-var $elm$parser$Parser$Advanced$Done = function (a) {
-	return {$: 'Done', a: a};
-};
-var $elm$parser$Parser$Advanced$Loop = function (a) {
-	return {$: 'Loop', a: a};
-};
-var $elm$parser$Parser$toAdvancedStep = function (step) {
-	if (step.$ === 'Loop') {
-		var s = step.a;
-		return $elm$parser$Parser$Advanced$Loop(s);
-	} else {
-		var a = step.a;
-		return $elm$parser$Parser$Advanced$Done(a);
-	}
-};
-var $elm$parser$Parser$loop = F2(
-	function (state, callback) {
-		return A2(
-			$elm$parser$Parser$Advanced$loop,
-			state,
-			function (s) {
-				return A2(
-					$elm$parser$Parser$map,
-					$elm$parser$Parser$toAdvancedStep,
-					callback(s));
-			});
-	});
-var $elm$core$Basics$min = F2(
-	function (x, y) {
-		return (_Utils_cmp(x, y) < 0) ? x : y;
-	});
-var $elm$parser$Parser$Advanced$Append = F2(
-	function (a, b) {
-		return {$: 'Append', a: a, b: b};
-	});
-var $elm$parser$Parser$Advanced$oneOfHelp = F3(
-	function (s0, bag, parsers) {
-		oneOfHelp:
-		while (true) {
-			if (!parsers.b) {
-				return A2($elm$parser$Parser$Advanced$Bad, false, bag);
-			} else {
-				var parse = parsers.a.a;
-				var remainingParsers = parsers.b;
-				var _v1 = parse(s0);
-				if (_v1.$ === 'Good') {
-					var step = _v1;
-					return step;
-				} else {
-					var step = _v1;
-					var p = step.a;
-					var x = step.b;
-					if (p) {
-						return step;
-					} else {
-						var $temp$s0 = s0,
-							$temp$bag = A2($elm$parser$Parser$Advanced$Append, bag, x),
-							$temp$parsers = remainingParsers;
-						s0 = $temp$s0;
-						bag = $temp$bag;
-						parsers = $temp$parsers;
-						continue oneOfHelp;
-					}
-				}
-			}
-		}
-	});
-var $elm$parser$Parser$Advanced$oneOf = function (parsers) {
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			return A3($elm$parser$Parser$Advanced$oneOfHelp, s, $elm$parser$Parser$Advanced$Empty, parsers);
-		});
-};
-var $elm$parser$Parser$oneOf = $elm$parser$Parser$Advanced$oneOf;
-var $elm$parser$Parser$Advanced$succeed = function (a) {
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			return A3($elm$parser$Parser$Advanced$Good, false, a, s);
-		});
-};
-var $elm$parser$Parser$succeed = $elm$parser$Parser$Advanced$succeed;
-var $author$project$Internal$Tools$ParserExtra$times = F3(
-	function (inf, sup, parser) {
-		var low = A2(
-			$elm$core$Basics$max,
-			0,
-			A2($elm$core$Basics$min, inf, sup));
-		var high = A2($elm$core$Basics$max, 0, sup);
-		return A2(
-			$elm$parser$Parser$loop,
-			_List_Nil,
-			function (tail) {
-				return (_Utils_cmp(
-					$elm$core$List$length(tail),
-					low) < 0) ? A2(
-					$elm$parser$Parser$keeper,
-					$elm$parser$Parser$succeed(
-						function (head) {
-							return $elm$parser$Parser$Loop(
-								A2($elm$core$List$cons, head, tail));
-						}),
-					parser) : ((_Utils_cmp(
-					$elm$core$List$length(tail),
-					high) < 0) ? $elm$parser$Parser$oneOf(
-					_List_fromArray(
-						[
-							A2(
-							$elm$parser$Parser$keeper,
-							$elm$parser$Parser$succeed(
-								function (head) {
-									return $elm$parser$Parser$Loop(
-										A2($elm$core$List$cons, head, tail));
-								}),
-							parser),
-							$elm$parser$Parser$succeed(
-							$elm$parser$Parser$Done(
-								$elm$core$List$reverse(tail)))
-						])) : $elm$parser$Parser$succeed(
-					$elm$parser$Parser$Done(
-						$elm$core$List$reverse(tail))));
-			});
-	});
-var $author$project$Internal$Grammar$UserId$validHistoricalUsernameChar = function (c) {
-	var i = $elm$core$Char$toCode(c);
-	return ((33 <= i) && (i <= 57)) || ((59 <= i) && (i <= 126));
-};
-var $author$project$Internal$Grammar$UserId$localpartParser = A2(
-	$elm$parser$Parser$map,
-	$elm$core$String$concat,
-	A3(
-		$author$project$Internal$Tools$ParserExtra$times,
-		1,
-		255,
-		$elm$parser$Parser$getChompedString(
-			$elm$parser$Parser$chompIf($author$project$Internal$Grammar$UserId$validHistoricalUsernameChar))));
-var $elm$core$Basics$abs = function (n) {
-	return (n < 0) ? (-n) : n;
-};
-var $elm$parser$Parser$Advanced$andThen = F2(
-	function (callback, _v0) {
-		var parseA = _v0.a;
-		return $elm$parser$Parser$Advanced$Parser(
-			function (s0) {
-				var _v1 = parseA(s0);
-				if (_v1.$ === 'Bad') {
-					var p = _v1.a;
-					var x = _v1.b;
-					return A2($elm$parser$Parser$Advanced$Bad, p, x);
-				} else {
-					var p1 = _v1.a;
-					var a = _v1.b;
-					var s1 = _v1.c;
-					var _v2 = callback(a);
-					var parseB = _v2.a;
-					var _v3 = parseB(s1);
-					if (_v3.$ === 'Bad') {
-						var p2 = _v3.a;
-						var x = _v3.b;
-						return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x);
-					} else {
-						var p2 = _v3.a;
-						var b = _v3.b;
-						var s2 = _v3.c;
-						return A3($elm$parser$Parser$Advanced$Good, p1 || p2, b, s2);
-					}
-				}
-			});
-	});
-var $elm$parser$Parser$andThen = $elm$parser$Parser$Advanced$andThen;
-var $elm$parser$Parser$Advanced$getOffset = $elm$parser$Parser$Advanced$Parser(
-	function (s) {
-		return A3($elm$parser$Parser$Advanced$Good, false, s.offset, s);
-	});
-var $elm$parser$Parser$getOffset = $elm$parser$Parser$Advanced$getOffset;
-var $elm$parser$Parser$Problem = function (a) {
-	return {$: 'Problem', a: a};
-};
-var $elm$parser$Parser$Advanced$problem = function (x) {
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			return A2(
-				$elm$parser$Parser$Advanced$Bad,
-				false,
-				A2($elm$parser$Parser$Advanced$fromState, s, x));
-		});
-};
-var $elm$parser$Parser$problem = function (msg) {
-	return $elm$parser$Parser$Advanced$problem(
-		$elm$parser$Parser$Problem(msg));
-};
-var $author$project$Internal$Tools$ParserExtra$maxLength = F2(
-	function (n, parser) {
-		return A2(
-			$elm$parser$Parser$andThen,
-			$elm$core$Basics$identity,
-			A2(
-				$elm$parser$Parser$keeper,
-				A2(
-					$elm$parser$Parser$keeper,
-					A2(
-						$elm$parser$Parser$keeper,
-						$elm$parser$Parser$succeed(
-							F3(
-								function (start, value, end) {
-									return (_Utils_cmp(
-										$elm$core$Basics$abs(end - start),
-										n) > 0) ? $elm$parser$Parser$problem('Parsed too much text!') : $elm$parser$Parser$succeed(value);
-								})),
-						$elm$parser$Parser$getOffset),
-					parser),
-				$elm$parser$Parser$getOffset));
-	});
-var $author$project$Internal$Grammar$ServerName$ServerName = F2(
-	function (host, port_) {
-		return {host: host, port_: port_};
-	});
-var $author$project$Internal$Grammar$ServerName$DNS = function (a) {
-	return {$: 'DNS', a: a};
-};
-var $author$project$Internal$Grammar$ServerName$IPv6 = function (a) {
-	return {$: 'IPv6', a: a};
-};
-var $elm$parser$Parser$Advanced$chompWhileHelp = F5(
-	function (isGood, offset, row, col, s0) {
-		chompWhileHelp:
-		while (true) {
-			var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, offset, s0.src);
-			if (_Utils_eq(newOffset, -1)) {
-				return A3(
-					$elm$parser$Parser$Advanced$Good,
-					_Utils_cmp(s0.offset, offset) < 0,
-					_Utils_Tuple0,
-					{col: col, context: s0.context, indent: s0.indent, offset: offset, row: row, src: s0.src});
-			} else {
-				if (_Utils_eq(newOffset, -2)) {
-					var $temp$isGood = isGood,
-						$temp$offset = offset + 1,
-						$temp$row = row + 1,
-						$temp$col = 1,
-						$temp$s0 = s0;
-					isGood = $temp$isGood;
-					offset = $temp$offset;
-					row = $temp$row;
-					col = $temp$col;
-					s0 = $temp$s0;
-					continue chompWhileHelp;
-				} else {
-					var $temp$isGood = isGood,
-						$temp$offset = newOffset,
-						$temp$row = row,
-						$temp$col = col + 1,
-						$temp$s0 = s0;
-					isGood = $temp$isGood;
-					offset = $temp$offset;
-					row = $temp$row;
-					col = $temp$col;
-					s0 = $temp$s0;
-					continue chompWhileHelp;
-				}
-			}
-		}
-	});
-var $elm$parser$Parser$Advanced$chompWhile = function (isGood) {
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			return A5($elm$parser$Parser$Advanced$chompWhileHelp, isGood, s.offset, s.row, s.col, s);
-		});
-};
-var $elm$parser$Parser$chompWhile = $elm$parser$Parser$Advanced$chompWhile;
-var $author$project$Internal$Grammar$ServerName$dnsNameParser = $elm$parser$Parser$getChompedString(
-	A2(
-		$elm$parser$Parser$ignorer,
-		$elm$parser$Parser$chompIf($elm$core$Char$isAlphaNum),
-		$elm$parser$Parser$chompWhile(
-			function (c) {
-				return $elm$core$Char$isAlphaNum(c) || (_Utils_eq(
-					c,
-					_Utils_chr('-')) || _Utils_eq(
-					c,
-					_Utils_chr('.')));
-			})));
-var $author$project$Internal$Grammar$ServerName$IPv6Address = F2(
-	function (front, back) {
-		return {back: back, front: front};
-	});
-var $elm$core$Char$isHexDigit = function (_char) {
-	var code = $elm$core$Char$toCode(_char);
-	return ((48 <= code) && (code <= 57)) || (((65 <= code) && (code <= 70)) || ((97 <= code) && (code <= 102)));
-};
-var $author$project$Internal$Grammar$ServerName$ipv6NumParser = A2(
-	$elm$parser$Parser$map,
-	$elm$core$String$concat,
-	A3(
-		$author$project$Internal$Tools$ParserExtra$times,
-		1,
-		4,
-		$elm$parser$Parser$getChompedString(
-			$elm$parser$Parser$chompIf($elm$core$Char$isHexDigit))));
-var $elm$parser$Parser$ExpectingSymbol = function (a) {
-	return {$: 'ExpectingSymbol', a: a};
-};
-var $elm$parser$Parser$Advanced$Token = F2(
-	function (a, b) {
-		return {$: 'Token', a: a, b: b};
-	});
-var $elm$parser$Parser$Advanced$isSubString = _Parser_isSubString;
-var $elm$parser$Parser$Advanced$token = function (_v0) {
-	var str = _v0.a;
-	var expecting = _v0.b;
-	var progress = !$elm$core$String$isEmpty(str);
-	return $elm$parser$Parser$Advanced$Parser(
-		function (s) {
-			var _v1 = A5($elm$parser$Parser$Advanced$isSubString, str, s.offset, s.row, s.col, s.src);
-			var newOffset = _v1.a;
-			var newRow = _v1.b;
-			var newCol = _v1.c;
-			return _Utils_eq(newOffset, -1) ? A2(
-				$elm$parser$Parser$Advanced$Bad,
-				false,
-				A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : A3(
-				$elm$parser$Parser$Advanced$Good,
-				progress,
-				_Utils_Tuple0,
-				{col: newCol, context: s.context, indent: s.indent, offset: newOffset, row: newRow, src: s.src});
-		});
-};
-var $elm$parser$Parser$Advanced$symbol = $elm$parser$Parser$Advanced$token;
-var $elm$parser$Parser$symbol = function (str) {
-	return $elm$parser$Parser$Advanced$symbol(
-		A2(
-			$elm$parser$Parser$Advanced$Token,
-			str,
-			$elm$parser$Parser$ExpectingSymbol(str)));
-};
-var $author$project$Internal$Grammar$ServerName$ipv6LeftParser = $elm$parser$Parser$oneOf(
-	_List_fromArray(
-		[
-			A2(
-			$elm$parser$Parser$ignorer,
-			$elm$parser$Parser$succeed(_List_Nil),
-			$elm$parser$Parser$symbol(':')),
-			A2(
-			$elm$parser$Parser$keeper,
-			A2(
-				$elm$parser$Parser$keeper,
-				$elm$parser$Parser$succeed($elm$core$Basics$apR),
-				A3(
-					$author$project$Internal$Tools$ParserExtra$times,
-					1,
-					7,
-					A2(
-						$elm$parser$Parser$ignorer,
-						$author$project$Internal$Grammar$ServerName$ipv6NumParser,
-						$elm$parser$Parser$symbol(':')))),
-			$elm$parser$Parser$oneOf(
-				_List_fromArray(
-					[
-						A2(
-						$elm$parser$Parser$keeper,
-						$elm$parser$Parser$succeed(
-							F2(
-								function (bottom, tail) {
-									return _Utils_ap(
-										tail,
-										_List_fromArray(
-											[bottom]));
-								})),
-						$author$project$Internal$Grammar$ServerName$ipv6NumParser),
-						$elm$parser$Parser$succeed($elm$core$Basics$identity)
-					])))
-		]));
-var $author$project$Internal$Grammar$ServerName$ipv6RightParser = function (n) {
-	return (n > 0) ? A2(
-		$elm$parser$Parser$keeper,
-		A2(
-			$elm$parser$Parser$ignorer,
-			$elm$parser$Parser$succeed($elm$core$Basics$identity),
-			$elm$parser$Parser$symbol(':')),
-		$elm$parser$Parser$oneOf(
-			_List_fromArray(
-				[
-					A2(
-					$elm$parser$Parser$keeper,
-					A2(
-						$elm$parser$Parser$keeper,
-						$elm$parser$Parser$succeed($elm$core$List$cons),
-						$author$project$Internal$Grammar$ServerName$ipv6NumParser),
-					A3(
-						$author$project$Internal$Tools$ParserExtra$times,
-						0,
-						n - 1,
-						A2(
-							$elm$parser$Parser$keeper,
-							A2(
-								$elm$parser$Parser$ignorer,
-								$elm$parser$Parser$succeed($elm$core$Basics$identity),
-								$elm$parser$Parser$symbol(':')),
-							$author$project$Internal$Grammar$ServerName$ipv6NumParser))),
-					$elm$parser$Parser$succeed(_List_Nil)
-				]))) : A2(
-		$elm$parser$Parser$ignorer,
-		$elm$parser$Parser$succeed(_List_Nil),
-		$elm$parser$Parser$symbol(':'));
-};
-var $author$project$Internal$Grammar$ServerName$ipv6Parser = A2(
-	$elm$parser$Parser$andThen,
-	function (front) {
-		return ($elm$core$List$length(front) < 8) ? A2(
-			$elm$parser$Parser$keeper,
-			$elm$parser$Parser$succeed(
-				$author$project$Internal$Grammar$ServerName$IPv6Address(front)),
-			$author$project$Internal$Grammar$ServerName$ipv6RightParser(
-				(8 - 1) - $elm$core$List$length(front))) : $elm$parser$Parser$succeed(
-			A2($author$project$Internal$Grammar$ServerName$IPv6Address, front, _List_Nil));
-	},
-	$author$project$Internal$Grammar$ServerName$ipv6LeftParser);
-var $author$project$Internal$Grammar$ServerName$hostnameParser = $elm$parser$Parser$oneOf(
-	_List_fromArray(
-		[
-			A2(
-			$elm$parser$Parser$keeper,
-			A2(
-				$elm$parser$Parser$ignorer,
-				$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$IPv6),
-				$elm$parser$Parser$symbol('[')),
-			A2(
-				$elm$parser$Parser$ignorer,
-				$author$project$Internal$Grammar$ServerName$ipv6Parser,
-				$elm$parser$Parser$symbol(']'))),
-			A2(
-			$elm$parser$Parser$keeper,
-			$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$DNS),
-			$author$project$Internal$Grammar$ServerName$dnsNameParser)
-		]));
-var $elm$core$Basics$pow = _Basics_pow;
-var $author$project$Internal$Grammar$ServerName$portParser = A2(
-	$elm$parser$Parser$andThen,
-	function (v) {
-		var _v0 = $elm$core$String$toInt(v);
-		if (_v0.$ === 'Just') {
-			var i = _v0.a;
-			return ((0 <= i) && (_Utils_cmp(
-				i,
-				A2($elm$core$Basics$pow, 2, 16) - 1) < 1)) ? $elm$parser$Parser$succeed(i) : $elm$parser$Parser$problem('Port out of range: ' + v);
-		} else {
-			return $elm$parser$Parser$problem('Not a port number');
-		}
-	},
-	$elm$parser$Parser$getChompedString(
-		A2(
-			$elm$parser$Parser$ignorer,
-			$elm$parser$Parser$chompIf($elm$core$Char$isDigit),
-			$elm$parser$Parser$chompWhile($elm$core$Char$isDigit))));
-var $author$project$Internal$Grammar$ServerName$serverNameParser = A2(
-	$elm$parser$Parser$keeper,
-	A2(
-		$elm$parser$Parser$keeper,
-		$elm$parser$Parser$succeed($author$project$Internal$Grammar$ServerName$ServerName),
-		$author$project$Internal$Grammar$ServerName$hostnameParser),
-	$elm$parser$Parser$oneOf(
-		_List_fromArray(
-			[
-				A2(
-				$elm$parser$Parser$keeper,
-				A2(
-					$elm$parser$Parser$ignorer,
-					$elm$parser$Parser$succeed($elm$core$Maybe$Just),
-					$elm$parser$Parser$symbol(':')),
-				$author$project$Internal$Grammar$ServerName$portParser),
-				$elm$parser$Parser$succeed($elm$core$Maybe$Nothing)
-			])));
-var $author$project$Internal$Grammar$UserId$userIdParser = A2(
-	$author$project$Internal$Tools$ParserExtra$maxLength,
-	255,
-	A2(
-		$elm$parser$Parser$keeper,
-		A2(
-			$elm$parser$Parser$keeper,
-			A2(
-				$elm$parser$Parser$ignorer,
-				$elm$parser$Parser$succeed($author$project$Internal$Grammar$UserId$UserID),
-				$elm$parser$Parser$symbol('@')),
-			A2(
-				$elm$parser$Parser$ignorer,
-				$author$project$Internal$Grammar$UserId$localpartParser,
-				$elm$parser$Parser$symbol(':'))),
-		$author$project$Internal$Grammar$ServerName$serverNameParser));
-var $author$project$Internal$Grammar$UserId$fromString = A2(
-	$elm$core$Basics$composeR,
-	$elm$parser$Parser$run(
-		A2($elm$parser$Parser$ignorer, $author$project$Internal$Grammar$UserId$userIdParser, $elm$parser$Parser$end)),
-	$elm$core$Result$toMaybe);
-var $author$project$Internal$Values$User$fromString = $author$project$Internal$Grammar$UserId$fromString;
-var $author$project$Internal$Tools$Hashdict$Hashdict = function (a) {
-	return {$: 'Hashdict', a: a};
-};
-var $miniBill$elm_fast_dict$Internal$Dict = F2(
-	function (a, b) {
-		return {$: 'Dict', a: a, b: b};
-	});
-var $miniBill$elm_fast_dict$Internal$Leaf = {$: 'Leaf'};
-var $miniBill$elm_fast_dict$FastDict$empty = A2($miniBill$elm_fast_dict$Internal$Dict, 0, $miniBill$elm_fast_dict$Internal$Leaf);
-var $author$project$Internal$Tools$Hashdict$empty = function (hash) {
-	return $author$project$Internal$Tools$Hashdict$Hashdict(
-		{hash: hash, values: $miniBill$elm_fast_dict$FastDict$empty});
-};
-var $author$project$Internal$Values$Context$init = function (sn) {
-	return {
-		accessTokens: $author$project$Internal$Tools$Hashdict$empty(
-			function ($) {
-				return $.value;
-			}),
-		baseUrl: $elm$core$Maybe$Nothing,
-		deviceId: $elm$core$Maybe$Nothing,
-		now: $elm$core$Maybe$Nothing,
-		password: $elm$core$Maybe$Nothing,
-		refreshToken: $elm$core$Maybe$Nothing,
-		serverName: sn,
-		suggestedAccessToken: $elm$core$Maybe$Nothing,
-		transaction: $elm$core$Maybe$Nothing,
-		username: $elm$core$Maybe$Nothing,
-		versions: $elm$core$Maybe$Nothing
-	};
-};
-var $author$project$Internal$Config$Default$currentVersion = 'beta 3.2.0';
-var $author$project$Internal$Config$Default$deviceName = 'Elm SDK (' + ($author$project$Internal$Config$Default$currentVersion + ')');
-var $author$project$Internal$Config$Default$removePasswordOnLogin = true;
-var $author$project$Internal$Config$Default$syncTime = 30 * 1000;
-var $author$project$Internal$Values$Settings$init = {currentVersion: $author$project$Internal$Config$Default$currentVersion, deviceName: $author$project$Internal$Config$Default$deviceName, removePasswordOnLogin: $author$project$Internal$Config$Default$removePasswordOnLogin, syncTime: $author$project$Internal$Config$Default$syncTime};
-var $author$project$Internal$Values$Envelope$init = function (data) {
-	return {
-		content: data.content,
-		context: $author$project$Internal$Values$Context$init(data.serverName),
-		settings: $author$project$Internal$Values$Settings$init
-	};
-};
-var $author$project$Internal$Values$Vault$init = function (mUser) {
-	return {
-		accountData: $miniBill$elm_fast_dict$FastDict$empty,
-		rooms: $author$project$Internal$Tools$Hashdict$empty(
-			function ($) {
-				return $.roomId;
-			}),
-		user: mUser
-	};
-};
-var $author$project$Matrix$fromUserId = A2(
-	$elm$core$Basics$composeR,
-	$author$project$Internal$Values$User$fromString,
-	A2(
-		$elm$core$Basics$composeR,
-		$elm$core$Maybe$map(
-			function (u) {
-				return $author$project$Internal$Values$Envelope$init(
-					{
-						content: $author$project$Internal$Values$Vault$init(
-							$elm$core$Maybe$Just(u)),
-						serverName: 'https://' + $author$project$Internal$Values$User$domain(u)
-					});
-			}),
-		$elm$core$Maybe$map($author$project$Types$Vault)));
-var $author$project$Internal$Values$Envelope$mapContext = F2(
-	function (f, data) {
-		return _Utils_update(
-			data,
-			{
-				context: f(data.context)
-			});
-	});
-var $author$project$Matrix$Settings$setPassword = F2(
-	function (password, _v0) {
-		var vault = _v0.a;
-		return $author$project$Types$Vault(
-			A2(
-				$author$project$Internal$Values$Envelope$mapContext,
-				function (c) {
-					return _Utils_update(
-						c,
-						{
-							password: $elm$core$Maybe$Just(password)
-						});
-				},
-				vault));
-	});
-var $author$project$Main$init = function (_v0) {
-	return _Utils_Tuple2(
-		{
-			num: 0,
-			roomId: '!JINVwXzMRWBeidMDDa:matrix.directory',
-			text: '',
-			vault: A2(
-				$elm$core$Maybe$map,
-				$author$project$Matrix$Settings$setPassword('ZYTAscs65Xz66h'),
-				$author$project$Matrix$fromUserId('@elm_sdk_1:matrix.directory'))
-		},
-		$elm$core$Platform$Cmd$none);
-};
-var $elm$core$Platform$Sub$batch = _Platform_batch;
-var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
-var $author$project$Main$subscriptions = function (_v0) {
-	return $elm$core$Platform$Sub$none;
-};
-var $author$project$Main$SentEvent = function (a) {
-	return {$: 'SentEvent', a: a};
-};
-var $author$project$Types$VaultUpdate = function (a) {
-	return {$: 'VaultUpdate', a: a};
-};
-var $author$project$Internal$Values$Context$APIContext = function (a) {
-	return {$: 'APIContext', a: a};
-};
-var $author$project$Internal$Config$Leaks$accessToken = 'elm-sdk-placeholder-access-token-leaks';
-var $author$project$Internal$Config$Leaks$baseUrl = 'elm-sdk-placeholder-baseurl-leaks.example.org';
-var $elm$time$Time$Posix = function (a) {
-	return {$: 'Posix', a: a};
-};
-var $elm$time$Time$millisToPosix = $elm$time$Time$Posix;
-var $elm$time$Time$posixToMillis = function (_v0) {
-	var millis = _v0.a;
-	return millis;
-};
-var $author$project$Internal$Tools$Timestamp$add = function (m) {
-	return A2(
-		$elm$core$Basics$composeR,
-		$elm$time$Time$posixToMillis,
-		A2(
-			$elm$core$Basics$composeR,
-			$elm$core$Basics$add(m),
-			$elm$time$Time$millisToPosix));
-};
-var $elm$core$List$head = function (list) {
-	if (list.b) {
-		var x = list.a;
-		var xs = list.b;
-		return $elm$core$Maybe$Just(x);
-	} else {
-		return $elm$core$Maybe$Nothing;
-	}
-};
-var $elm$core$List$sortBy = _List_sortBy;
-var $author$project$Internal$Tools$Timestamp$toMs = $elm$time$Time$posixToMillis;
-var $miniBill$elm_fast_dict$FastDict$foldrInner = F3(
-	function (func, acc, t) {
-		foldrInner:
-		while (true) {
-			if (t.$ === 'Leaf') {
-				return acc;
-			} else {
-				var key = t.b;
-				var value = t.c;
-				var left = t.d;
-				var right = t.e;
-				var $temp$func = func,
-					$temp$acc = A3(
-					func,
-					key,
-					value,
-					A3($miniBill$elm_fast_dict$FastDict$foldrInner, func, acc, right)),
-					$temp$t = left;
-				func = $temp$func;
-				acc = $temp$acc;
-				t = $temp$t;
-				continue foldrInner;
-			}
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$foldr = F3(
-	function (func, acc, _v0) {
-		var dict = _v0.b;
-		return A3($miniBill$elm_fast_dict$FastDict$foldrInner, func, acc, dict);
-	});
-var $miniBill$elm_fast_dict$FastDict$values = function (dict) {
-	return A3(
-		$miniBill$elm_fast_dict$FastDict$foldr,
-		F3(
-			function (_v0, value, valueList) {
-				return A2($elm$core$List$cons, value, valueList);
-			}),
-		_List_Nil,
-		dict);
-};
-var $author$project$Internal$Tools$Hashdict$values = function (_v0) {
-	var h = _v0.a;
-	return $miniBill$elm_fast_dict$FastDict$values(h.values);
-};
-var $author$project$Internal$Values$Context$mostPopularToken = function (c) {
-	var _v0 = c.suggestedAccessToken;
-	if (_v0.$ === 'Just') {
-		return c.suggestedAccessToken;
-	} else {
-		return A2(
-			$elm$core$Maybe$map,
-			function ($) {
-				return $.value;
-			},
-			$elm$core$List$head(
-				A2(
-					$elm$core$List$sortBy,
-					function (token) {
-						var _v1 = token.expiryMs;
-						if (_v1.$ === 'Nothing') {
-							return _Utils_Tuple2(
-								0,
-								$author$project$Internal$Tools$Timestamp$toMs(token.created));
-						} else {
-							var e = _v1.a;
-							return _Utils_Tuple2(
-								1,
-								$author$project$Internal$Tools$Timestamp$toMs(
-									A2($author$project$Internal$Tools$Timestamp$add, e, token.created)));
-						}
-					},
-					$author$project$Internal$Tools$Hashdict$values(c.accessTokens))));
-	}
-};
-var $author$project$Internal$Config$Leaks$transaction = 'elm-sdk-placeholder-transaction-leaks';
-var $elm$core$Set$Set_elm_builtin = function (a) {
-	return {$: 'Set_elm_builtin', a: a};
-};
-var $elm$core$Dict$singleton = F2(
-	function (key, value) {
-		return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, key, value, $elm$core$Dict$RBEmpty_elm_builtin, $elm$core$Dict$RBEmpty_elm_builtin);
-	});
-var $elm$core$Set$singleton = function (key) {
-	return $elm$core$Set$Set_elm_builtin(
-		A2($elm$core$Dict$singleton, key, _Utils_Tuple0));
-};
-var $author$project$Internal$Config$Leaks$versions = {
-	unstableFeatures: $elm$core$Set$singleton('elm-sdk-placeholder-versions-unstableFeatures-leaks'),
-	versions: _List_fromArray(
-		['elm-sdk-placeholder-versions-versions-leaks'])
-};
-var $author$project$Internal$Values$Context$apiFormat = function (context) {
-	return $author$project$Internal$Values$Context$APIContext(
-		{
-			accessToken: A2(
-				$elm$core$Maybe$withDefault,
-				$author$project$Internal$Config$Leaks$accessToken,
-				$author$project$Internal$Values$Context$mostPopularToken(context)),
-			baseUrl: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$baseUrl, context.baseUrl),
-			context: context,
-			now: A2(
-				$elm$core$Maybe$withDefault,
-				$elm$time$Time$millisToPosix(0),
-				context.now),
-			transaction: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$transaction, context.transaction),
-			versions: A2($elm$core$Maybe$withDefault, $author$project$Internal$Config$Leaks$versions, context.versions)
-		});
-};
-var $elm$core$Task$onError = _Scheduler_onError;
-var $author$project$Internal$Api$Chain$toTask = F2(
-	function (chain, context) {
-		return A2(
-			$elm$core$Task$map,
-			function (backpack) {
-				return {logs: backpack.logs, messages: backpack.messages};
-			},
-			A2(
-				$elm$core$Task$onError,
-				function (e) {
-					return $elm$core$Task$succeed(
-						$elm$core$Basics$never(e.error));
-				},
-				chain(context)));
-	});
-var $author$project$Internal$Api$Task$run = F3(
-	function (toMsg, task, context) {
-		return A2(
-			$elm$core$Task$perform,
-			toMsg,
-			A2($author$project$Internal$Api$Chain$toTask, task, context));
-	});
-var $elm$core$Task$fail = _Scheduler_fail;
-var $elm$core$Task$mapError = F2(
-	function (convert, task) {
-		return A2(
-			$elm$core$Task$onError,
-			A2($elm$core$Basics$composeL, $elm$core$Task$fail, convert),
-			task);
-	});
-var $author$project$Internal$Api$Chain$andThen = F2(
-	function (f2, f1) {
-		return function (context) {
-			return A2(
-				$elm$core$Task$andThen,
-				function (old) {
-					return A2(
-						$elm$core$Task$mapError,
-						function (_new) {
-							return {
-								error: _new.error,
-								logs: A2($elm$core$List$append, old.logs, _new.logs),
-								messages: A2($elm$core$List$append, old.messages, _new.messages)
-							};
-						},
-						A2(
-							$elm$core$Task$map,
-							function (_new) {
-								return {
-									contextChange: A2($elm$core$Basics$composeR, old.contextChange, _new.contextChange),
-									logs: A2($elm$core$List$append, old.logs, _new.logs),
-									messages: A2($elm$core$List$append, old.messages, _new.messages)
-								};
-							},
-							f2(
-								old.contextChange(context))));
-				},
-				f1(context));
-		};
-	});
-var $author$project$Internal$Api$Chain$succeed = F2(
-	function (piece, _v0) {
-		return $elm$core$Task$succeed(piece);
-	});
-var $author$project$Internal$Api$Chain$onError = F2(
-	function (onErr, f) {
-		return function (context) {
-			return A2(
-				$elm$core$Task$onError,
-				function (old) {
-					return A3(
-						$elm$core$Basics$apR,
-						$author$project$Internal$Api$Chain$succeed(
-							{contextChange: $elm$core$Basics$identity, logs: old.logs, messages: old.messages}),
-						$author$project$Internal$Api$Chain$andThen(
-							onErr(old.error)),
-						context);
-				},
-				f(context));
-		};
-	});
-var $author$project$Internal$Api$Chain$catchWith = F2(
-	function (onErr, f) {
-		return A2(
-			$author$project$Internal$Api$Chain$onError,
-			function (e) {
-				return $author$project$Internal$Api$Chain$succeed(
-					onErr(e));
-			},
-			f);
-	});
-var $author$project$Internal$Config$Log$Log = F2(
-	function (channel, content) {
-		return {channel: channel, content: content};
-	});
-var $author$project$Internal$Config$Log$caughtError = 'caught-error';
-var $author$project$Internal$Config$Log$debug = 'debug';
-var $author$project$Internal$Config$Log$error = 'error';
-var $author$project$Internal$Config$Log$info = 'info';
-var $author$project$Internal$Config$Log$securityWarn = 'security-warn';
-var $author$project$Internal$Config$Log$warn = 'warn';
-var $author$project$Internal$Config$Log$log = {
-	caughtError: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$caughtError),
-	debug: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$debug),
-	error: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$error),
-	info: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$info),
-	securityWarn: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$securityWarn),
-	warn: $author$project$Internal$Config$Log$Log($author$project$Internal$Config$Log$warn)
-};
-var $author$project$Internal$Values$Context$reset = function (_v0) {
-	var c = _v0.a;
-	return $author$project$Internal$Values$Context$APIContext(c);
-};
-var $author$project$Internal$Api$Task$finishTask = function (uftask) {
-	return A2(
-		$author$project$Internal$Api$Chain$catchWith,
-		function (e) {
-			switch (e.$) {
-				case 'MissingPassword':
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.error('Cannot log in - password is missing')
-							]),
-						messages: _List_Nil
-					};
-				case 'MissingUsername':
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.error('Cannot log in - username is missing')
-							]),
-						messages: _List_Nil
-					};
-				case 'NoSupportedVersion':
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.error('No supported version is available to complete the API interaction.')
-							]),
-						messages: _List_Nil
-					};
-				case 'ServerReturnsBadJSON':
-					var t = e.a;
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.error('The server returned invalid JSON: ' + t)
-							]),
-						messages: _List_Nil
-					};
-				case 'ServerReturnsError':
-					var name = e.a;
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.error('The server returns an error: ' + name)
-							]),
-						messages: _List_Nil
-					};
-				default:
-					return {
-						contextChange: $author$project$Internal$Values$Context$reset,
-						logs: _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.warn('Encountered unhandled error')
-							]),
-						messages: _List_Nil
-					};
-			}
-		},
-		A2(
-			$author$project$Internal$Api$Chain$andThen,
-			$author$project$Internal$Api$Chain$succeed(
-				{contextChange: $author$project$Internal$Values$Context$reset, logs: _List_Nil, messages: _List_Nil}),
-			uftask));
-};
-var $author$project$Internal$Api$Request$MissingPassword = {$: 'MissingPassword'};
-var $author$project$Internal$Api$Request$MissingUsername = {$: 'MissingUsername'};
-var $author$project$Internal$Api$Chain$fail = F2(
-	function (e, _v0) {
-		return $elm$core$Task$fail(
-			{error: e, logs: _List_Nil, messages: _List_Nil});
-	});
-var $author$project$Internal$Values$Context$fromApiFormat = function (_v0) {
-	var c = _v0.a;
-	return c.context;
-};
-var $author$project$Internal$Api$Api$SpecVersion = function (a) {
-	return {$: 'SpecVersion', a: a};
-};
-var $author$project$Internal$Api$Api$VC = function (a) {
-	return {$: 'VC', a: a};
-};
-var $author$project$Internal$Api$Api$forVersion = F3(
-	function (name, chain, prev) {
-		return $author$project$Internal$Api$Api$VC(
-			{
-				chain: chain,
-				name: $author$project$Internal$Api$Api$SpecVersion(name),
-				prev: $elm$core$Maybe$Just(prev)
-			});
-	});
-var $author$project$Internal$Values$Envelope$ContentUpdate = function (a) {
-	return {$: 'ContentUpdate', a: a};
-};
-var $author$project$Internal$Values$Envelope$More = function (a) {
-	return {$: 'More', a: a};
-};
-var $author$project$Internal$Values$Envelope$Optional = function (a) {
-	return {$: 'Optional', a: a};
-};
-var $author$project$Internal$Values$Envelope$RemovePasswordIfNecessary = {$: 'RemovePasswordIfNecessary'};
-var $author$project$Internal$Values$Envelope$SetAccessToken = function (a) {
-	return {$: 'SetAccessToken', a: a};
-};
-var $author$project$Internal$Values$Vault$SetUser = function (a) {
-	return {$: 'SetUser', a: a};
-};
-var $author$project$Internal$Api$Request$BodyParam = F2(
-	function (a, b) {
-		return {$: 'BodyParam', a: a, b: b};
-	});
-var $author$project$Internal$Api$Request$bodyValue = F3(
-	function (key, value, _v0) {
-		return A2($author$project$Internal$Api$Request$BodyParam, key, value);
-	});
-var $author$project$Internal$Tools$Json$encode = function (_v0) {
-	var data = _v0.a;
-	return data.encoder;
-};
-var $author$project$Internal$Tools$Json$Coder = function (a) {
-	return {$: 'Coder', a: a};
-};
-var $author$project$Internal$Tools$Json$DocsString = {$: 'DocsString'};
-var $author$project$Internal$Tools$Json$empty = function (x) {
-	return _Utils_Tuple2(x, _List_Nil);
-};
-var $author$project$Internal$Tools$Json$string = $author$project$Internal$Tools$Json$Coder(
-	{
-		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$string),
-		docs: $author$project$Internal$Tools$Json$DocsString,
-		encoder: $elm$json$Json$Encode$string
-	});
-var $author$project$Internal$Api$Request$bodyString = F2(
-	function (key, value) {
-		return A2(
-			$author$project$Internal$Api$Request$bodyValue,
-			key,
-			A2($author$project$Internal$Tools$Json$encode, $author$project$Internal$Tools$Json$string, value));
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV1 = F4(
-	function (accessToken, homeserver, refreshToken, user) {
-		return {accessToken: accessToken, homeserver: homeserver, refreshToken: refreshToken, user: user};
-	});
-var $elm$core$String$any = _String_any;
-var $author$project$Internal$Grammar$UserId$isHistorical = function (_v0) {
-	var localpart = _v0.localpart;
-	return A2(
-		$elm$core$String$any,
-		function (c) {
-			var i = $elm$core$Char$toCode(c);
-			return !(((97 <= i) && (i <= 122)) || $elm$core$Char$isAlpha(c));
-		},
-		localpart);
-};
-var $author$project$Internal$Tools$Json$DocsParser = function (a) {
-	return {$: 'DocsParser', a: a};
-};
-var $elm$json$Json$Decode$andThen = _Json_andThen;
-var $elm$json$Json$Decode$fail = _Json_fail;
-var $author$project$Internal$Tools$Json$parser = function (_v0) {
-	var toString = _v0.toString;
-	var p = _v0.p;
-	var name = _v0.name;
-	return $author$project$Internal$Tools$Json$Coder(
-		{
-			decoder: A2(
-				$elm$json$Json$Decode$andThen,
-				function (v) {
-					var _v1 = A2($elm$parser$Parser$run, p, v);
-					if (_v1.$ === 'Err') {
-						return $elm$json$Json$Decode$fail('Failed to parse ' + (name + '!'));
-					} else {
-						var o = _v1.a;
-						return $elm$json$Json$Decode$succeed(o);
-					}
-				},
-				$elm$json$Json$Decode$string),
-			docs: $author$project$Internal$Tools$Json$DocsParser(name),
-			encoder: A2($elm$core$Basics$composeR, toString, $elm$json$Json$Encode$string)
-		});
-};
-var $author$project$Internal$Grammar$UserId$toString = function (_v0) {
-	var domain = _v0.domain;
-	var localpart = _v0.localpart;
-	return $elm$core$String$concat(
-		_List_fromArray(
-			[
-				'@',
-				localpart,
-				':',
-				$author$project$Internal$Grammar$ServerName$toString(domain)
-			]));
-};
-var $author$project$Internal$Values$User$coder = $author$project$Internal$Tools$Json$parser(
-	{
-		name: 'Username',
-		p: A2(
-			$elm$parser$Parser$andThen,
-			function (name) {
-				return $elm$parser$Parser$succeed(
-					_Utils_Tuple2(
-						name,
-						$author$project$Internal$Grammar$UserId$isHistorical(name) ? _List_fromArray(
-							[
-								$author$project$Internal$Config$Log$log.warn('Historical user found')
-							]) : _List_Nil));
-			},
-			$author$project$Internal$Grammar$UserId$userIdParser),
-		toString: $author$project$Internal$Grammar$UserId$toString
-	});
-var $author$project$Internal$Tools$Json$Field = function (a) {
-	return {$: 'Field', a: a};
-};
-var $author$project$Internal$Tools$Json$OptionalField = {$: 'OptionalField'};
-var $author$project$Internal$Tools$Json$OptionalFieldWithDefault = function (a) {
-	return {$: 'OptionalFieldWithDefault', a: a};
-};
-var $author$project$Internal$Tools$Json$RequiredField = {$: 'RequiredField'};
-var $elm$json$Json$Decode$oneOf = _Json_oneOf;
-var $elm$json$Json$Decode$maybe = function (decoder) {
-	return $elm$json$Json$Decode$oneOf(
-		_List_fromArray(
-			[
-				A2($elm$json$Json$Decode$map, $elm$core$Maybe$Just, decoder),
-				$elm$json$Json$Decode$succeed($elm$core$Maybe$Nothing)
-			]));
-};
-var $elm$json$Json$Decode$null = _Json_decodeNull;
-var $author$project$Internal$Tools$DecodeExtra$opField = F2(
-	function (fieldName, decoder) {
-		return A2(
-			$elm$json$Json$Decode$andThen,
-			function (v) {
-				if (v.$ === 'Just') {
-					return A2(
-						$elm$json$Json$Decode$field,
-						fieldName,
-						$elm$json$Json$Decode$oneOf(
-							_List_fromArray(
-								[
-									$elm$json$Json$Decode$null($elm$core$Maybe$Nothing),
-									A2($elm$json$Json$Decode$map, $elm$core$Maybe$Just, decoder)
-								])));
-				} else {
-					return $elm$json$Json$Decode$succeed($elm$core$Maybe$Nothing);
-				}
-			},
-			$elm$json$Json$Decode$maybe(
-				A2($elm$json$Json$Decode$field, fieldName, $elm$json$Json$Decode$value)));
-	});
-var $author$project$Internal$Tools$DecodeExtra$opFieldWithDefault = F3(
-	function (fieldName, _default, decoder) {
-		return A2(
-			$elm$json$Json$Decode$map,
-			$elm$core$Maybe$withDefault(_default),
-			A2($author$project$Internal$Tools$DecodeExtra$opField, fieldName, decoder));
-	});
-var $author$project$Internal$Tools$Json$field = {
-	optional: {
-		value: function (_v0) {
-			var coder = _v0.coder;
-			var description = _v0.description;
-			var toField = _v0.toField;
-			var fieldName = _v0.fieldName;
-			var docs = coder.a.docs;
-			var decoder = coder.a.decoder;
-			var encoder = coder.a.encoder;
-			return $author$project$Internal$Tools$Json$Field(
-				{
-					decoder: A2(
-						$elm$json$Json$Decode$map,
-						function (out) {
-							if (out.$ === 'Just') {
-								var _v3 = out.a;
-								var v = _v3.a;
-								var l = _v3.b;
-								return _Utils_Tuple2(
-									$elm$core$Maybe$Just(v),
-									l);
-							} else {
-								return _Utils_Tuple2($elm$core$Maybe$Nothing, _List_Nil);
-							}
-						},
-						A2($author$project$Internal$Tools$DecodeExtra$opField, fieldName, decoder)),
-					description: description,
-					docs: docs,
-					encoder: $elm$core$Maybe$map(encoder),
-					fieldName: fieldName,
-					requiredness: $author$project$Internal$Tools$Json$OptionalField,
-					toField: toField
-				});
-		},
-		withDefault: function (_v4) {
-			var defaultToString = _v4.defaultToString;
-			var _default = _v4._default;
-			var coder = _v4.coder;
-			var description = _v4.description;
-			var toField = _v4.toField;
-			var fieldName = _v4.fieldName;
-			var docs = coder.a.docs;
-			var decoder = coder.a.decoder;
-			var encoder = coder.a.encoder;
-			return $author$project$Internal$Tools$Json$Field(
-				{
-					decoder: A3($author$project$Internal$Tools$DecodeExtra$opFieldWithDefault, fieldName, _default, decoder),
-					description: description,
-					docs: docs,
-					encoder: function (o) {
-						var v = encoder(o);
-						return _Utils_eq(
-							A2($elm$json$Json$Encode$encode, 0, v),
-							A2(
-								$elm$json$Json$Encode$encode,
-								0,
-								encoder(_default.a))) ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(v);
-					},
-					fieldName: fieldName,
-					requiredness: $author$project$Internal$Tools$Json$OptionalFieldWithDefault(
-						defaultToString(_default.a)),
-					toField: toField
-				});
-		}
-	},
-	required: function (_v6) {
-		var coder = _v6.coder;
-		var description = _v6.description;
-		var toField = _v6.toField;
-		var fieldName = _v6.fieldName;
-		var docs = coder.a.docs;
-		var decoder = coder.a.decoder;
-		var encoder = coder.a.encoder;
-		return $author$project$Internal$Tools$Json$Field(
-			{
-				decoder: A2($elm$json$Json$Decode$field, fieldName, decoder),
-				description: description,
-				docs: docs,
-				encoder: A2($elm$core$Basics$composeR, encoder, $elm$core$Maybe$Just),
-				fieldName: fieldName,
-				requiredness: $author$project$Internal$Tools$Json$RequiredField,
-				toField: toField
-			});
-	}
-};
-var $author$project$Internal$Tools$Json$DocsObject = function (a) {
-	return {$: 'DocsObject', a: a};
-};
-var $elm$json$Json$Decode$map4 = _Json_map4;
-var $elm$core$Tuple$mapSecond = F2(
-	function (func, _v0) {
-		var x = _v0.a;
-		var y = _v0.b;
-		return _Utils_Tuple2(
-			x,
-			func(y));
-	});
-var $author$project$Internal$Tools$EncodeExtra$maybeObject = A2(
-	$elm$core$Basics$composeR,
-	$elm$core$List$filterMap(
-		function (_v0) {
-			var name = _v0.a;
-			var value = _v0.b;
-			if (value.$ === 'Just') {
-				var v = value.a;
-				return $elm$core$Maybe$Just(
-					_Utils_Tuple2(name, v));
-			} else {
-				return $elm$core$Maybe$Nothing;
-			}
-		}),
-	$elm$json$Json$Encode$object);
-var $author$project$Internal$Tools$Json$objectEncoder = F2(
-	function (items, object) {
-		return $author$project$Internal$Tools$EncodeExtra$maybeObject(
-			A2(
-				$elm$core$List$map,
-				$elm$core$Tuple$mapSecond(
-					function (f) {
-						return f(object);
-					}),
-				items));
-	});
-var $author$project$Internal$Tools$Json$toDecoderField = function (_v0) {
-	var data = _v0.a;
-	return data.decoder;
-};
-var $author$project$Internal$Tools$Json$toDocsField = function (x) {
-	var requiredness = x.a.requiredness;
-	var docs = x.a.docs;
-	var description = x.a.description;
-	var fieldName = x.a.fieldName;
-	return {content: docs, description: description, field: fieldName, required: requiredness};
-};
-var $author$project$Internal$Tools$Json$toEncodeField = function (_v0) {
-	var data = _v0.a;
-	return _Utils_Tuple2(
-		data.fieldName,
-		A2($elm$core$Basics$composeR, data.toField, data.encoder));
-};
-var $author$project$Internal$Tools$Json$object4 = F5(
-	function (_v0, fa, fb, fc, fd) {
-		var init = _v0.init;
-		var description = _v0.description;
-		var name = _v0.name;
-		return $author$project$Internal$Tools$Json$Coder(
-			{
-				decoder: A5(
-					$elm$json$Json$Decode$map4,
-					F4(
-						function (_v1, _v2, _v3, _v4) {
-							var a = _v1.a;
-							var la = _v1.b;
-							var b = _v2.a;
-							var lb = _v2.b;
-							var c = _v3.a;
-							var lc = _v3.b;
-							var d = _v4.a;
-							var ld = _v4.b;
-							return _Utils_Tuple2(
-								A4(init, a, b, c, d),
-								$elm$core$List$concat(
-									_List_fromArray(
-										[la, lb, lc, ld])));
-						}),
-					$author$project$Internal$Tools$Json$toDecoderField(fa),
-					$author$project$Internal$Tools$Json$toDecoderField(fb),
-					$author$project$Internal$Tools$Json$toDecoderField(fc),
-					$author$project$Internal$Tools$Json$toDecoderField(fd)),
-				docs: $author$project$Internal$Tools$Json$DocsObject(
-					{
-						description: description,
-						keys: _List_fromArray(
-							[
-								$author$project$Internal$Tools$Json$toDocsField(fa),
-								$author$project$Internal$Tools$Json$toDocsField(fb),
-								$author$project$Internal$Tools$Json$toDocsField(fc),
-								$author$project$Internal$Tools$Json$toDocsField(fd)
-							]),
-						name: name
-					}),
-				encoder: $author$project$Internal$Tools$Json$objectEncoder(
-					_List_fromArray(
-						[
-							$author$project$Internal$Tools$Json$toEncodeField(fa),
-							$author$project$Internal$Tools$Json$toEncodeField(fb),
-							$author$project$Internal$Tools$Json$toEncodeField(fc),
-							$author$project$Internal$Tools$Json$toEncodeField(fd)
-						]))
-			});
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV1 = A5(
-	$author$project$Internal$Tools$Json$object4,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/r0.0.0/client_server.html#post-matrix-client-r0-login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV1,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests. The access token may expire at some point, and if so, it SHOULD come with a refresh_token. There is no specific error message to indicate that a request has failed because an access token has expired; instead, if a client has reason to believe its access token is valid, and it receives an auth error, they should attempt to refresh for a new token on failure, and retry the request with the new token.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['A refresh_token may be exchanged for a new access_token using the /tokenrefresh API endpoint.']),
-			fieldName: 'refresh_token',
-			toField: function ($) {
-				return $.refreshToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}));
-var $author$project$Internal$Values$Context$getNow = function (_v0) {
-	var c = _v0.a;
-	return c.now;
-};
-var $author$project$Internal$Config$Text$logs = {
-	baseUrlFound: F2(
-		function (url, baseUrl) {
-			return $elm$core$String$concat(
-				_List_fromArray(
-					['Found baseURL of ', url, ' at address ', baseUrl]));
-		}),
-	getEventId: $elm$core$Basics$append('Received event with id = '),
-	getNow: function (now) {
-		return $elm$core$String$concat(
-			_List_fromArray(
-				[
-					'Identified current time at Unix time ',
-					$elm$core$String$fromInt(now)
-				]));
-	},
-	httpRequest: F2(
-		function (method, url) {
-			return $elm$core$String$concat(
-				_List_fromArray(
-					['Matrix HTTP: ', method, ' ', url]));
-		}),
-	invitedUser: F2(
-		function (userId, roomId) {
-			return $elm$core$String$concat(
-				_List_fromArray(
-					['Invited user ', userId, ' to room ', roomId]));
-		}),
-	keyIsNotAnInt: function (key) {
-		return $elm$core$String$concat(
-			_List_fromArray(
-				['Encountered a key `', key, '` that cannot be converted to an Int']));
-	},
-	loggedInAs: function (username) {
-		return $elm$core$String$concat(
-			_List_fromArray(
-				['Successfully logged in as user ', username]));
-	},
-	sendEvent: function (eventId) {
-		if (eventId.$ === 'Just') {
-			var e = eventId.a;
-			return 'Sent event, received event id ' + e;
-		} else {
-			return 'Sent event, event id not known - make sure to check transaction id';
-		}
-	},
-	serverReturnedInvalidJSON: $elm$core$Basics$append('The server returned invalid JSON: '),
-	serverReturnedUnknownJSON: $elm$core$Basics$append('The server returned JSON that doesn\'t seem to live up to spec rules: ')
-};
-var $author$project$Internal$Api$Request$ServerReturnsError = F2(
-	function (a, b) {
-		return {$: 'ServerReturnsError', a: a, b: b};
-	});
-var $author$project$Internal$Api$Request$StatusCodeResponse = F2(
-	function (a, b) {
-		return {$: 'StatusCodeResponse', a: a, b: b};
-	});
-var $elm$core$Tuple$pair = F2(
-	function (a, b) {
-		return _Utils_Tuple2(a, b);
-	});
-var $elm$core$List$singleton = function (value) {
-	return _List_fromArray(
-		[value]);
-};
-var $author$project$Internal$Api$Request$onStatusCode = F3(
-	function (code, err, _v0) {
-		return A2(
-			$author$project$Internal$Api$Request$StatusCodeResponse,
-			code,
-			_Utils_Tuple2(
-				A2(
-					$author$project$Internal$Api$Request$ServerReturnsError,
-					err,
-					$elm$json$Json$Encode$object(
-						$elm$core$List$singleton(
-							A2(
-								$elm$core$Tuple$pair,
-								'errcode',
-								$elm$json$Json$Encode$string(err))))),
-				$elm$core$List$singleton(
-					$author$project$Internal$Config$Log$log.warn(
-						$elm$core$String$concat(
-							_List_fromArray(
-								[
-									'Received an invalid HTTP response from Matrix server ',
-									'but managed to decode it using the status code ',
-									$elm$core$String$fromInt(code),
-									': Default to errcode ',
-									err
-								]))))));
-	});
-var $author$project$Internal$Values$Envelope$HttpRequest = function (a) {
-	return {$: 'HttpRequest', a: a};
-};
-var $author$project$Internal$Values$Context$getBaseUrl = function (_v0) {
-	var c = _v0.a;
-	return c.baseUrl;
-};
-var $author$project$Internal$Api$Request$callAPI = F2(
-	function (_v0, context) {
-		var path = _v0.path;
-		var method = _v0.method;
-		return {
-			attributes: _List_Nil,
-			baseUrl: $author$project$Internal$Values$Context$getBaseUrl(context),
-			context: context,
-			method: method,
-			path: path
-		};
-	});
-var $author$project$Internal$Tools$Json$decode = function (_v0) {
-	var data = _v0.a;
-	return data.decoder;
-};
-var $elm$http$Http$BadStatus_ = F2(
-	function (a, b) {
-		return {$: 'BadStatus_', a: a, b: b};
-	});
-var $elm$http$Http$BadUrl_ = function (a) {
-	return {$: 'BadUrl_', a: a};
-};
-var $elm$http$Http$GoodStatus_ = F2(
-	function (a, b) {
-		return {$: 'GoodStatus_', a: a, b: b};
-	});
-var $elm$http$Http$NetworkError_ = {$: 'NetworkError_'};
-var $elm$http$Http$Receiving = function (a) {
-	return {$: 'Receiving', a: a};
-};
-var $elm$http$Http$Sending = function (a) {
-	return {$: 'Sending', a: a};
-};
-var $elm$http$Http$Timeout_ = {$: 'Timeout_'};
-var $elm$core$Maybe$isJust = function (maybe) {
-	if (maybe.$ === 'Just') {
-		return true;
-	} else {
-		return false;
-	}
-};
-var $elm$core$Platform$sendToSelf = _Platform_sendToSelf;
-var $elm$http$Http$emptyBody = _Http_emptyBody;
-var $author$project$Internal$Api$Request$getBody = function (attributes) {
-	return function (fb) {
-		if (fb.$ === 'Just') {
-			return fb;
-		} else {
-			var _v2 = A2(
-				$elm$core$List$filterMap,
-				function (attr) {
-					if (attr.$ === 'BodyParam') {
-						var key = attr.a;
-						var value = attr.b;
-						return $elm$core$Maybe$Just(
-							_Utils_Tuple2(key, value));
-					} else {
-						return $elm$core$Maybe$Nothing;
-					}
-				},
-				attributes);
-			if (!_v2.b) {
-				return $elm$core$Maybe$Nothing;
-			} else {
-				var head = _v2.a;
-				var tail = _v2.b;
-				return $elm$core$Maybe$Just(
-					$elm$json$Json$Encode$object(
-						A2($elm$core$List$cons, head, tail)));
-			}
-		}
-	}(
-		$elm$core$List$head(
-			$elm$core$List$reverse(
-				A2(
-					$elm$core$List$filterMap,
-					function (attr) {
-						if (attr.$ === 'FullBody') {
-							var v = attr.a;
-							return $elm$core$Maybe$Just(v);
-						} else {
-							return $elm$core$Maybe$Nothing;
-						}
-					},
-					attributes))));
-};
-var $author$project$Internal$Api$Request$getHeaders = $elm$core$List$filterMap(
-	function (attr) {
-		if (attr.$ === 'Header') {
-			var h = attr.a;
-			return $elm$core$Maybe$Just(h);
-		} else {
-			return $elm$core$Maybe$Nothing;
-		}
-	});
-var $author$project$Internal$Api$Request$getStatusCodes = A2(
-	$elm$core$Basics$composeR,
-	$elm$core$List$filterMap(
-		function (attr) {
-			if (attr.$ === 'StatusCodeResponse') {
-				var code = attr.a;
-				var err = attr.b;
-				return $elm$core$Maybe$Just(
-					_Utils_Tuple2(code, err));
-			} else {
-				return $elm$core$Maybe$Nothing;
-			}
-		}),
-	$elm$core$Dict$fromList);
-var $author$project$Internal$Api$Request$getTimeout = A2(
-	$elm$core$Basics$composeR,
-	$elm$core$List$filterMap(
-		function (attr) {
-			if (attr.$ === 'Timeout') {
-				var f = attr.a;
-				return $elm$core$Maybe$Just(f);
-			} else {
-				return $elm$core$Maybe$Nothing;
-			}
-		}),
-	A2($elm$core$Basics$composeR, $elm$core$List$reverse, $elm$core$List$head));
-var $elm$url$Url$Builder$toQueryPair = function (_v0) {
-	var key = _v0.a;
-	var value = _v0.b;
-	return key + ('=' + value);
-};
-var $elm$url$Url$Builder$toQuery = function (parameters) {
-	if (!parameters.b) {
-		return '';
-	} else {
-		return '?' + A2(
-			$elm$core$String$join,
-			'&',
-			A2($elm$core$List$map, $elm$url$Url$Builder$toQueryPair, parameters));
-	}
-};
-var $elm$url$Url$Builder$crossOrigin = F3(
-	function (prePath, pathSegments, parameters) {
-		return prePath + ('/' + (A2($elm$core$String$join, '/', pathSegments) + $elm$url$Url$Builder$toQuery(parameters)));
-	});
-var $author$project$Internal$Api$Request$getQueryParams = $elm$core$List$filterMap(
-	function (attr) {
-		if (attr.$ === 'QueryParam') {
-			var q = attr.a;
-			return $elm$core$Maybe$Just(q);
-		} else {
-			return $elm$core$Maybe$Nothing;
-		}
-	});
-var $elm$url$Url$percentEncode = _Url_percentEncode;
-var $author$project$Internal$Api$Request$getUrl = function (_v0) {
-	var path = _v0.path;
-	var baseUrl = _v0.baseUrl;
-	var attributes = _v0.attributes;
-	return A3(
-		$elm$url$Url$Builder$crossOrigin,
-		baseUrl,
-		A2($elm$core$List$map, $elm$url$Url$percentEncode, path),
-		$author$project$Internal$Api$Request$getQueryParams(attributes));
-};
-var $elm$http$Http$jsonBody = function (value) {
-	return A2(
-		_Http_pair,
-		'application/json',
-		A2($elm$json$Json$Encode$encode, 0, value));
-};
-var $elm$http$Http$BadUrl = function (a) {
-	return {$: 'BadUrl', a: a};
-};
-var $author$project$Internal$Api$Request$InternetException = function (a) {
-	return {$: 'InternetException', a: a};
-};
-var $elm$http$Http$NetworkError = {$: 'NetworkError'};
-var $elm$http$Http$Timeout = {$: 'Timeout'};
-var $author$project$Internal$Api$Request$ServerReturnsBadJSON = function (a) {
-	return {$: 'ServerReturnsBadJSON', a: a};
-};
-var $elm$core$Result$mapError = F2(
-	function (f, result) {
-		if (result.$ === 'Ok') {
-			var v = result.a;
-			return $elm$core$Result$Ok(v);
-		} else {
-			var e = result.a;
-			return $elm$core$Result$Err(
-				f(e));
-		}
-	});
-var $author$project$Internal$Api$Request$decodeServerValue = F3(
-	function (decoder, value, statusCodeError) {
-		return A2(
-			$elm$core$Result$mapError,
-			function (err) {
-				var error = $elm$core$Maybe$Nothing;
-				var description = $elm$json$Json$Decode$errorToString(err);
-				var _v0 = _Utils_Tuple2(error, statusCodeError);
-				if (_v0.a.$ === 'Just') {
-					var e = _v0.a.a;
-					return e;
-				} else {
-					if (_v0.b.$ === 'Just') {
-						var _v1 = _v0.a;
-						var e = _v0.b.a;
-						return e;
-					} else {
-						var _v2 = _v0.a;
-						var _v3 = _v0.b;
-						return _Utils_Tuple2(
-							$author$project$Internal$Api$Request$ServerReturnsBadJSON(description),
-							$elm$core$List$singleton(
-								$author$project$Internal$Config$Log$log.error(
-									$author$project$Internal$Config$Text$logs.serverReturnedUnknownJSON(description))));
-					}
-				}
-			},
-			A2($elm$json$Json$Decode$decodeValue, decoder, value));
-	});
-var $author$project$Internal$Api$Request$decodeServerResponse = F3(
-	function (decoder, body, statusCodeError) {
-		var _v0 = A2($elm$json$Json$Decode$decodeString, $elm$json$Json$Decode$value, body);
-		if (_v0.$ === 'Err') {
-			var e = _v0.a;
-			var description = $elm$json$Json$Decode$errorToString(e);
-			return $elm$core$Result$Err(
-				_Utils_Tuple2(
-					$author$project$Internal$Api$Request$ServerReturnsBadJSON(description),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.error(
-							$author$project$Internal$Config$Text$logs.serverReturnedInvalidJSON(description)))));
-		} else {
-			var v = _v0.a;
-			return A3($author$project$Internal$Api$Request$decodeServerValue, decoder, v, statusCodeError);
-		}
-	});
-var $elm$http$Http$stringResolver = A2(_Http_expect, '', $elm$core$Basics$identity);
-var $author$project$Internal$Api$Request$rawApiCallResolver = F2(
-	function (decoder, statusCodeErrors) {
-		return $elm$http$Http$stringResolver(
-			function (response) {
-				switch (response.$) {
-					case 'BadUrl_':
-						var s = response.a;
-						return $elm$core$Result$Err(
-							A3(
-								$elm$core$Basics$apR,
-								$author$project$Internal$Api$Request$InternetException(
-									$elm$http$Http$BadUrl(s)),
-								$elm$core$Tuple$pair,
-								_List_fromArray(
-									[
-										$author$project$Internal$Config$Log$log.error('Encountered bad URL ' + s)
-									])));
-					case 'Timeout_':
-						return $elm$core$Result$Err(
-							A3(
-								$elm$core$Basics$apR,
-								$author$project$Internal$Api$Request$InternetException($elm$http$Http$Timeout),
-								$elm$core$Tuple$pair,
-								_List_fromArray(
-									[
-										$author$project$Internal$Config$Log$log.error('Encountered timeout - maybe the server is down?')
-									])));
-					case 'NetworkError_':
-						return $elm$core$Result$Err(
-							A3(
-								$elm$core$Basics$apR,
-								$author$project$Internal$Api$Request$InternetException($elm$http$Http$NetworkError),
-								$elm$core$Tuple$pair,
-								_List_fromArray(
-									[
-										$author$project$Internal$Config$Log$log.error('Encountered a network error - the user might be offline')
-									])));
-					case 'BadStatus_':
-						var metadata = response.a;
-						var body = response.b;
-						return A3(
-							$author$project$Internal$Api$Request$decodeServerResponse,
-							decoder,
-							body,
-							A2($elm$core$Dict$get, metadata.statusCode, statusCodeErrors));
-					default:
-						var metadata = response.a;
-						var body = response.b;
-						return A3(
-							$author$project$Internal$Api$Request$decodeServerResponse,
-							decoder,
-							body,
-							A2($elm$core$Dict$get, metadata.statusCode, statusCodeErrors));
-				}
-			});
-	});
-var $elm$http$Http$resultToTask = function (result) {
-	if (result.$ === 'Ok') {
-		var a = result.a;
-		return $elm$core$Task$succeed(a);
-	} else {
-		var x = result.a;
-		return $elm$core$Task$fail(x);
-	}
-};
-var $elm$http$Http$task = function (r) {
-	return A3(
-		_Http_toTask,
-		_Utils_Tuple0,
-		$elm$http$Http$resultToTask,
-		{allowCookiesFromOtherDomains: false, body: r.body, expect: r.resolver, headers: r.headers, method: r.method, timeout: r.timeout, tracker: $elm$core$Maybe$Nothing, url: r.url});
-};
-var $author$project$Internal$Api$Request$toChain = F2(
-	function (data, apiContext) {
-		return function (call) {
-			var r = {
-				body: A2(
-					$elm$core$Maybe$withDefault,
-					$elm$http$Http$emptyBody,
-					A2(
-						$elm$core$Maybe$map,
-						$elm$http$Http$jsonBody,
-						$author$project$Internal$Api$Request$getBody(call.attributes))),
-				headers: $author$project$Internal$Api$Request$getHeaders(call.attributes),
-				method: call.method,
-				resolver: A2(
-					$author$project$Internal$Api$Request$rawApiCallResolver,
-					$author$project$Internal$Tools$Json$decode(data.coder),
-					$author$project$Internal$Api$Request$getStatusCodes(call.attributes)),
-				timeout: $author$project$Internal$Api$Request$getTimeout(call.attributes),
-				url: $author$project$Internal$Api$Request$getUrl(call)
-			};
-			var logR = {
-				body: A2(
-					$elm$core$Maybe$withDefault,
-					$elm$http$Http$emptyBody,
-					A2(
-						$elm$core$Maybe$map,
-						$elm$http$Http$jsonBody,
-						$author$project$Internal$Api$Request$getBody(call.attributes))),
-				headers: $author$project$Internal$Api$Request$getHeaders(call.attributes),
-				method: call.method,
-				resolver: A2(
-					$author$project$Internal$Api$Request$rawApiCallResolver,
-					A2(
-						$elm$json$Json$Decode$map,
-						function (_v4) {
-							var out = _v4.a;
-							var logs = _v4.b;
-							var _v5 = data.toUpdate(out);
-							var u = _v5.a;
-							var uLogs = _v5.b;
-							return _Utils_Tuple2(
-								u,
-								A2($elm$core$List$append, logs, uLogs));
-						},
-						$author$project$Internal$Tools$Json$decode(data.coder)),
-					$author$project$Internal$Api$Request$getStatusCodes(call.attributes)),
-				timeout: $author$project$Internal$Api$Request$getTimeout(call.attributes),
-				url: $author$project$Internal$Api$Request$getUrl(call)
-			};
-			var _v0 = data.logHttp(logR);
-			var httpU = _v0.a;
-			var httpLogs = _v0.b;
-			return A2(
-				$elm$core$Task$mapError,
-				function (_v3) {
-					var err = _v3.a;
-					var logs = _v3.b;
-					return {
-						error: err,
-						logs: A2($elm$core$List$append, httpLogs, logs),
-						messages: _List_fromArray(
-							[httpU])
-					};
-				},
-				A2(
-					$elm$core$Task$map,
-					function (_v1) {
-						var httpO = _v1.a;
-						var logs = _v1.b;
-						var _v2 = data.toUpdate(httpO);
-						var u = _v2.a;
-						var uLogs = _v2.b;
-						return {
-							contextChange: data.toContextChange(httpO),
-							logs: $elm$core$List$concat(
-								_List_fromArray(
-									[httpLogs, logs, uLogs])),
-							messages: _List_fromArray(
-								[httpU, u])
-						};
-					},
-					$elm$http$Http$task(r)));
-		}(
-			data.request(apiContext));
-	});
-var $author$project$Internal$Api$Request$withAttributes = F3(
-	function (attrs, f, context) {
-		return function (data) {
-			return _Utils_update(
-				data,
-				{
-					attributes: A2(
-						$elm$core$List$append,
-						data.attributes,
-						A2(
-							$elm$core$List$map,
-							function (attr) {
-								return attr(data.context);
-							},
-							attrs))
-				});
-		}(
-			f(context));
-	});
-var $author$project$Internal$Api$Api$request = function (data) {
-	return $author$project$Internal$Api$Request$toChain(
-		{
-			coder: data.coder,
-			logHttp: function (r) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$HttpRequest(r),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.info(
-							$elm$core$String$concat(
-								_List_fromArray(
-									['Matrix HTTP: ', r.method, ' ', r.url])))));
-			},
-			request: A2(
-				$author$project$Internal$Api$Request$withAttributes,
-				data.attributes,
-				$author$project$Internal$Api$Request$callAPI(
-					{method: data.method, path: data.path})),
-			toContextChange: data.contextChange,
-			toUpdate: data.toUpdate
-		});
-};
-var $author$project$Internal$Values$Context$setAccessToken = F2(
-	function (value, _v0) {
-		var c = _v0.a;
-		return $author$project$Internal$Values$Context$APIContext(
-			_Utils_update(
-				c,
-				{accessToken: value}));
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV1 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV1,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'r0', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: $elm$core$Maybe$Nothing,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: out.refreshToken,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$RemovePasswordIfNecessary,
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Values$Envelope$SetDeviceId = function (a) {
-	return {$: 'SetDeviceId', a: a};
-};
-var $author$project$Internal$Api$Request$NoAttr = {$: 'NoAttr'};
-var $author$project$Internal$Api$Request$empty = $elm$core$Basics$always($author$project$Internal$Api$Request$NoAttr);
-var $author$project$Internal$Api$Request$bodyOpString = F2(
-	function (key, value) {
-		if (value.$ === 'Just') {
-			var v = value.a;
-			return A2($author$project$Internal$Api$Request$bodyString, key, v);
-		} else {
-			return $author$project$Internal$Api$Request$empty;
-		}
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV2 = F4(
-	function (accessToken, deviceId, homeserver, user) {
-		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user};
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV2 = A5(
-	$author$project$Internal$Tools$Json$object4,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV2,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
-			fieldName: 'device_id',
-			toField: function ($) {
-				return $.deviceId;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}));
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV2 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'string')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV2,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'r0', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: $elm$core$Maybe$Nothing,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: $elm$core$Maybe$Nothing,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV3 = F4(
-	function (accessToken, deviceId, homeserver, user) {
-		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user};
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV3 = A5(
-	$author$project$Internal$Tools$Json$object4,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.3.0.html#post-matrix-client-r0-login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV3,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
-			fieldName: 'device_id',
-			toField: function ($) {
-				return $.deviceId;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}));
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV3 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2(
-						$author$project$Internal$Api$Request$bodyValue,
-						'identifier',
-						$elm$json$Json$Encode$object(
-							_List_fromArray(
-								[
-									_Utils_Tuple2(
-									'type',
-									$elm$json$Json$Encode$string('m.id.user')),
-									_Utils_Tuple2(
-									'user',
-									$elm$json$Json$Encode$string(username))
-								]))),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV3,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'r0', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: $elm$core$Maybe$Nothing,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: $elm$core$Maybe$Nothing,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Values$Envelope$SetBaseUrl = function (a) {
-	return {$: 'SetBaseUrl', a: a};
-};
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV4 = F5(
-	function (accessToken, deviceId, homeserver, user, wellKnown) {
-		return {accessToken: accessToken, deviceId: deviceId, homeserver: homeserver, user: user, wellKnown: wellKnown};
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$DiscoveryInformationV1 = F2(
-	function (homeserver, identityServer) {
-		return {homeserver: homeserver, identityServer: identityServer};
-	});
-var $author$project$Internal$Config$Leaks$field = 'elm-sdk-placeholder-json-field';
-var $author$project$Internal$Tools$Json$object2 = F3(
-	function (_v0, fa, fb) {
-		var init = _v0.init;
-		var description = _v0.description;
-		var name = _v0.name;
-		return $author$project$Internal$Tools$Json$Coder(
-			{
-				decoder: A3(
-					$elm$json$Json$Decode$map2,
-					F2(
-						function (_v1, _v2) {
-							var a = _v1.a;
-							var la = _v1.b;
-							var b = _v2.a;
-							var lb = _v2.b;
-							return _Utils_Tuple2(
-								A2(init, a, b),
-								$elm$core$List$concat(
-									_List_fromArray(
-										[la, lb])));
-						}),
-					$author$project$Internal$Tools$Json$toDecoderField(fa),
-					$author$project$Internal$Tools$Json$toDecoderField(fb)),
-				docs: $author$project$Internal$Tools$Json$DocsObject(
-					{
-						description: description,
-						keys: _List_fromArray(
-							[
-								$author$project$Internal$Tools$Json$toDocsField(fa),
-								$author$project$Internal$Tools$Json$toDocsField(fb)
-							]),
-						name: name
-					}),
-				encoder: $author$project$Internal$Tools$Json$objectEncoder(
-					_List_fromArray(
-						[
-							$author$project$Internal$Tools$Json$toEncodeField(fa),
-							$author$project$Internal$Tools$Json$toEncodeField(fb)
-						]))
-			});
-	});
-var $author$project$Internal$Tools$Json$DocsValue = {$: 'DocsValue'};
-var $author$project$Internal$Tools$Json$value = $author$project$Internal$Tools$Json$Coder(
-	{
-		decoder: A2(
-			$elm$json$Json$Decode$map,
-			function (v) {
-				return _Utils_Tuple2(v, _List_Nil);
-			},
-			$elm$json$Json$Decode$value),
-		docs: $author$project$Internal$Tools$Json$DocsValue,
-		encoder: $elm$core$Basics$identity
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1 = A3(
-	$author$project$Internal$Tools$Json$object2,
-	{
-		description: _List_fromArray(
-			['Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes.', 'Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL.', 'https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$DiscoveryInformationV1,
-		name: 'Discovery Information'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: A3(
-				$author$project$Internal$Tools$Json$object2,
-				{
-					description: _List_fromArray(
-						['Used by clients to discover homeserver information.']),
-					init: F2(
-						function (a, _v0) {
-							return {baseUrl: a};
-						}),
-					name: 'Homeserver Information'
-				},
-				$author$project$Internal$Tools$Json$field.required(
-					{
-						coder: $author$project$Internal$Tools$Json$string,
-						description: _List_fromArray(
-							['The base URL for the homeserver for client-server connections.']),
-						fieldName: 'base_url',
-						toField: function ($) {
-							return $.baseUrl;
-						}
-					}),
-				$author$project$Internal$Tools$Json$field.optional.value(
-					{
-						coder: $author$project$Internal$Tools$Json$value,
-						description: _List_fromArray(
-							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-						fieldName: $author$project$Internal$Config$Leaks$field,
-						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-					})),
-			description: _List_fromArray(
-				['Used by clients to discover homeserver information.']),
-			fieldName: 'm.homeserver',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: A3(
-				$author$project$Internal$Tools$Json$object2,
-				{
-					description: _List_fromArray(
-						['Used by clients to discover homeserver information.']),
-					init: F2(
-						function (a, _v1) {
-							return {baseUrl: a};
-						}),
-					name: 'Homeserver Information'
-				},
-				$author$project$Internal$Tools$Json$field.required(
-					{
-						coder: $author$project$Internal$Tools$Json$string,
-						description: _List_fromArray(
-							['The base URL for the homeserver for client-server connections.']),
-						fieldName: 'base_url',
-						toField: function ($) {
-							return $.baseUrl;
-						}
-					}),
-				$author$project$Internal$Tools$Json$field.optional.value(
-					{
-						coder: $author$project$Internal$Tools$Json$value,
-						description: _List_fromArray(
-							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-						fieldName: $author$project$Internal$Config$Leaks$field,
-						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-					})),
-			description: _List_fromArray(
-				['Used by clients to discover identity server information.']),
-			fieldName: 'm.identity_server',
-			toField: function ($) {
-				return $.identityServer;
-			}
-		}));
-var $author$project$Internal$Tools$Json$object5 = F6(
-	function (_v0, fa, fb, fc, fd, fe) {
-		var init = _v0.init;
-		var description = _v0.description;
-		var name = _v0.name;
-		return $author$project$Internal$Tools$Json$Coder(
-			{
-				decoder: A6(
-					$elm$json$Json$Decode$map5,
-					F5(
-						function (_v1, _v2, _v3, _v4, _v5) {
-							var a = _v1.a;
-							var la = _v1.b;
-							var b = _v2.a;
-							var lb = _v2.b;
-							var c = _v3.a;
-							var lc = _v3.b;
-							var d = _v4.a;
-							var ld = _v4.b;
-							var e = _v5.a;
-							var le = _v5.b;
-							return _Utils_Tuple2(
-								A5(init, a, b, c, d, e),
-								$elm$core$List$concat(
-									_List_fromArray(
-										[la, lb, lc, ld, le])));
-						}),
-					$author$project$Internal$Tools$Json$toDecoderField(fa),
-					$author$project$Internal$Tools$Json$toDecoderField(fb),
-					$author$project$Internal$Tools$Json$toDecoderField(fc),
-					$author$project$Internal$Tools$Json$toDecoderField(fd),
-					$author$project$Internal$Tools$Json$toDecoderField(fe)),
-				docs: $author$project$Internal$Tools$Json$DocsObject(
-					{
-						description: description,
-						keys: _List_fromArray(
-							[
-								$author$project$Internal$Tools$Json$toDocsField(fa),
-								$author$project$Internal$Tools$Json$toDocsField(fb),
-								$author$project$Internal$Tools$Json$toDocsField(fc),
-								$author$project$Internal$Tools$Json$toDocsField(fd),
-								$author$project$Internal$Tools$Json$toDocsField(fe)
-							]),
-						name: name
-					}),
-				encoder: $author$project$Internal$Tools$Json$objectEncoder(
-					_List_fromArray(
-						[
-							$author$project$Internal$Tools$Json$toEncodeField(fa),
-							$author$project$Internal$Tools$Json$toEncodeField(fb),
-							$author$project$Internal$Tools$Json$toEncodeField(fc),
-							$author$project$Internal$Tools$Json$toEncodeField(fd),
-							$author$project$Internal$Tools$Json$toEncodeField(fe)
-						]))
-			});
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4 = A6(
-	$author$project$Internal$Tools$Json$object5,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/legacy/client_server/r0.5.0.html#post-matrix-client-r0-login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV4,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
-			fieldName: 'device_id',
-			toField: function ($) {
-				return $.deviceId;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
-			description: _List_fromArray(
-				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
-			fieldName: 'well_known',
-			toField: function ($) {
-				return $.wellKnown;
-			}
-		}));
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV4 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2(
-						$author$project$Internal$Api$Request$bodyValue,
-						'identifier',
-						$elm$json$Json$Encode$object(
-							_List_fromArray(
-								[
-									_Utils_Tuple2(
-									'type',
-									$elm$json$Json$Encode$string('m.id.user')),
-									_Utils_Tuple2(
-									'user',
-									$elm$json$Json$Encode$string(username))
-								]))),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'r0', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: $elm$core$Maybe$Nothing,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: $elm$core$Maybe$Nothing,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										$author$project$Internal$Values$Envelope$SetBaseUrl,
-										A2(
-											$elm$core$Maybe$map,
-											A2(
-												$elm$core$Basics$composeR,
-												function ($) {
-													return $.homeserver;
-												},
-												function ($) {
-													return $.baseUrl;
-												}),
-											out.wellKnown))),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV5 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2(
-						$author$project$Internal$Api$Request$bodyValue,
-						'identifier',
-						$elm$json$Json$Encode$object(
-							_List_fromArray(
-								[
-									_Utils_Tuple2(
-									'type',
-									$elm$json$Json$Encode$string('m.id.user')),
-									_Utils_Tuple2(
-									'user',
-									$elm$json$Json$Encode$string(username))
-								]))),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV4,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'v3', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: $elm$core$Maybe$Nothing,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: $elm$core$Maybe$Nothing,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										$author$project$Internal$Values$Envelope$SetBaseUrl,
-										A2(
-											$elm$core$Maybe$map,
-											A2(
-												$elm$core$Basics$composeR,
-												function ($) {
-													return $.homeserver;
-												},
-												function ($) {
-													return $.baseUrl;
-												}),
-											out.wellKnown))),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Tools$Json$DocsBool = {$: 'DocsBool'};
-var $elm$json$Json$Decode$bool = _Json_decodeBool;
-var $elm$json$Json$Encode$bool = _Json_wrap;
-var $author$project$Internal$Tools$Json$bool = $author$project$Internal$Tools$Json$Coder(
-	{
-		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$bool),
-		docs: $author$project$Internal$Tools$Json$DocsBool,
-		encoder: $elm$json$Json$Encode$bool
-	});
-var $author$project$Internal$Api$Request$bodyBool = F2(
-	function (key, value) {
-		return A2(
-			$author$project$Internal$Api$Request$bodyValue,
-			key,
-			A2($author$project$Internal$Tools$Json$encode, $author$project$Internal$Tools$Json$bool, value));
-	});
-var $author$project$Internal$Api$Request$bodyOpBool = F2(
-	function (key, value) {
-		if (value.$ === 'Just') {
-			var v = value.a;
-			return A2($author$project$Internal$Api$Request$bodyBool, key, v);
-		} else {
-			return $author$project$Internal$Api$Request$empty;
-		}
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV5 = F7(
-	function (accessToken, deviceId, expiresInMs, homeserver, refreshToken, user, wellKnown) {
-		return {accessToken: accessToken, deviceId: deviceId, expiresInMs: expiresInMs, homeserver: homeserver, refreshToken: refreshToken, user: user, wellKnown: wellKnown};
-	});
-var $author$project$Internal$Tools$Json$DocsInt = {$: 'DocsInt'};
-var $elm$json$Json$Encode$int = _Json_wrap;
-var $author$project$Internal$Tools$Json$int = $author$project$Internal$Tools$Json$Coder(
-	{
-		decoder: A2($elm$json$Json$Decode$map, $author$project$Internal$Tools$Json$empty, $elm$json$Json$Decode$int),
-		docs: $author$project$Internal$Tools$Json$DocsInt,
-		encoder: $elm$json$Json$Encode$int
-	});
-var $elm$json$Json$Decode$map7 = _Json_map7;
-var $author$project$Internal$Tools$Json$object7 = F8(
-	function (_v0, fa, fb, fc, fd, fe, ff, fg) {
-		var init = _v0.init;
-		var description = _v0.description;
-		var name = _v0.name;
-		return $author$project$Internal$Tools$Json$Coder(
-			{
-				decoder: A8(
-					$elm$json$Json$Decode$map7,
-					F7(
-						function (_v1, _v2, _v3, _v4, _v5, _v6, _v7) {
-							var a = _v1.a;
-							var la = _v1.b;
-							var b = _v2.a;
-							var lb = _v2.b;
-							var c = _v3.a;
-							var lc = _v3.b;
-							var d = _v4.a;
-							var ld = _v4.b;
-							var e = _v5.a;
-							var le = _v5.b;
-							var f = _v6.a;
-							var lf = _v6.b;
-							var g = _v7.a;
-							var lg = _v7.b;
-							return _Utils_Tuple2(
-								A7(init, a, b, c, d, e, f, g),
-								$elm$core$List$concat(
-									_List_fromArray(
-										[la, lb, lc, ld, le, lf, lg])));
-						}),
-					$author$project$Internal$Tools$Json$toDecoderField(fa),
-					$author$project$Internal$Tools$Json$toDecoderField(fb),
-					$author$project$Internal$Tools$Json$toDecoderField(fc),
-					$author$project$Internal$Tools$Json$toDecoderField(fd),
-					$author$project$Internal$Tools$Json$toDecoderField(fe),
-					$author$project$Internal$Tools$Json$toDecoderField(ff),
-					$author$project$Internal$Tools$Json$toDecoderField(fg)),
-				docs: $author$project$Internal$Tools$Json$DocsObject(
-					{
-						description: description,
-						keys: _List_fromArray(
-							[
-								$author$project$Internal$Tools$Json$toDocsField(fa),
-								$author$project$Internal$Tools$Json$toDocsField(fb),
-								$author$project$Internal$Tools$Json$toDocsField(fc),
-								$author$project$Internal$Tools$Json$toDocsField(fd),
-								$author$project$Internal$Tools$Json$toDocsField(fe),
-								$author$project$Internal$Tools$Json$toDocsField(ff),
-								$author$project$Internal$Tools$Json$toDocsField(fg)
-							]),
-						name: name
-					}),
-				encoder: $author$project$Internal$Tools$Json$objectEncoder(
-					_List_fromArray(
-						[
-							$author$project$Internal$Tools$Json$toEncodeField(fa),
-							$author$project$Internal$Tools$Json$toEncodeField(fb),
-							$author$project$Internal$Tools$Json$toEncodeField(fc),
-							$author$project$Internal$Tools$Json$toEncodeField(fd),
-							$author$project$Internal$Tools$Json$toEncodeField(fe),
-							$author$project$Internal$Tools$Json$toEncodeField(ff),
-							$author$project$Internal$Tools$Json$toEncodeField(fg)
-						]))
-			});
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV5 = A8(
-	$author$project$Internal$Tools$Json$object7,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV5,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
-			fieldName: 'device_id',
-			toField: function ($) {
-				return $.deviceId;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$int,
-			description: _List_fromArray(
-				['The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. ']),
-			fieldName: 'expires_in_ms',
-			toField: function ($) {
-				return $.expiresInMs;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint.']),
-			fieldName: 'refresh_token',
-			toField: function ($) {
-				return $.refreshToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
-			description: _List_fromArray(
-				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
-			fieldName: 'well_known',
-			toField: function ($) {
-				return $.wellKnown;
-			}
-		}));
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV6 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var enableRefreshToken = _v0.enableRefreshToken;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2(
-						$author$project$Internal$Api$Request$bodyValue,
-						'identifier',
-						$elm$json$Json$Encode$object(
-							_List_fromArray(
-								[
-									_Utils_Tuple2(
-									'type',
-									$elm$json$Json$Encode$string('m.id.user')),
-									_Utils_Tuple2(
-									'user',
-									$elm$json$Json$Encode$string(username))
-								]))),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyOpBool, 'refresh_token', enableRefreshToken),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV5,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'v3', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: out.expiresInMs,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: out.refreshToken,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										A2($elm$core$Basics$composeR, $author$project$Internal$Values$Vault$SetUser, $author$project$Internal$Values$Envelope$ContentUpdate),
-										out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										$author$project$Internal$Values$Envelope$SetBaseUrl,
-										A2(
-											$elm$core$Maybe$map,
-											A2(
-												$elm$core$Basics$composeR,
-												function ($) {
-													return $.homeserver;
-												},
-												function ($) {
-													return $.baseUrl;
-												}),
-											out.wellKnown))),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2($elm$core$Maybe$map, $author$project$Internal$Values$Envelope$SetDeviceId, out.deviceId))
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV6 = F7(
-	function (accessToken, deviceId, expiresInMs, homeserver, refreshToken, user, wellKnown) {
-		return {accessToken: accessToken, deviceId: deviceId, expiresInMs: expiresInMs, homeserver: homeserver, refreshToken: refreshToken, user: user, wellKnown: wellKnown};
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV6 = A8(
-	$author$project$Internal$Tools$Json$object7,
-	{
-		description: _List_fromArray(
-			['Authenticates the user by password, and issues an access token they can use to authorize themself in subsequent requests.', 'https://spec.matrix.org/v1.3/client-server-api/#post_matrixclientv3login']),
-		init: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$LoginWithUsernameAndPasswordOutputV6,
-		name: 'Login Response'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['An access token for the account. This access token can then be used to authorize other requests.']),
-			fieldName: 'access_token',
-			toField: function ($) {
-				return $.accessToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['ID of the logged-in device. Will be the same as the corresponding parameter in the request, if one was specified.']),
-			fieldName: 'device_id',
-			toField: function ($) {
-				return $.deviceId;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$int,
-			description: _List_fromArray(
-				['The lifetime of the access token, in milliseconds. Once the access token has expired a new access token can be obtained by using the provided refresh token. If no refresh token is provided, the client will need to re-log in to obtain a new access token. If not given, the client can assume that the access token will not expire. ']),
-			fieldName: 'expires_in_ms',
-			toField: function ($) {
-				return $.expiresInMs;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['The hostname of the homeserver on which the account has been registered.']),
-			fieldName: 'home_server',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['A refresh token for the account. This token can be used to obtain a new access token when it expires by calling the /refresh endpoint.']),
-			fieldName: 'refresh_token',
-			toField: function ($) {
-				return $.refreshToken;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Values$User$coder,
-			description: _List_fromArray(
-				['The fully-qualified Matrix ID that has been registered.']),
-			fieldName: 'user_id',
-			toField: function ($) {
-				return $.user;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$disoveryInformationCoderV1,
-			description: _List_fromArray(
-				['Optional client configuration provided by the server. If present, clients SHOULD use the provided object to reconfigure themselves, optionally validating the URLs within. This object takes the same form as the one returned from .well-known autodiscovery.']),
-			fieldName: 'well_known',
-			toField: function ($) {
-				return $.wellKnown;
-			}
-		}));
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV7 = function (_v0) {
-	var password = _v0.password;
-	var username = _v0.username;
-	var initialDeviceDisplayName = _v0.initialDeviceDisplayName;
-	var enableRefreshToken = _v0.enableRefreshToken;
-	var deviceId = _v0.deviceId;
-	return function (context) {
-		return A2(
-			$author$project$Internal$Api$Api$request,
-			{
-				attributes: _List_fromArray(
-					[
-						A2($author$project$Internal$Api$Request$bodyOpString, 'address', $elm$core$Maybe$Nothing),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'device_id', deviceId),
-						A2(
-						$author$project$Internal$Api$Request$bodyValue,
-						'identifier',
-						$elm$json$Json$Encode$object(
-							_List_fromArray(
-								[
-									_Utils_Tuple2(
-									'type',
-									$elm$json$Json$Encode$string('m.id.user')),
-									_Utils_Tuple2(
-									'user',
-									$elm$json$Json$Encode$string(username))
-								]))),
-						A2($author$project$Internal$Api$Request$bodyOpString, 'initial_device_display_name', initialDeviceDisplayName),
-						A2($author$project$Internal$Api$Request$bodyString, 'password', password),
-						A2($author$project$Internal$Api$Request$bodyOpBool, 'refresh_token', enableRefreshToken),
-						A2($author$project$Internal$Api$Request$bodyString, 'type', 'm.login.password'),
-						A2($author$project$Internal$Api$Request$bodyString, 'user', username),
-						A2($author$project$Internal$Api$Request$onStatusCode, 400, 'M_UNKNOWN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 403, 'M_FORBIDDEN'),
-						A2($author$project$Internal$Api$Request$onStatusCode, 429, 'M_LIMIT_EXCEEDED')
-					]),
-				coder: $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$coderV6,
-				contextChange: function (out) {
-					return $author$project$Internal$Values$Context$setAccessToken(out.accessToken);
-				},
-				method: 'POST',
-				path: _List_fromArray(
-					['_matrix', 'client', 'v3', 'login']),
-				toUpdate: function (out) {
-					return _Utils_Tuple2(
-						$author$project$Internal$Values$Envelope$More(
-							_List_fromArray(
-								[
-									$author$project$Internal$Values$Envelope$SetAccessToken(
-									{
-										created: $author$project$Internal$Values$Context$getNow(context),
-										expiryMs: out.expiresInMs,
-										lastUsed: $author$project$Internal$Values$Context$getNow(context),
-										refresh: out.refreshToken,
-										value: out.accessToken
-									}),
-									$author$project$Internal$Values$Envelope$ContentUpdate(
-									$author$project$Internal$Values$Vault$SetUser(out.user)),
-									$author$project$Internal$Values$Envelope$Optional(
-									A2(
-										$elm$core$Maybe$map,
-										$author$project$Internal$Values$Envelope$SetBaseUrl,
-										A2(
-											$elm$core$Maybe$map,
-											A2(
-												$elm$core$Basics$composeR,
-												function ($) {
-													return $.homeserver;
-												},
-												function ($) {
-													return $.baseUrl;
-												}),
-											out.wellKnown))),
-									$author$project$Internal$Values$Envelope$SetDeviceId(out.deviceId)
-								])),
-						$elm$core$List$singleton(
-							$author$project$Internal$Config$Log$log.debug(
-								$author$project$Internal$Config$Text$logs.loggedInAs(username))));
-				}
-			},
-			context);
-	};
-};
-var $author$project$Internal$Api$Api$sameForVersion = F2(
-	function (name, _v0) {
-		var data = _v0.a;
-		return $author$project$Internal$Api$Api$VC(
-			{
-				chain: data.chain,
-				name: $author$project$Internal$Api$Api$SpecVersion(name),
-				prev: $elm$core$Maybe$Just(
-					$author$project$Internal$Api$Api$VC(data))
-			});
-	});
-var $author$project$Internal$Api$Api$startWithVersion = F2(
-	function (name, chain) {
-		return $author$project$Internal$Api$Api$VC(
-			{
-				chain: chain,
-				name: $author$project$Internal$Api$Api$SpecVersion(name),
-				prev: $elm$core$Maybe$Nothing
-			});
-	});
-var $author$project$Internal$Api$Request$NoSupportedVersion = {$: 'NoSupportedVersion'};
-var $micahhahn$elm_safe_recursion$Recursion$Base = function (a) {
-	return {$: 'Base', a: a};
-};
-var $micahhahn$elm_safe_recursion$Recursion$base = $micahhahn$elm_safe_recursion$Recursion$Base;
-var $author$project$Internal$Values$Context$getVersions = function (_v0) {
-	var c = _v0.a;
-	return c.versions;
-};
-var $micahhahn$elm_safe_recursion$Recursion$Recurse = F2(
-	function (a, b) {
-		return {$: 'Recurse', a: a, b: b};
-	});
-var $micahhahn$elm_safe_recursion$Recursion$recurse = function (r) {
-	return A2($micahhahn$elm_safe_recursion$Recursion$Recurse, r, $micahhahn$elm_safe_recursion$Recursion$base);
-};
-var $micahhahn$elm_safe_recursion$Recursion$runRecursion = F2(
-	function (project, init) {
-		var go = F2(
-			function (step, stack) {
-				go:
-				while (true) {
-					if (step.$ === 'Base') {
-						var t = step.a;
-						if (!stack.b) {
-							return t;
-						} else {
-							var next = stack.a;
-							var rest = stack.b;
-							var $temp$step = next(t),
-								$temp$stack = rest;
-							step = $temp$step;
-							stack = $temp$stack;
-							continue go;
-						}
-					} else {
-						var r = step.a;
-						var after = step.b;
-						var $temp$step = project(r),
-							$temp$stack = A2($elm$core$List$cons, after, stack);
-						step = $temp$step;
-						stack = $temp$stack;
-						continue go;
-					}
-				}
-			});
-		return A2(
-			go,
-			project(init),
-			_List_Nil);
-	});
-var $elm$core$List$any = F2(
-	function (isOkay, list) {
-		any:
-		while (true) {
-			if (!list.b) {
-				return false;
-			} else {
-				var x = list.a;
-				var xs = list.b;
-				if (isOkay(x)) {
-					return true;
-				} else {
-					var $temp$isOkay = isOkay,
-						$temp$list = xs;
-					isOkay = $temp$isOkay;
-					list = $temp$list;
-					continue any;
-				}
-			}
-		}
-	});
-var $elm$core$List$member = F2(
-	function (x, xs) {
-		return A2(
-			$elm$core$List$any,
-			function (a) {
-				return _Utils_eq(a, x);
-			},
-			xs);
-	});
-var $elm$core$Dict$member = F2(
-	function (key, dict) {
-		var _v0 = A2($elm$core$Dict$get, key, dict);
-		if (_v0.$ === 'Just') {
-			return true;
-		} else {
-			return false;
-		}
-	});
-var $elm$core$Set$member = F2(
-	function (key, _v0) {
-		var dict = _v0.a;
-		return A2($elm$core$Dict$member, key, dict);
-	});
-var $author$project$Internal$Api$Api$supportedVersion = F2(
-	function (_v0, name) {
-		var unstableFeatures = _v0.unstableFeatures;
-		var versions = _v0.versions;
-		if (name.$ === 'SpecVersion') {
-			var n = name.a;
-			return A2($elm$core$List$member, n, versions);
-		} else {
-			var n = name.a;
-			return A2($elm$core$Set$member, n, unstableFeatures);
-		}
-	});
-var $author$project$Internal$Api$Api$versionChain = F2(
-	function (vc, input) {
-		return function (context) {
-			var _v0 = $author$project$Internal$Values$Context$getVersions(context);
-			var versions = _v0;
-			return A2(
-				$micahhahn$elm_safe_recursion$Recursion$runRecursion,
-				function (mvc) {
-					if (mvc.$ === 'Nothing') {
-						return $micahhahn$elm_safe_recursion$Recursion$base(
-							A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$NoSupportedVersion, context));
-					} else {
-						var data = mvc.a.a;
-						return A2($author$project$Internal$Api$Api$supportedVersion, versions, data.name) ? $micahhahn$elm_safe_recursion$Recursion$base(
-							A2(data.chain, input, context)) : $micahhahn$elm_safe_recursion$Recursion$recurse(data.prev);
-					}
-				},
-				$elm$core$Maybe$Just(vc));
-		};
-	});
-var $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPassword = $author$project$Internal$Api$Api$versionChain(
-	A2(
-		$author$project$Internal$Api$Api$sameForVersion,
-		'v1.10',
-		A2(
-			$author$project$Internal$Api$Api$sameForVersion,
-			'v1.9',
-			A2(
-				$author$project$Internal$Api$Api$sameForVersion,
-				'v1.8',
-				A2(
-					$author$project$Internal$Api$Api$sameForVersion,
-					'v1.7',
-					A2(
-						$author$project$Internal$Api$Api$sameForVersion,
-						'v1.6',
-						A2(
-							$author$project$Internal$Api$Api$sameForVersion,
-							'v1.5',
-							A3(
-								$author$project$Internal$Api$Api$forVersion,
-								'v1.4',
-								$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV7,
-								A3(
-									$author$project$Internal$Api$Api$forVersion,
-									'v1.3',
-									$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV6,
-									A2(
-										$author$project$Internal$Api$Api$sameForVersion,
-										'v1.2',
-										A3(
-											$author$project$Internal$Api$Api$forVersion,
-											'v1.1',
-											$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV5,
-											A2(
-												$author$project$Internal$Api$Api$sameForVersion,
-												'r0.6.1',
-												A2(
-													$author$project$Internal$Api$Api$sameForVersion,
-													'r0.6.0',
-													A3(
-														$author$project$Internal$Api$Api$forVersion,
-														'r0.5.0',
-														$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV4,
-														A3(
-															$author$project$Internal$Api$Api$forVersion,
-															'r0.4.0',
-															$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV3,
-															A3(
-																$author$project$Internal$Api$Api$forVersion,
-																'r0.3.0',
-																$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV2,
-																A2(
-																	$author$project$Internal$Api$Api$sameForVersion,
-																	'r0.2.0',
-																	A2(
-																		$author$project$Internal$Api$Api$sameForVersion,
-																		'r0.1.0',
-																		A2(
-																			$author$project$Internal$Api$Api$sameForVersion,
-																			'r0.0.1',
-																			A2($author$project$Internal$Api$Api$startWithVersion, 'r0.0.0', $author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPasswordV1))))))))))))))))))));
-var $author$project$Internal$Api$Task$getAccessToken = function (c) {
-	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c);
-	var context = _v0;
-	var _v1 = _Utils_Tuple3(
-		$author$project$Internal$Values$Context$mostPopularToken(context),
-		context.username,
-		context.password);
-	if (_v1.a.$ === 'Just') {
-		var a = _v1.a.a;
-		return A2(
-			$author$project$Internal$Api$Chain$succeed,
-			{
-				contextChange: $author$project$Internal$Values$Context$setAccessToken(a),
-				logs: _List_fromArray(
-					[
-						$author$project$Internal$Config$Log$log.debug('Using cached access token from Vault')
-					]),
-				messages: _List_Nil
-			},
-			c);
-	} else {
-		if (_v1.b.$ === 'Nothing') {
-			var _v3 = _v1.a;
-			var _v4 = _v1.b;
-			return A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$MissingUsername, c);
-		} else {
-			if (_v1.c.$ === 'Just') {
-				var _v2 = _v1.a;
-				var u = _v1.b.a;
-				var p = _v1.c.a;
-				return A2(
-					$author$project$Internal$Api$LoginWithUsernameAndPassword$Api$loginWithUsernameAndPassword,
-					{
-						deviceId: $author$project$Internal$Values$Context$fromApiFormat(c).deviceId,
-						enableRefreshToken: $elm$core$Maybe$Just(true),
-						initialDeviceDisplayName: $elm$core$Maybe$Nothing,
-						password: p,
-						username: u
-					},
-					c);
-			} else {
-				var _v5 = _v1.a;
-				var _v6 = _v1.c;
-				return A2($author$project$Internal$Api$Chain$fail, $author$project$Internal$Api$Request$MissingPassword, c);
-			}
-		}
-	}
-};
-var $author$project$Internal$Values$Envelope$SetNow = function (a) {
-	return {$: 'SetNow', a: a};
-};
-var $elm$time$Time$Name = function (a) {
-	return {$: 'Name', a: a};
-};
-var $elm$time$Time$Offset = function (a) {
-	return {$: 'Offset', a: a};
-};
-var $elm$time$Time$Zone = F2(
-	function (a, b) {
-		return {$: 'Zone', a: a, b: b};
-	});
-var $elm$time$Time$customZone = $elm$time$Time$Zone;
-var $elm$time$Time$now = _Time_now($elm$time$Time$millisToPosix);
-var $author$project$Internal$Values$Context$setNow = F2(
-	function (t, _v0) {
-		var c = _v0.a;
-		return $author$project$Internal$Values$Context$APIContext(
-			_Utils_update(
-				c,
-				{now: t}));
-	});
-var $author$project$Internal$Api$Now$Api$getNow = function (_v0) {
-	return A2(
-		$elm$core$Task$map,
-		function (now) {
-			return {
-				contextChange: $author$project$Internal$Values$Context$setNow(now),
-				logs: $elm$core$List$singleton(
-					$author$project$Internal$Config$Log$log.debug(
-						$author$project$Internal$Config$Text$logs.getNow(
-							$elm$time$Time$posixToMillis(now)))),
-				messages: _List_fromArray(
-					[
-						$author$project$Internal$Values$Envelope$SetNow(now)
-					])
-			};
-		},
-		$elm$time$Time$now);
-};
-var $author$project$Internal$Api$Task$getNow = $author$project$Internal$Api$Now$Api$getNow;
-var $author$project$Internal$Api$BaseUrl$Api$DiscoveryInformation = F2(
-	function (homeserver, identityServer) {
-		return {homeserver: homeserver, identityServer: identityServer};
-	});
-var $author$project$Internal$Api$BaseUrl$Api$coder = A3(
-	$author$project$Internal$Tools$Json$object2,
-	{
-		description: _List_fromArray(
-			['Gets discovery information about the domain. The file may include additional keys, which MUST follow the Java package naming convention, e.g. com.example.myapp.property. This ensures property names are suitably namespaced for each application and reduces the risk of clashes.', 'Note that this endpoint is not necessarily handled by the homeserver, but by another webserver, to be used for discovering the homeserver URL.', 'https://spec.matrix.org/v1.10/client-server-api/#getwell-knownmatrixclient']),
-		init: $author$project$Internal$Api$BaseUrl$Api$DiscoveryInformation,
-		name: 'Discovery Information'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: A3(
-				$author$project$Internal$Tools$Json$object2,
-				{
-					description: _List_fromArray(
-						['Used by clients to discover homeserver information.']),
-					init: F2(
-						function (a, _v0) {
-							return {baseUrl: a};
-						}),
-					name: 'Homeserver Information'
-				},
-				$author$project$Internal$Tools$Json$field.required(
-					{
-						coder: $author$project$Internal$Tools$Json$string,
-						description: _List_fromArray(
-							['The base URL for the homeserver for client-server connections.']),
-						fieldName: 'base_url',
-						toField: function ($) {
-							return $.baseUrl;
-						}
-					}),
-				$author$project$Internal$Tools$Json$field.optional.value(
-					{
-						coder: $author$project$Internal$Tools$Json$value,
-						description: _List_fromArray(
-							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-						fieldName: $author$project$Internal$Config$Leaks$field,
-						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-					})),
-			description: _List_fromArray(
-				['Used by clients to discover homeserver information.']),
-			fieldName: 'm.homeserver',
-			toField: function ($) {
-				return $.homeserver;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: A3(
-				$author$project$Internal$Tools$Json$object2,
-				{
-					description: _List_fromArray(
-						['Used by clients to discover homeserver information.']),
-					init: F2(
-						function (a, _v1) {
-							return {baseUrl: a};
-						}),
-					name: 'Homeserver Information'
-				},
-				$author$project$Internal$Tools$Json$field.required(
-					{
-						coder: $author$project$Internal$Tools$Json$string,
-						description: _List_fromArray(
-							['The base URL for the homeserver for client-server connections.']),
-						fieldName: 'base_url',
-						toField: function ($) {
-							return $.baseUrl;
-						}
-					}),
-				$author$project$Internal$Tools$Json$field.optional.value(
-					{
-						coder: $author$project$Internal$Tools$Json$value,
-						description: _List_fromArray(
-							['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-						fieldName: $author$project$Internal$Config$Leaks$field,
-						toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-					})),
-			description: _List_fromArray(
-				['Used by clients to discover identity server information.']),
-			fieldName: 'm.identity_server',
-			toField: function ($) {
-				return $.identityServer;
-			}
-		}));
-var $author$project$Internal$Values$Context$setBaseUrl = F2(
-	function (value, _v0) {
-		var c = _v0.a;
-		return $author$project$Internal$Values$Context$APIContext(
-			_Utils_update(
-				c,
-				{baseUrl: value}));
-	});
-var $author$project$Internal$Api$BaseUrl$Api$baseUrl = function (data) {
-	return $author$project$Internal$Api$Request$toChain(
-		{
-			coder: $author$project$Internal$Api$BaseUrl$Api$coder,
-			logHttp: function (r) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$HttpRequest(r),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.info(
-							A2($author$project$Internal$Config$Text$logs.httpRequest, r.method, r.url))));
-			},
-			request: function (context) {
-				return {
-					attributes: _List_Nil,
-					baseUrl: data.url,
-					context: context,
-					method: 'GET',
-					path: _List_fromArray(
-						['.well-known', 'matrix', 'client'])
-				};
-			},
-			toContextChange: function (info) {
-				return $author$project$Internal$Values$Context$setBaseUrl(info.homeserver.baseUrl);
-			},
-			toUpdate: function (info) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$SetBaseUrl(info.homeserver.baseUrl),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.debug(
-							A2($author$project$Internal$Config$Text$logs.baseUrlFound, data.url, info.homeserver.baseUrl))));
-			}
-		});
-};
-var $author$project$Internal$Api$Task$getBaseUrl = function (c) {
-	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c).baseUrl;
-	if (_v0.$ === 'Just') {
-		var b = _v0.a;
-		return A2(
-			$author$project$Internal$Api$Chain$succeed,
-			{
-				contextChange: $author$project$Internal$Values$Context$setBaseUrl(b),
-				logs: _List_fromArray(
-					[
-						$author$project$Internal$Config$Log$log.debug('Using cached baseURL from Vault')
-					]),
-				messages: _List_Nil
-			},
-			c);
-	} else {
-		return A2(
-			$author$project$Internal$Api$BaseUrl$Api$baseUrl,
-			{
-				url: $author$project$Internal$Values$Context$fromApiFormat(c).serverName
-			},
-			c);
-	}
-};
-var $author$project$Internal$Values$Context$setVersions = F2(
-	function (value, _v0) {
-		var c = _v0.a;
-		return $author$project$Internal$Values$Context$APIContext(
-			_Utils_update(
-				c,
-				{versions: value}));
-	});
-var $author$project$Internal$Values$Envelope$SetVersions = function (a) {
-	return {$: 'SetVersions', a: a};
-};
-var $author$project$Internal$Values$Context$Versions = F2(
-	function (versions, unstableFeatures) {
-		return {unstableFeatures: unstableFeatures, versions: versions};
-	});
-var $elm$core$Set$empty = $elm$core$Set$Set_elm_builtin($elm$core$Dict$empty);
-var $elm$core$Set$foldl = F3(
-	function (func, initialState, _v0) {
-		var dict = _v0.a;
-		return A3(
-			$elm$core$Dict$foldl,
-			F3(
-				function (key, _v1, state) {
-					return A2(func, key, state);
-				}),
-			initialState,
-			dict);
-	});
-var $elm$core$Set$insert = F2(
-	function (key, _v0) {
-		var dict = _v0.a;
-		return $elm$core$Set$Set_elm_builtin(
-			A3($elm$core$Dict$insert, key, _Utils_Tuple0, dict));
-	});
-var $author$project$Internal$Tools$Json$DocsList = function (a) {
-	return {$: 'DocsList', a: a};
-};
-var $author$project$Internal$Tools$Json$list = function (_v0) {
-	var old = _v0.a;
-	return $author$project$Internal$Tools$Json$Coder(
-		{
-			decoder: A2(
-				$elm$json$Json$Decode$map,
-				function (items) {
-					return _Utils_Tuple2(
-						A2($elm$core$List$map, $elm$core$Tuple$first, items),
-						A2($elm$core$List$concatMap, $elm$core$Tuple$second, items));
-				},
-				$elm$json$Json$Decode$list(old.decoder)),
-			docs: $author$project$Internal$Tools$Json$DocsList(old.docs),
-			encoder: $elm$json$Json$Encode$list(old.encoder)
-		});
-};
-var $author$project$Internal$Tools$Json$DocsMap = function (a) {
-	return {$: 'DocsMap', a: a};
-};
-var $elm$core$Tuple$mapFirst = F2(
-	function (func, _v0) {
-		var x = _v0.a;
-		var y = _v0.b;
-		return _Utils_Tuple2(
-			func(x),
-			y);
-	});
-var $author$project$Internal$Tools$Json$map = F2(
-	function (_v0, _v1) {
-		var forth = _v0.forth;
-		var back = _v0.back;
-		var description = _v0.description;
-		var name = _v0.name;
-		var old = _v1.a;
-		return $author$project$Internal$Tools$Json$Coder(
-			{
-				decoder: A2(
-					$elm$json$Json$Decode$map,
-					$elm$core$Tuple$mapFirst(forth),
-					old.decoder),
-				docs: $author$project$Internal$Tools$Json$DocsMap(
-					{content: old.docs, description: description, name: name}),
-				encoder: A2($elm$core$Basics$composeR, back, old.encoder)
-			});
-	});
-var $author$project$Internal$Tools$Json$DocsDict = function (a) {
-	return {$: 'DocsDict', a: a};
-};
-var $elm$json$Json$Encode$dict = F3(
-	function (toKey, toValue, dictionary) {
-		return _Json_wrap(
-			A3(
-				$elm$core$Dict$foldl,
-				F3(
-					function (key, value, obj) {
-						return A3(
-							_Json_addField,
-							toKey(key),
-							toValue(value),
-							obj);
-					}),
-				_Json_emptyObject(_Utils_Tuple0),
-				dictionary));
-	});
-var $author$project$Internal$Tools$Json$slowDict = function (_v0) {
-	var data = _v0.a;
-	return $author$project$Internal$Tools$Json$Coder(
-		{
-			decoder: A2(
-				$elm$json$Json$Decode$map,
-				function (items) {
-					return _Utils_Tuple2(
-						$elm$core$Dict$fromList(
-							A2(
-								$elm$core$List$map,
-								$elm$core$Tuple$mapSecond($elm$core$Tuple$first),
-								items)),
-						A2(
-							$elm$core$List$concatMap,
-							$elm$core$Tuple$second,
-							A2($elm$core$List$map, $elm$core$Tuple$second, items)));
-				},
-				$elm$json$Json$Decode$keyValuePairs(data.decoder)),
-			docs: $author$project$Internal$Tools$Json$DocsDict(data.docs),
-			encoder: A2($elm$json$Json$Encode$dict, $elm$core$Basics$identity, data.encoder)
-		});
-};
-var $author$project$Internal$Api$Versions$Api$versionsCoder = A3(
-	$author$project$Internal$Tools$Json$object2,
-	{
-		description: _List_fromArray(
-			['Gets the versions of the specification supported by the server.', 'Values will take the form vX.Y or rX.Y.Z in historical cases. See the Specification Versioning for more information.', 'The server may additionally advertise experimental features it supports through unstable_features. These features should be namespaced and may optionally include version information within their name if desired. Features listed here are not for optionally toggling parts of the Matrix specification and should only be used to advertise support for a feature which has not yet landed in the spec. For example, a feature currently undergoing the proposal process may appear here and eventually be taken off this list once the feature lands in the spec and the server deems it reasonable to do so. Servers can choose to enable some features only for some users, so clients should include authentication in the request to get all the features available for the logged-in user. If no authentication is provided, the server should only return the features available to all users. Servers may wish to keep advertising features here after they’ve been released into the spec to give clients a chance to upgrade appropriately. Additionally, clients should avoid using unstable features in their stable releases.']),
-		init: $author$project$Internal$Values$Context$Versions,
-		name: 'Versions'
-	},
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$list($author$project$Internal$Tools$Json$string),
-			description: _List_fromArray(
-				['The supported versions.']),
-			fieldName: 'versions',
-			toField: function ($) {
-				return $.versions;
-			}
-		}),
-	$author$project$Internal$Tools$Json$field.optional.withDefault(
-		{
-			coder: A2(
-				$author$project$Internal$Tools$Json$map,
-				{
-					back: A2(
-						$elm$core$Set$foldl,
-						F2(
-							function (k, d) {
-								return A3($elm$core$Dict$insert, k, true, d);
-							}),
-						$elm$core$Dict$empty),
-					description: _List_fromArray(
-						['Turn a dictionary of supported values into a set that contains only supported values']),
-					forth: A2(
-						$elm$core$Dict$foldl,
-						F3(
-							function (k, v, s) {
-								return v ? A2($elm$core$Set$insert, k, s) : s;
-							}),
-						$elm$core$Set$empty),
-					name: 'Dict to set'
-				},
-				$author$project$Internal$Tools$Json$slowDict($author$project$Internal$Tools$Json$bool)),
-			_default: _Utils_Tuple2($elm$core$Set$empty, _List_Nil),
-			defaultToString: $elm$core$Basics$always('{}'),
-			description: _List_fromArray(
-				['Experimental features the server supports. Features not listed here, or the lack of this property all together, indicate that a feature is not supported.']),
-			fieldName: 'unstable_features',
-			toField: function ($) {
-				return $.unstableFeatures;
-			}
-		}));
-var $author$project$Internal$Api$Versions$Api$versions = $author$project$Internal$Api$Api$request(
-	{
-		attributes: _List_Nil,
-		coder: $author$project$Internal$Api$Versions$Api$versionsCoder,
-		contextChange: $author$project$Internal$Values$Context$setVersions,
-		method: 'GET',
-		path: _List_fromArray(
-			['_matrix', 'client', 'versions']),
-		toUpdate: function (v) {
-			return _Utils_Tuple2(
-				$author$project$Internal$Values$Envelope$SetVersions(v),
-				_List_Nil);
-		}
-	});
-var $author$project$Internal$Api$Task$getVersions = function (c) {
-	var _v0 = $author$project$Internal$Values$Context$fromApiFormat(c).versions;
-	if (_v0.$ === 'Just') {
-		var v = _v0.a;
-		return A2(
-			$author$project$Internal$Api$Chain$succeed,
-			{
-				contextChange: $author$project$Internal$Values$Context$setVersions(v),
-				logs: _List_fromArray(
-					[
-						$author$project$Internal$Config$Log$log.debug('Using cached versions from Vault')
-					]),
-				messages: _List_Nil
-			},
-			c);
-	} else {
-		return $author$project$Internal$Api$Versions$Api$versions(c);
-	}
-};
-var $author$project$Internal$Api$Task$makeVB = A2($author$project$Internal$Api$Chain$andThen, $author$project$Internal$Api$Task$getVersions, $author$project$Internal$Api$Task$getBaseUrl);
-var $author$project$Internal$Api$Task$makeVBA = A2(
-	$author$project$Internal$Api$Chain$andThen,
-	$author$project$Internal$Api$Task$getAccessToken,
-	A2($author$project$Internal$Api$Chain$andThen, $author$project$Internal$Api$Task$getNow, $author$project$Internal$Api$Task$makeVB));
-var $author$project$Internal$Api$Request$Header = function (a) {
-	return {$: 'Header', a: a};
-};
-var $author$project$Internal$Values$Context$getAccessToken = function (_v0) {
-	var c = _v0.a;
-	return c.accessToken;
-};
-var $elm$http$Http$Header = F2(
-	function (a, b) {
-		return {$: 'Header', a: a, b: b};
-	});
-var $elm$http$Http$header = $elm$http$Http$Header;
-var $author$project$Internal$Api$Request$accessToken = A2(
-	$elm$core$Basics$composeR,
-	$author$project$Internal$Values$Context$getAccessToken,
-	A2(
-		$elm$core$Basics$composeR,
-		$elm$core$Basics$append('Bearer '),
-		A2(
-			$elm$core$Basics$composeR,
-			$elm$http$Http$header('Authorization'),
-			$author$project$Internal$Api$Request$Header)));
-var $author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV1 = function (eventId) {
-	return {eventId: eventId};
-};
-var $author$project$Internal$Api$SendMessageEvent$Api$coderV1 = A3(
-	$author$project$Internal$Tools$Json$object2,
-	{
-		description: _List_fromArray(
-			['This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room.', 'The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event.', 'https://spec.matrix.org/legacy/r0.0.0/client_server.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid']),
-		init: $elm$core$Basics$always($author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV1),
-		name: 'EventResponse'
-	},
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$value,
-			description: _List_fromArray(
-				['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-			fieldName: $author$project$Internal$Config$Leaks$field,
-			toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-		}),
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['A unique identifier for the event.']),
-			fieldName: 'event_id',
-			toField: function ($) {
-				return $.eventId;
-			}
-		}));
-var $author$project$Internal$Api$Request$FullBody = function (a) {
-	return {$: 'FullBody', a: a};
-};
-var $author$project$Internal$Api$Request$fullBody = F2(
-	function (value, _v0) {
-		return $author$project$Internal$Api$Request$FullBody(value);
-	});
-var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV1 = function (_v0) {
-	var transactionId = _v0.transactionId;
-	var roomId = _v0.roomId;
-	var eventType = _v0.eventType;
-	var content = _v0.content;
-	return $author$project$Internal$Api$Api$request(
-		{
-			attributes: _List_fromArray(
-				[
-					$author$project$Internal$Api$Request$accessToken,
-					$author$project$Internal$Api$Request$fullBody(content)
-				]),
-			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV1,
-			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
-			method: 'PUT',
-			path: _List_fromArray(
-				['_matrix', 'client', 'r0', 'rooms', roomId, 'send', eventType, transactionId]),
-			toUpdate: function (out) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$More(_List_Nil),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.debug(
-							$author$project$Internal$Config$Text$logs.sendEvent(out.eventId))));
-			}
-		});
-};
-var $author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV2 = function (eventId) {
-	return {eventId: eventId};
-};
-var $author$project$Internal$Api$SendMessageEvent$Api$coderV2 = A3(
-	$author$project$Internal$Tools$Json$object2,
-	{
-		description: _List_fromArray(
-			['This endpoint is used to send a message event to a room. Message events allow access to historical events and pagination, making them suited for \"once-off\" activity in a room.', 'The body of the request should be the content object of the event; the fields in this object will vary depending on the type of event.', 'https://spec.matrix.org/legacy/client_server/r0.6.1.html#put-matrix-client-r0-rooms-roomid-send-eventtype-txnid']),
-		init: $elm$core$Basics$always($author$project$Internal$Api$SendMessageEvent$Api$SendMessageEventOutputV2),
-		name: 'EventResponse'
-	},
-	$author$project$Internal$Tools$Json$field.optional.value(
-		{
-			coder: $author$project$Internal$Tools$Json$value,
-			description: _List_fromArray(
-				['The Elm SDK always expects objects to have at least two fields.', 'Otherwise, what\'s the point of hiding the value in an object?', 'For this reason, this empty placeholder key will always be ignored.']),
-			fieldName: $author$project$Internal$Config$Leaks$field,
-			toField: $elm$core$Basics$always($elm$core$Maybe$Nothing)
-		}),
-	$author$project$Internal$Tools$Json$field.required(
-		{
-			coder: $author$project$Internal$Tools$Json$string,
-			description: _List_fromArray(
-				['A unique identifier for the event.']),
-			fieldName: 'event_id',
-			toField: function ($) {
-				return $.eventId;
-			}
-		}));
-var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV2 = function (_v0) {
-	var transactionId = _v0.transactionId;
-	var roomId = _v0.roomId;
-	var eventType = _v0.eventType;
-	var content = _v0.content;
-	return $author$project$Internal$Api$Api$request(
-		{
-			attributes: _List_fromArray(
-				[
-					$author$project$Internal$Api$Request$accessToken,
-					$author$project$Internal$Api$Request$fullBody(content)
-				]),
-			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV2,
-			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
-			method: 'PUT',
-			path: _List_fromArray(
-				['_matrix', 'client', 'r0', 'rooms', roomId, 'send', eventType, transactionId]),
-			toUpdate: function (out) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$More(_List_Nil),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.debug(
-							$author$project$Internal$Config$Text$logs.sendEvent(
-								$elm$core$Maybe$Just(out.eventId)))));
-			}
-		});
-};
-var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV3 = function (_v0) {
-	var transactionId = _v0.transactionId;
-	var roomId = _v0.roomId;
-	var eventType = _v0.eventType;
-	var content = _v0.content;
-	return $author$project$Internal$Api$Api$request(
-		{
-			attributes: _List_fromArray(
-				[
-					$author$project$Internal$Api$Request$accessToken,
-					$author$project$Internal$Api$Request$fullBody(content)
-				]),
-			coder: $author$project$Internal$Api$SendMessageEvent$Api$coderV2,
-			contextChange: $elm$core$Basics$always($elm$core$Basics$identity),
-			method: 'PUT',
-			path: _List_fromArray(
-				['_matrix', 'client', 'v3', 'rooms', roomId, 'send', eventType, transactionId]),
-			toUpdate: function (out) {
-				return _Utils_Tuple2(
-					$author$project$Internal$Values$Envelope$More(_List_Nil),
-					$elm$core$List$singleton(
-						$author$project$Internal$Config$Log$log.debug(
-							$author$project$Internal$Config$Text$logs.sendEvent(
-								$elm$core$Maybe$Just(out.eventId)))));
-			}
-		});
-};
-var $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEvent = $author$project$Internal$Api$Api$versionChain(
-	A2(
-		$author$project$Internal$Api$Api$sameForVersion,
-		'v1.11',
-		A2(
-			$author$project$Internal$Api$Api$sameForVersion,
-			'v1.10',
-			A2(
-				$author$project$Internal$Api$Api$sameForVersion,
-				'v1.9',
-				A2(
-					$author$project$Internal$Api$Api$sameForVersion,
-					'v1.8',
-					A2(
-						$author$project$Internal$Api$Api$sameForVersion,
-						'v1.7',
-						A2(
-							$author$project$Internal$Api$Api$sameForVersion,
-							'v1.6',
-							A2(
-								$author$project$Internal$Api$Api$sameForVersion,
-								'v1.5',
-								A2(
-									$author$project$Internal$Api$Api$sameForVersion,
-									'v1.4',
-									A2(
-										$author$project$Internal$Api$Api$sameForVersion,
-										'v1.3',
-										A2(
-											$author$project$Internal$Api$Api$sameForVersion,
-											'v1.2',
-											A3(
-												$author$project$Internal$Api$Api$forVersion,
-												'v1.1',
-												$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV3,
-												A3(
-													$author$project$Internal$Api$Api$forVersion,
-													'r0.6.1',
-													$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV2,
-													A2(
-														$author$project$Internal$Api$Api$sameForVersion,
-														'r0.6.0',
-														A2(
-															$author$project$Internal$Api$Api$sameForVersion,
-															'r0.5.0',
-															A2(
-																$author$project$Internal$Api$Api$sameForVersion,
-																'r0.4.0',
-																A2(
-																	$author$project$Internal$Api$Api$sameForVersion,
-																	'r0.3.0',
-																	A2(
-																		$author$project$Internal$Api$Api$sameForVersion,
-																		'r0.2.0',
-																		A2(
-																			$author$project$Internal$Api$Api$sameForVersion,
-																			'r0.1.0',
-																			A2(
-																				$author$project$Internal$Api$Api$sameForVersion,
-																				'r0.0.1',
-																				A2($author$project$Internal$Api$Api$startWithVersion, 'r0.0.0', $author$project$Internal$Api$SendMessageEvent$Api$sendMessageEventV1)))))))))))))))))))));
-var $author$project$Internal$Api$Task$sendMessageEvent = function (input) {
-	return $author$project$Internal$Api$Task$finishTask(
-		A2(
-			$author$project$Internal$Api$Chain$andThen,
-			$author$project$Internal$Api$SendMessageEvent$Api$sendMessageEvent(input),
-			$author$project$Internal$Api$Task$makeVBA));
-};
-var $author$project$Internal$Api$Main$sendMessageEvent = F2(
-	function (env, data) {
-		return A3(
-			$author$project$Internal$Api$Task$run,
-			data.toMsg,
-			$author$project$Internal$Api$Task$sendMessageEvent(
-				{content: data.content, eventType: data.eventType, roomId: data.roomId, transactionId: data.transactionId}),
-			$author$project$Internal$Values$Context$apiFormat(env.context));
-	});
-var $author$project$Matrix$sendMessageEvent = function (data) {
-	var _v0 = data.vault;
-	var vault = _v0.a;
-	return A2(
-		$author$project$Internal$Api$Main$sendMessageEvent,
-		vault,
-		{
-			content: data.content,
-			eventType: data.eventType,
-			roomId: data.roomId,
-			toMsg: A2($elm$core$Basics$composeR, $author$project$Types$VaultUpdate, data.toMsg),
-			transactionId: data.transactionId
-		});
-};
-var $miniBill$elm_fast_dict$Internal$Black = {$: 'Black'};
-var $miniBill$elm_fast_dict$Internal$InnerNode = F5(
-	function (a, b, c, d, e) {
-		return {$: 'InnerNode', a: a, b: b, c: c, d: d, e: e};
-	});
-var $miniBill$elm_fast_dict$Internal$Red = {$: 'Red'};
-var $miniBill$elm_fast_dict$FastDict$balance = F5(
-	function (color, key, value, left, right) {
-		if ((right.$ === 'InnerNode') && (right.a.$ === 'Red')) {
-			var _v1 = right.a;
-			var rK = right.b;
-			var rV = right.c;
-			var rLeft = right.d;
-			var rRight = right.e;
-			if ((left.$ === 'InnerNode') && (left.a.$ === 'Red')) {
-				var _v3 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var lLeft = left.d;
-				var lRight = left.e;
-				return A5(
-					$miniBill$elm_fast_dict$Internal$InnerNode,
-					$miniBill$elm_fast_dict$Internal$Red,
-					key,
-					value,
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, lK, lV, lLeft, lRight),
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, rK, rV, rLeft, rRight));
-			} else {
-				return A5(
-					$miniBill$elm_fast_dict$Internal$InnerNode,
-					color,
-					rK,
-					rV,
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, left, rLeft),
-					rRight);
-			}
-		} else {
-			if ((((left.$ === 'InnerNode') && (left.a.$ === 'Red')) && (left.d.$ === 'InnerNode')) && (left.d.a.$ === 'Red')) {
-				var _v5 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var _v6 = left.d;
-				var _v7 = _v6.a;
-				var llK = _v6.b;
-				var llV = _v6.c;
-				var llLeft = _v6.d;
-				var llRight = _v6.e;
-				var lRight = left.e;
-				return A5(
-					$miniBill$elm_fast_dict$Internal$InnerNode,
-					$miniBill$elm_fast_dict$Internal$Red,
-					lK,
-					lV,
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, llK, llV, llLeft, llRight),
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, key, value, lRight, right));
-			} else {
-				return A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, left, right);
-			}
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$insertHelp = F3(
-	function (key, value, dict) {
-		if (dict.$ === 'Leaf') {
-			return _Utils_Tuple2(
-				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, $miniBill$elm_fast_dict$Internal$Leaf, $miniBill$elm_fast_dict$Internal$Leaf),
-				true);
-		} else {
-			var nColor = dict.a;
-			var nKey = dict.b;
-			var nValue = dict.c;
-			var nLeft = dict.d;
-			var nRight = dict.e;
-			var _v1 = A2($elm$core$Basics$compare, key, nKey);
-			switch (_v1.$) {
-				case 'LT':
-					var _v2 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, nLeft);
-					var newLeft = _v2.a;
-					var isNew = _v2.b;
-					return _Utils_Tuple2(
-						A5($miniBill$elm_fast_dict$FastDict$balance, nColor, nKey, nValue, newLeft, nRight),
-						isNew);
-				case 'EQ':
-					return _Utils_Tuple2(
-						A5($miniBill$elm_fast_dict$Internal$InnerNode, nColor, nKey, value, nLeft, nRight),
-						false);
-				default:
-					var _v3 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, nRight);
-					var newRight = _v3.a;
-					var isNew = _v3.b;
-					return _Utils_Tuple2(
-						A5($miniBill$elm_fast_dict$FastDict$balance, nColor, nKey, nValue, nLeft, newRight),
-						isNew);
-			}
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$insertInner = F3(
-	function (key, value, dict) {
-		var _v0 = A3($miniBill$elm_fast_dict$FastDict$insertHelp, key, value, dict);
-		if ((_v0.a.$ === 'InnerNode') && (_v0.a.a.$ === 'Red')) {
-			var _v1 = _v0.a;
-			var _v2 = _v1.a;
-			var k = _v1.b;
-			var v = _v1.c;
-			var l = _v1.d;
-			var r = _v1.e;
-			var isNew = _v0.b;
-			return _Utils_Tuple2(
-				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, k, v, l, r),
-				isNew);
-		} else {
-			var x = _v0;
-			return x;
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$insert = F3(
-	function (key, value, _v0) {
-		var sz = _v0.a;
-		var dict = _v0.b;
-		var _v1 = A3($miniBill$elm_fast_dict$FastDict$insertInner, key, value, dict);
-		var result = _v1.a;
-		var isNew = _v1.b;
-		return isNew ? A2($miniBill$elm_fast_dict$Internal$Dict, sz + 1, result) : A2($miniBill$elm_fast_dict$Internal$Dict, sz, result);
-	});
-var $author$project$Internal$Tools$Hashdict$insert = F2(
-	function (v, _v0) {
-		var h = _v0.a;
-		return $author$project$Internal$Tools$Hashdict$Hashdict(
-			_Utils_update(
-				h,
-				{
-					values: A3(
-						$miniBill$elm_fast_dict$FastDict$insert,
-						h.hash(v),
-						v,
-						h.values)
-				}));
-	});
-var $miniBill$elm_fast_dict$FastDict$getMinInner = function (n) {
-	getMinInner:
-	while (true) {
-		if (n.$ === 'Leaf') {
-			return $elm$core$Maybe$Nothing;
-		} else {
-			if (n.d.$ === 'Leaf') {
-				var k = n.b;
-				var v = n.c;
-				var _v1 = n.d;
-				return $elm$core$Maybe$Just(
-					_Utils_Tuple2(k, v));
-			} else {
-				var l = n.d;
-				var $temp$n = l;
-				n = $temp$n;
-				continue getMinInner;
-			}
-		}
-	}
-};
-var $miniBill$elm_fast_dict$FastDict$moveRedLeft = F5(
-	function (clr, k, v, left, right) {
-		if (left.$ === 'InnerNode') {
-			var lK = left.b;
-			var lV = left.c;
-			var lLeft = left.d;
-			var lRight = left.e;
-			if (right.$ === 'InnerNode') {
-				if ((right.d.$ === 'InnerNode') && (right.d.a.$ === 'Red')) {
-					var rK = right.b;
-					var rV = right.c;
-					var _v2 = right.d;
-					var _v3 = _v2.a;
-					var rlK = _v2.b;
-					var rlV = _v2.c;
-					var rlL = _v2.d;
-					var rlR = _v2.e;
-					var rRight = right.e;
-					return {
-						color: $miniBill$elm_fast_dict$Internal$Red,
-						k: rlK,
-						left: A5(
-							$miniBill$elm_fast_dict$Internal$InnerNode,
-							$miniBill$elm_fast_dict$Internal$Black,
-							k,
-							v,
-							A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
-							rlL),
-						right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, rK, rV, rlR, rRight),
-						v: rlV
-					};
-				} else {
-					var rK = right.b;
-					var rV = right.c;
-					var rLeft = right.d;
-					var rRight = right.e;
-					if (clr.$ === 'Black') {
-						return {
-							color: $miniBill$elm_fast_dict$Internal$Black,
-							k: k,
-							left: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
-							right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight),
-							v: v
-						};
-					} else {
-						return {
-							color: $miniBill$elm_fast_dict$Internal$Black,
-							k: k,
-							left: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
-							right: A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight),
-							v: v
-						};
-					}
-				}
-			} else {
-				return {color: clr, k: k, left: left, right: right, v: v};
-			}
-		} else {
-			return {color: clr, k: k, left: left, right: right, v: v};
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$moveRedRight = function (key) {
-	return function (value) {
-		return function (lK) {
-			return function (lV) {
-				return function (lLeft) {
-					return function (lRight) {
-						return function (rK) {
-							return function (rV) {
-								return function (rLeft) {
-									return function (rRight) {
-										if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
-											var _v1 = lLeft.a;
-											var llK = lLeft.b;
-											var llV = lLeft.c;
-											var llLeft = lLeft.d;
-											var llRight = lLeft.e;
-											return A5(
-												$miniBill$elm_fast_dict$Internal$InnerNode,
-												$miniBill$elm_fast_dict$Internal$Red,
-												lK,
-												lV,
-												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, llK, llV, llLeft, llRight),
-												A5(
-													$miniBill$elm_fast_dict$Internal$InnerNode,
-													$miniBill$elm_fast_dict$Internal$Black,
-													key,
-													value,
-													lRight,
-													A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight)));
-										} else {
-											return A5(
-												$miniBill$elm_fast_dict$Internal$InnerNode,
-												$miniBill$elm_fast_dict$Internal$Black,
-												key,
-												value,
-												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, lK, lV, lLeft, lRight),
-												A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, rK, rV, rLeft, rRight));
-										}
-									};
-								};
-							};
-						};
-					};
-				};
-			};
-		};
-	};
-};
-var $miniBill$elm_fast_dict$FastDict$removeHelpPrepEQGT = F6(
-	function (dict, color, key, value, left, right) {
-		if (left.$ === 'InnerNode') {
-			if (left.a.$ === 'Red') {
-				var _v1 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var lLeft = left.d;
-				var lRight = left.e;
-				return A5(
-					$miniBill$elm_fast_dict$Internal$InnerNode,
-					color,
-					lK,
-					lV,
-					lLeft,
-					A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Red, key, value, lRight, right));
-			} else {
-				var _v2 = left.a;
-				var lK = left.b;
-				var lV = left.c;
-				var lLeft = left.d;
-				var lRight = left.e;
-				_v3$2:
-				while (true) {
-					if ((right.$ === 'InnerNode') && (right.a.$ === 'Black')) {
-						if (right.d.$ === 'InnerNode') {
-							if (right.d.a.$ === 'Black') {
-								var _v4 = right.a;
-								var rK = right.b;
-								var rV = right.c;
-								var rLeft = right.d;
-								var _v5 = rLeft.a;
-								var rRight = right.e;
-								return $miniBill$elm_fast_dict$FastDict$moveRedRight(key)(value)(lK)(lV)(lLeft)(lRight)(rK)(rV)(rLeft)(rRight);
-							} else {
-								break _v3$2;
-							}
-						} else {
-							var _v6 = right.a;
-							var rK = right.b;
-							var rV = right.c;
-							var _v7 = right.d;
-							var rRight = right.e;
-							return $miniBill$elm_fast_dict$FastDict$moveRedRight(key)(value)(lK)(lV)(lLeft)(lRight)(rK)(rV)($miniBill$elm_fast_dict$Internal$Leaf)(rRight);
-						}
-					} else {
-						break _v3$2;
-					}
-				}
-				return dict;
-			}
-		} else {
-			return dict;
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$removeMin = function (dict) {
-	if ((dict.$ === 'InnerNode') && (dict.d.$ === 'InnerNode')) {
-		var color = dict.a;
-		var key = dict.b;
-		var value = dict.c;
-		var left = dict.d;
-		var lColor = left.a;
-		var lLeft = left.d;
-		var right = dict.e;
-		if (lColor.$ === 'Black') {
-			if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
-				var _v3 = lLeft.a;
-				return A5(
-					$miniBill$elm_fast_dict$Internal$InnerNode,
-					color,
-					key,
-					value,
-					$miniBill$elm_fast_dict$FastDict$removeMin(left),
-					right);
-			} else {
-				var res = A5($miniBill$elm_fast_dict$FastDict$moveRedLeft, color, key, value, left, right);
-				return A5(
-					$miniBill$elm_fast_dict$FastDict$balance,
-					res.color,
-					res.k,
-					res.v,
-					$miniBill$elm_fast_dict$FastDict$removeMin(res.left),
-					res.right);
-			}
-		} else {
-			return A5(
-				$miniBill$elm_fast_dict$Internal$InnerNode,
-				color,
-				key,
-				value,
-				$miniBill$elm_fast_dict$FastDict$removeMin(left),
-				right);
-		}
-	} else {
-		return $miniBill$elm_fast_dict$Internal$Leaf;
-	}
-};
-var $miniBill$elm_fast_dict$FastDict$removeHelp = F2(
-	function (targetKey, dict) {
-		if (dict.$ === 'Leaf') {
-			return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, false);
-		} else {
-			var color = dict.a;
-			var key = dict.b;
-			var value = dict.c;
-			var left = dict.d;
-			var right = dict.e;
-			if (_Utils_cmp(targetKey, key) < 0) {
-				if ((left.$ === 'InnerNode') && (left.a.$ === 'Black')) {
-					var _v6 = left.a;
-					var lLeft = left.d;
-					if ((lLeft.$ === 'InnerNode') && (lLeft.a.$ === 'Red')) {
-						var _v8 = lLeft.a;
-						var _v9 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, left);
-						var newLeft = _v9.a;
-						var wasMember = _v9.b;
-						return _Utils_Tuple2(
-							A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, newLeft, right),
-							wasMember);
-					} else {
-						var res = A5($miniBill$elm_fast_dict$FastDict$moveRedLeft, color, key, value, left, right);
-						var _v10 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, res.left);
-						var newLeft = _v10.a;
-						var wasMember = _v10.b;
-						return _Utils_Tuple2(
-							A5($miniBill$elm_fast_dict$FastDict$balance, res.color, res.k, res.v, newLeft, res.right),
-							wasMember);
-					}
-				} else {
-					var _v11 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, left);
-					var newLeft = _v11.a;
-					var wasMember = _v11.b;
-					return _Utils_Tuple2(
-						A5($miniBill$elm_fast_dict$Internal$InnerNode, color, key, value, newLeft, right),
-						wasMember);
-				}
-			} else {
-				return A2(
-					$miniBill$elm_fast_dict$FastDict$removeHelpEQGT,
-					targetKey,
-					A6($miniBill$elm_fast_dict$FastDict$removeHelpPrepEQGT, dict, color, key, value, left, right));
-			}
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$removeHelpEQGT = F2(
-	function (targetKey, dict) {
-		if (dict.$ === 'InnerNode') {
-			var color = dict.a;
-			var key = dict.b;
-			var value = dict.c;
-			var left = dict.d;
-			var right = dict.e;
-			if (_Utils_eq(targetKey, key)) {
-				var _v1 = $miniBill$elm_fast_dict$FastDict$getMinInner(right);
-				if (_v1.$ === 'Just') {
-					var _v2 = _v1.a;
-					var minKey = _v2.a;
-					var minValue = _v2.b;
-					return _Utils_Tuple2(
-						A5(
-							$miniBill$elm_fast_dict$FastDict$balance,
-							color,
-							minKey,
-							minValue,
-							left,
-							$miniBill$elm_fast_dict$FastDict$removeMin(right)),
-						true);
-				} else {
-					return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, true);
-				}
-			} else {
-				var _v3 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, targetKey, right);
-				var newRight = _v3.a;
-				var wasMember = _v3.b;
-				return _Utils_Tuple2(
-					A5($miniBill$elm_fast_dict$FastDict$balance, color, key, value, left, newRight),
-					wasMember);
-			}
-		} else {
-			return _Utils_Tuple2($miniBill$elm_fast_dict$Internal$Leaf, false);
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$removeInner = F2(
-	function (key, dict) {
-		var _v0 = A2($miniBill$elm_fast_dict$FastDict$removeHelp, key, dict);
-		if ((_v0.a.$ === 'InnerNode') && (_v0.a.a.$ === 'Red')) {
-			var _v1 = _v0.a;
-			var _v2 = _v1.a;
-			var k = _v1.b;
-			var v = _v1.c;
-			var l = _v1.d;
-			var r = _v1.e;
-			var wasMember = _v0.b;
-			return _Utils_Tuple2(
-				A5($miniBill$elm_fast_dict$Internal$InnerNode, $miniBill$elm_fast_dict$Internal$Black, k, v, l, r),
-				wasMember);
-		} else {
-			var x = _v0;
-			return x;
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$remove = F2(
-	function (key, orig) {
-		var sz = orig.a;
-		var dict = orig.b;
-		var _v0 = A2($miniBill$elm_fast_dict$FastDict$removeInner, key, dict);
-		var result = _v0.a;
-		var wasMember = _v0.b;
-		return wasMember ? A2($miniBill$elm_fast_dict$Internal$Dict, sz - 1, result) : orig;
-	});
-var $author$project$Internal$Tools$Hashdict$removeKey = F2(
-	function (k, _v0) {
-		var h = _v0.a;
-		return $author$project$Internal$Tools$Hashdict$Hashdict(
-			_Utils_update(
-				h,
-				{
-					values: A2($miniBill$elm_fast_dict$FastDict$remove, k, h.values)
-				}));
-	});
-var $author$project$Internal$Values$Envelope$update = F3(
-	function (updateContent, eu, data) {
-		update:
-		while (true) {
-			var context = data.context;
-			switch (eu.$) {
-				case 'ContentUpdate':
-					var v = eu.a;
-					return _Utils_update(
-						data,
-						{
-							content: A2(updateContent, v, data.content)
-						});
-				case 'HttpRequest':
-					return data;
-				case 'More':
-					var items = eu.a;
-					return A3(
-						$elm$core$List$foldl,
-						$author$project$Internal$Values$Envelope$update(updateContent),
-						data,
-						items);
-				case 'Optional':
-					if (eu.a.$ === 'Just') {
-						var u = eu.a.a;
-						var $temp$updateContent = updateContent,
-							$temp$eu = u,
-							$temp$data = data;
-						updateContent = $temp$updateContent;
-						eu = $temp$eu;
-						data = $temp$data;
-						continue update;
-					} else {
-						var _v1 = eu.a;
-						return data;
-					}
-				case 'RemoveAccessToken':
-					var token = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									accessTokens: A2($author$project$Internal$Tools$Hashdict$removeKey, token, context.accessTokens)
-								})
-						});
-				case 'RemovePasswordIfNecessary':
-					return data.settings.removePasswordOnLogin ? _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{password: $elm$core$Maybe$Nothing})
-						}) : data;
-				case 'SetAccessToken':
-					var a = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									accessTokens: A2($author$project$Internal$Tools$Hashdict$insert, a, context.accessTokens)
-								})
-						});
-				case 'SetBaseUrl':
-					var b = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									baseUrl: $elm$core$Maybe$Just(b)
-								})
-						});
-				case 'SetDeviceId':
-					var d = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									deviceId: $elm$core$Maybe$Just(d)
-								})
-						});
-				case 'SetNow':
-					var n = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									now: $elm$core$Maybe$Just(n)
-								})
-						});
-				case 'SetRefreshToken':
-					var r = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									refreshToken: $elm$core$Maybe$Just(r)
-								})
-						});
-				default:
-					var vs = eu.a;
-					return _Utils_update(
-						data,
-						{
-							context: _Utils_update(
-								context,
-								{
-									versions: $elm$core$Maybe$Just(vs)
-								})
-						});
-			}
-		}
-	});
-var $author$project$Internal$Values$StateManager$StateManager = function (a) {
-	return {$: 'StateManager', a: a};
-};
-var $author$project$Internal$Values$StateManager$empty = $author$project$Internal$Values$StateManager$StateManager($miniBill$elm_fast_dict$FastDict$empty);
-var $author$project$Internal$Values$Timeline$StartOfTimeline = {$: 'StartOfTimeline'};
-var $author$project$Internal$Values$Timeline$Timeline = function (a) {
-	return {$: 'Timeline', a: a};
-};
-var $author$project$Internal$Tools$Iddict$Iddict = function (a) {
-	return {$: 'Iddict', a: a};
-};
-var $author$project$Internal$Tools$Iddict$empty = $author$project$Internal$Tools$Iddict$Iddict(
-	{cursor: 0, dict: $miniBill$elm_fast_dict$FastDict$empty});
-var $author$project$Internal$Values$Timeline$empty = $author$project$Internal$Values$Timeline$Timeline(
-	{
-		batches: $author$project$Internal$Tools$Iddict$empty,
-		events: $miniBill$elm_fast_dict$FastDict$empty,
-		filledBatches: 0,
-		mostRecentBatch: $author$project$Internal$Values$Timeline$StartOfTimeline,
-		tokens: $author$project$Internal$Tools$Hashdict$empty(
-			function ($) {
-				return $.name;
-			})
-	});
-var $author$project$Internal$Values$Room$init = function (roomId) {
-	return {
-		accountData: $miniBill$elm_fast_dict$FastDict$empty,
-		events: $author$project$Internal$Tools$Hashdict$empty(
-			function ($) {
-				return $.eventId;
-			}),
-		roomId: roomId,
-		state: $author$project$Internal$Values$StateManager$empty,
-		timeline: $author$project$Internal$Values$Timeline$empty
-	};
-};
-var $miniBill$elm_fast_dict$FastDict$getInner = F2(
-	function (targetKey, dict) {
-		getInner:
-		while (true) {
-			if (dict.$ === 'Leaf') {
-				return $elm$core$Maybe$Nothing;
-			} else {
-				var key = dict.b;
-				var value = dict.c;
-				var left = dict.d;
-				var right = dict.e;
-				var _v1 = A2($elm$core$Basics$compare, targetKey, key);
-				switch (_v1.$) {
-					case 'LT':
-						var $temp$targetKey = targetKey,
-							$temp$dict = left;
-						targetKey = $temp$targetKey;
-						dict = $temp$dict;
-						continue getInner;
-					case 'EQ':
-						return $elm$core$Maybe$Just(value);
-					default:
-						var $temp$targetKey = targetKey,
-							$temp$dict = right;
-						targetKey = $temp$targetKey;
-						dict = $temp$dict;
-						continue getInner;
-				}
-			}
-		}
-	});
-var $miniBill$elm_fast_dict$FastDict$get = F2(
-	function (targetKey, _v0) {
-		var dict = _v0.b;
-		return A2($miniBill$elm_fast_dict$FastDict$getInner, targetKey, dict);
-	});
-var $miniBill$elm_fast_dict$FastDict$update = F3(
-	function (targetKey, alter, dictionary) {
-		var _v0 = alter(
-			A2($miniBill$elm_fast_dict$FastDict$get, targetKey, dictionary));
-		if (_v0.$ === 'Just') {
-			var value = _v0.a;
-			return A3($miniBill$elm_fast_dict$FastDict$insert, targetKey, value, dictionary);
-		} else {
-			return A2($miniBill$elm_fast_dict$FastDict$remove, targetKey, dictionary);
-		}
-	});
-var $author$project$Internal$Tools$Hashdict$map = F3(
-	function (key, f, _v0) {
-		var h = _v0.a;
-		return $author$project$Internal$Tools$Hashdict$Hashdict(
-			_Utils_update(
-				h,
-				{
-					values: A3(
-						$miniBill$elm_fast_dict$FastDict$update,
-						key,
-						$elm$core$Maybe$map(
-							function (value) {
-								var newValue = f(value);
-								return _Utils_eq(
-									h.hash(newValue),
-									h.hash(value)) ? newValue : value;
-							}),
-						h.values)
-				}));
-	});
-var $author$project$Internal$Values$Vault$mapRoom = F3(
-	function (roomId, f, vault) {
-		return _Utils_update(
-			vault,
-			{
-				rooms: A3($author$project$Internal$Tools$Hashdict$map, roomId, f, vault.rooms)
-			});
-	});
-var $author$project$Internal$Values$Vault$setAccountData = F3(
-	function (key, value, vault) {
-		return _Utils_update(
-			vault,
-			{
-				accountData: A3($miniBill$elm_fast_dict$FastDict$insert, key, value, vault.accountData)
-			});
-	});
-var $author$project$Internal$Values$Room$addEventsToTimeline = F3(
-	function (f, _v0, room) {
-		var end = _v0.end;
-		var start = _v0.start;
-		var filter = _v0.filter;
-		var events = _v0.events;
-		var batch = {
-			end: end,
-			events: A2(
-				$elm$core$List$map,
-				function ($) {
-					return $.eventId;
-				},
-				events),
-			filter: filter,
-			start: start
-		};
-		return _Utils_update(
-			room,
-			{
-				events: A3($elm$core$List$foldl, $author$project$Internal$Tools$Hashdict$insert, room.events, events),
-				timeline: A2(f, batch, room.timeline)
-			});
-	});
-var $author$project$Internal$Values$Timeline$connectITokenToIToken = F3(
-	function (pointer1, pointer2, _v0) {
-		var tl = _v0.a;
-		var _v1 = _Utils_Tuple2(pointer1, pointer2);
-		if ((_v1.a.$ === 'ITokenPTR') && (_v1.b.$ === 'ITokenPTR')) {
-			var early = _v1.a.a;
-			var late = _v1.b.a;
-			return _Utils_eq(early, late) ? $author$project$Internal$Values$Timeline$Timeline(tl) : $author$project$Internal$Values$Timeline$Timeline(
-				_Utils_update(
-					tl,
-					{
-						tokens: A3(
-							$author$project$Internal$Tools$Hashdict$map,
-							late,
-							function (data) {
-								return _Utils_update(
-									data,
-									{
-										inFrontOf: A2($elm$core$Set$insert, early, data.inFrontOf)
-									});
-							},
-							A3(
-								$author$project$Internal$Tools$Hashdict$map,
-								early,
-								function (data) {
-									return _Utils_update(
-										data,
-										{
-											behind: A2($elm$core$Set$insert, late, data.behind)
-										});
-								},
-								tl.tokens))
-					}));
-		} else {
-			return $author$project$Internal$Values$Timeline$Timeline(tl);
-		}
-	});
-var $author$project$Internal$Values$Timeline$IBatchPTR = function (a) {
-	return {$: 'IBatchPTR', a: a};
-};
-var $author$project$Internal$Tools$Iddict$map = F3(
-	function (k, f, _v0) {
-		var d = _v0.a;
-		return $author$project$Internal$Tools$Iddict$Iddict(
-			_Utils_update(
-				d,
-				{
-					dict: A3(
-						$miniBill$elm_fast_dict$FastDict$update,
-						k,
-						$elm$core$Maybe$map(f),
-						d.dict)
-				}));
-	});
-var $author$project$Internal$Values$Timeline$connectIBatchToIToken = F3(
-	function (_v0, pointer, _v1) {
-		var bptr = _v0.a;
-		var tl = _v1.a;
-		if (pointer.$ === 'StartOfTimeline') {
-			return $author$project$Internal$Values$Timeline$Timeline(tl);
-		} else {
-			var tptr = pointer.a;
-			return $author$project$Internal$Values$Timeline$Timeline(
-				_Utils_update(
-					tl,
-					{
-						batches: A3(
-							$author$project$Internal$Tools$Iddict$map,
-							bptr,
-							function (batch) {
-								return _Utils_update(
-									batch,
-									{end: pointer});
-							},
-							tl.batches),
-						tokens: A3(
-							$author$project$Internal$Tools$Hashdict$map,
-							tptr,
-							function (token) {
-								return _Utils_update(
-									token,
-									{
-										ends: A2($elm$core$Set$insert, bptr, token.ends)
-									});
-							},
-							tl.tokens)
-					}));
-		}
-	});
-var $author$project$Internal$Values$Timeline$connectITokenToIBatch = F3(
-	function (pointer, _v0, _v1) {
-		var bptr = _v0.a;
-		var tl = _v1.a;
-		if (pointer.$ === 'StartOfTimeline') {
-			return $author$project$Internal$Values$Timeline$Timeline(tl);
-		} else {
-			var tptr = pointer.a;
-			return $author$project$Internal$Values$Timeline$Timeline(
-				_Utils_update(
-					tl,
-					{
-						batches: A3(
-							$author$project$Internal$Tools$Iddict$map,
-							bptr,
-							function (batch) {
-								return _Utils_update(
-									batch,
-									{start: pointer});
-							},
-							tl.batches),
-						tokens: A3(
-							$author$project$Internal$Tools$Hashdict$map,
-							tptr,
-							function (token) {
-								return _Utils_update(
-									token,
-									{
-										starts: A2($elm$core$Set$insert, bptr, token.starts)
-									});
-							},
-							tl.tokens)
-					}));
-		}
-	});
-var $author$project$Internal$Tools$Iddict$insert = F2(
-	function (v, _v0) {
-		var d = _v0.a;
-		return _Utils_Tuple2(
-			d.cursor,
-			$author$project$Internal$Tools$Iddict$Iddict(
-				{
-					cursor: d.cursor + 1,
-					dict: A3($miniBill$elm_fast_dict$FastDict$insert, d.cursor, v, d.dict)
-				}));
-	});
-var $author$project$Internal$Values$Timeline$insertIBatch = F2(
-	function (ibatch, _v0) {
-		var tl = _v0.a;
-		var _v1 = A2($author$project$Internal$Tools$Iddict$insert, ibatch, tl.batches);
-		var batchPTR = _v1.a;
-		var newBatches = _v1.b;
-		return A3(
-			$author$project$Internal$Values$Timeline$connectIBatchToIToken,
-			$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
-			ibatch.end,
-			A3(
-				$author$project$Internal$Values$Timeline$connectITokenToIBatch,
-				ibatch.start,
-				$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
-				$author$project$Internal$Values$Timeline$Timeline(
-					_Utils_update(
-						tl,
-						{
-							batches: newBatches,
-							events: A3(
-								$elm$core$List$foldl,
-								F2(
-									function (event, dict) {
-										return A3(
-											$miniBill$elm_fast_dict$FastDict$update,
-											event,
-											function (value) {
-												if (value.$ === 'Nothing') {
-													return $elm$core$Maybe$Just(
-														_Utils_Tuple2(
-															$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
-															_List_Nil));
-												} else {
-													var _v3 = value.a;
-													var head = _v3.a;
-													var tail = _v3.b;
-													return $elm$core$Maybe$Just(
-														_Utils_Tuple2(
-															$author$project$Internal$Values$Timeline$IBatchPTR(batchPTR),
-															A2($elm$core$List$cons, head, tail)));
-												}
-											},
-											dict);
-									}),
-								tl.events,
-								ibatch.events),
-							filledBatches: $elm$core$List$isEmpty(ibatch.events) ? tl.filledBatches : (tl.filledBatches + 1)
-						}))));
-	});
-var $author$project$Internal$Values$Timeline$ITokenPTR = function (a) {
-	return {$: 'ITokenPTR', a: a};
-};
-var $author$project$Internal$Tools$Hashdict$get = F2(
-	function (k, _v0) {
-		var h = _v0.a;
-		return A2($miniBill$elm_fast_dict$FastDict$get, k, h.values);
-	});
-var $author$project$Internal$Values$Timeline$invokeIToken = F2(
-	function (value, _v0) {
-		var tl = _v0.a;
-		return _Utils_Tuple2(
-			$author$project$Internal$Values$Timeline$ITokenPTR(value),
-			$author$project$Internal$Values$Timeline$Timeline(
-				_Utils_update(
-					tl,
-					{
-						tokens: function () {
-							var _v1 = A2($author$project$Internal$Tools$Hashdict$get, value, tl.tokens);
-							if (_v1.$ === 'Just') {
-								return tl.tokens;
-							} else {
-								return A2(
-									$author$project$Internal$Tools$Hashdict$insert,
-									{behind: $elm$core$Set$empty, ends: $elm$core$Set$empty, inFrontOf: $elm$core$Set$empty, name: value, starts: $elm$core$Set$empty},
-									tl.tokens);
-							}
-						}()
-					})));
-	});
-var $author$project$Internal$Values$Timeline$insertBatch = F2(
-	function (batch, timeline) {
-		var _v0 = batch.start;
-		if (_v0.$ === 'Just') {
-			var start = _v0.a;
-			return function (_v1) {
-				var startPTR = _v1.a;
-				var _v2 = _v1.b;
-				var endPTR = _v2.a;
-				var newTimeline = _v2.b;
-				return _Utils_Tuple2(
-					A2(
-						$author$project$Internal$Values$Timeline$insertIBatch,
-						{end: endPTR, events: batch.events, filter: batch.filter, start: startPTR},
-						newTimeline),
-					{end: endPTR, start: startPTR});
-			}(
-				A2(
-					$elm$core$Tuple$mapSecond,
-					$author$project$Internal$Values$Timeline$invokeIToken(batch.end),
-					A2($author$project$Internal$Values$Timeline$invokeIToken, start, timeline)));
-		} else {
-			return function (_v3) {
-				var endPTR = _v3.a;
-				var newTimeline = _v3.b;
-				return _Utils_Tuple2(
-					A2(
-						$author$project$Internal$Values$Timeline$insertIBatch,
-						{end: endPTR, events: batch.events, filter: batch.filter, start: $author$project$Internal$Values$Timeline$StartOfTimeline},
-						newTimeline),
-					{end: endPTR, start: $author$project$Internal$Values$Timeline$StartOfTimeline});
-			}(
-				A2($author$project$Internal$Values$Timeline$invokeIToken, batch.end, timeline));
-		}
-	});
-var $author$project$Internal$Values$Timeline$addSync = F2(
-	function (batch, timeline) {
-		var _v0 = A2($author$project$Internal$Values$Timeline$insertBatch, batch, timeline);
-		var t = _v0.a.a;
-		var end = _v0.b.end;
-		var start = _v0.b.start;
-		var old = t.mostRecentBatch;
-		var _v1 = $author$project$Internal$Values$Timeline$Timeline(
-			_Utils_update(
-				t,
-				{mostRecentBatch: end}));
-		var tl = _v1;
-		return _Utils_eq(old, start) ? tl : A3($author$project$Internal$Values$Timeline$connectITokenToIToken, old, start, tl);
-	});
-var $author$project$Internal$Values$Room$addSync = $author$project$Internal$Values$Room$addEventsToTimeline($author$project$Internal$Values$Timeline$addSync);
-var $author$project$Internal$Values$Room$setAccountData = F3(
-	function (key, value, room) {
-		return _Utils_update(
-			room,
-			{
-				accountData: A3($miniBill$elm_fast_dict$FastDict$insert, key, value, room.accountData)
-			});
-	});
-var $author$project$Internal$Values$Room$update = F2(
-	function (ru, room) {
-		switch (ru.$) {
-			case 'AddEvent':
-				return room;
-			case 'AddSync':
-				var batch = ru.a;
-				return A2($author$project$Internal$Values$Room$addSync, batch, room);
-			case 'Invite':
-				return room;
-			case 'More':
-				var items = ru.a;
-				return A3($elm$core$List$foldl, $author$project$Internal$Values$Room$update, room, items);
-			default:
-				var key = ru.a;
-				var value = ru.b;
-				return A3($author$project$Internal$Values$Room$setAccountData, key, value, room);
-		}
-	});
-var $author$project$Internal$Tools$Hashdict$update = F3(
-	function (key, f, hd) {
-		var h = hd.a;
-		var _v0 = f(
-			A2($author$project$Internal$Tools$Hashdict$get, key, hd));
-		if (_v0.$ === 'Just') {
-			var v = _v0.a;
-			return _Utils_eq(
-				h.hash(v),
-				key) ? A2($author$project$Internal$Tools$Hashdict$insert, v, hd) : hd;
-		} else {
-			return A2($author$project$Internal$Tools$Hashdict$removeKey, key, hd);
-		}
-	});
-var $author$project$Internal$Values$Vault$updateRoom = F3(
-	function (roomId, f, vault) {
-		return _Utils_update(
-			vault,
-			{
-				rooms: A3($author$project$Internal$Tools$Hashdict$update, roomId, f, vault.rooms)
-			});
-	});
-var $author$project$Internal$Values$Vault$update = F2(
-	function (vu, vault) {
-		switch (vu.$) {
-			case 'CreateRoomIfNotExists':
-				var roomId = vu.a;
-				return A3(
-					$author$project$Internal$Values$Vault$updateRoom,
-					roomId,
-					A2(
-						$elm$core$Basics$composeR,
-						$elm$core$Maybe$withDefault(
-							$author$project$Internal$Values$Room$init(roomId)),
-						$elm$core$Maybe$Just),
-					vault);
-			case 'MapRoom':
-				var roomId = vu.a;
-				var ru = vu.b;
-				return A3(
-					$author$project$Internal$Values$Vault$mapRoom,
-					roomId,
-					$author$project$Internal$Values$Room$update(ru),
-					vault);
-			case 'More':
-				var items = vu.a;
-				return A3($elm$core$List$foldl, $author$project$Internal$Values$Vault$update, vault, items);
-			case 'SetAccountData':
-				var key = vu.a;
-				var value = vu.b;
-				return A3($author$project$Internal$Values$Vault$setAccountData, key, value, vault);
-			default:
-				var user = vu.a;
-				return _Utils_update(
-					vault,
-					{
-						user: $elm$core$Maybe$Just(user)
-					});
-		}
-	});
-var $author$project$Matrix$update = F2(
-	function (_v0, _v1) {
-		var vu = _v0.a;
-		var vault = _v1.a;
-		return $author$project$Types$Vault(
-			A3(
-				$elm$core$List$foldl,
-				$author$project$Internal$Values$Envelope$update($author$project$Internal$Values$Vault$update),
-				vault,
-				vu.messages));
-	});
-var $author$project$Main$update = F2(
-	function (msg, model) {
-		switch (msg.$) {
-			case 'GetInput':
-				var text = msg.a;
-				return _Utils_Tuple2(
-					_Utils_update(
-						model,
-						{text: text}),
-					$elm$core$Platform$Cmd$none);
-			case 'OnSendInput':
-				return _Utils_Tuple2(
-					_Utils_update(
-						model,
-						{num: model.num + 1}),
-					function () {
-						var _v1 = model.vault;
-						if (_v1.$ === 'Nothing') {
-							return $elm$core$Platform$Cmd$none;
-						} else {
-							var v = _v1.a;
-							return $author$project$Matrix$sendMessageEvent(
-								{
-									content: $elm$json$Json$Encode$object(
-										_List_fromArray(
-											[
-												_Utils_Tuple2(
-												'body',
-												$elm$json$Json$Encode$string(model.text)),
-												_Utils_Tuple2(
-												'msgtype',
-												$elm$json$Json$Encode$string('m.text'))
-											])),
-									eventType: 'm.room.message',
-									roomId: model.roomId,
-									toMsg: $author$project$Main$SentEvent,
-									transactionId: 'elm-sdk-test-' + $elm$core$String$fromInt(model.num),
-									vault: v
-								});
-						}
-					}());
-			default:
-				var vu = msg.a;
-				return _Utils_Tuple2(
-					_Utils_update(
-						model,
-						{
-							vault: A2(
-								$elm$core$Maybe$map,
-								$author$project$Matrix$update(vu),
-								model.vault)
-						}),
-					$elm$core$Platform$Cmd$none);
-		}
-	});
-var $author$project$Main$GetInput = function (a) {
-	return {$: 'GetInput', a: a};
-};
-var $author$project$Main$OnSendInput = {$: 'OnSendInput'};
-var $author$project$Main$view = function (model) {
-	return {
-		body: _List_fromArray(
-			[
-				A2(
-				$elm$html$Html$input,
-				_List_fromArray(
-					[
-						$elm$html$Html$Attributes$type_('text'),
-						$elm$html$Html$Attributes$value(model.text),
-						$elm$html$Html$Events$onInput($author$project$Main$GetInput)
-					]),
-				_List_Nil),
-				function () {
-				var _v0 = model.vault;
-				if (_v0.$ === 'Just') {
-					return A2(
-						$elm$html$Html$button,
-						_List_fromArray(
-							[
-								$elm$html$Html$Events$onClick($author$project$Main$OnSendInput)
-							]),
-						_List_fromArray(
-							[
-								$elm$html$Html$text('SEND')
-							]));
-				} else {
-					return A2(
-						$elm$html$Html$div,
-						_List_fromArray(
-							[
-								$elm$html$Html$Attributes$class('no-button-here')
-							]),
-						_List_Nil);
-				}
-			}()
-			]),
-		title: 'Elm SDK demo'
-	};
-};
-var $author$project$Main$main = $elm$browser$Browser$document(
-	{init: $author$project$Main$init, subscriptions: $author$project$Main$subscriptions, update: $author$project$Main$update, view: $author$project$Main$view});
-_Platform_export({'Main':{'init':$author$project$Main$main(
-	$elm$json$Json$Decode$succeed(_Utils_Tuple0))({"versions":{"elm":"0.19.1"},"types":{"message":"Main.Msg","aliases":{"Matrix.VaultUpdate":{"args":[],"type":"Types.VaultUpdate"},"Internal.Api.Task.Backpack":{"args":[],"type":"{ messages : List.List (Internal.Values.Envelope.EnvelopeUpdate Internal.Values.Vault.VaultUpdate), logs : List.List Internal.Config.Log.Log }"},"Internal.Config.Log.Log":{"args":[],"type":"{ channel : String.String, content : String.String }"},"Internal.Api.Main.Msg":{"args":[],"type":"Internal.Api.Task.Backpack"},"Internal.Values.Context.AccessToken":{"args":[],"type":"{ created : Internal.Tools.Timestamp.Timestamp, expiryMs : Maybe.Maybe Basics.Int, lastUsed : Internal.Tools.Timestamp.Timestamp, refresh : Maybe.Maybe String.String, value : String.String }"},"Internal.Api.Request.Request":{"args":["x","a"],"type":"{ headers : List.List Http.Header, body : Http.Body, method : String.String, url : String.String, resolver : Http.Resolver x a, timeout : Maybe.Maybe Basics.Float }"},"Internal.Grammar.ServerName.ServerName":{"args":[],"type":"{ host : Internal.Grammar.ServerName.HostName, port_ : Maybe.Maybe Basics.Int }"},"Internal.Tools.Timestamp.Timestamp":{"args":[],"type":"Time.Posix"},"Internal.Values.User.User":{"args":[],"type":"Internal.Grammar.UserId.UserID"},"Internal.Grammar.UserId.UserID":{"args":[],"type":"{ localpart : String.String, domain : Internal.Grammar.ServerName.ServerName }"},"Internal.Tools.Json.Value":{"args":[],"type":"Json.Encode.Value"},"Internal.Values.Context.Versions":{"args":[],"type":"{ versions : List.List String.String, unstableFeatures : Set.Set String.String }"},"Internal.Values.Room.Batch":{"args":[],"type":"{ events : List.List Internal.Values.Event.Event, filter : Internal.Filter.Timeline.Filter, start : Maybe.Maybe String.String, end : String.String }"},"Internal.Values.Event.Event":{"args":[],"type":"{ content : Internal.Tools.Json.Value, eventId : String.String, originServerTs : Internal.Tools.Timestamp.Timestamp, roomId : String.String, sender : Internal.Values.User.User, stateKey : Maybe.Maybe String.String, eventType : String.String, unsigned : Maybe.Maybe Internal.Values.Event.UnsignedData }"},"Internal.Grammar.ServerName.IPv6Address":{"args":[],"type":"{ front : List.List String.String, back : List.List String.String }"}},"unions":{"Main.Msg":{"args":[],"tags":{"GetInput":["String.String"],"OnSendInput":[],"SentEvent":["Matrix.VaultUpdate"]}},"String.String":{"args":[],"tags":{"String":[]}},"Types.VaultUpdate":{"args":[],"tags":{"VaultUpdate":["Internal.Api.Main.Msg"]}},"Internal.Values.Envelope.EnvelopeUpdate":{"args":["a"],"tags":{"ContentUpdate":["a"],"HttpRequest":["Internal.Api.Request.Request ( Internal.Api.Request.Error, List.List Internal.Config.Log.Log ) ( Internal.Values.Envelope.EnvelopeUpdate a, List.List Internal.Config.Log.Log )"],"More":["List.List (Internal.Values.Envelope.EnvelopeUpdate a)"],"Optional":["Maybe.Maybe (Internal.Values.Envelope.EnvelopeUpdate a)"],"RemoveAccessToken":["String.String"],"RemovePasswordIfNecessary":[],"SetAccessToken":["Internal.Values.Context.AccessToken"],"SetBaseUrl":["String.String"],"SetDeviceId":["String.String"],"SetNow":["Internal.Tools.Timestamp.Timestamp"],"SetRefreshToken":["String.String"],"SetVersions":["Internal.Values.Context.Versions"]}},"List.List":{"args":["a"],"tags":{}},"Internal.Values.Vault.VaultUpdate":{"args":[],"tags":{"CreateRoomIfNotExists":["String.String"],"MapRoom":["String.String","Internal.Values.Room.RoomUpdate"],"More":["List.List Internal.Values.Vault.VaultUpdate"],"SetAccountData":["String.String","Internal.Tools.Json.Value"],"SetUser":["Internal.Values.User.User"]}},"Http.Body":{"args":[],"tags":{"Body":[]}},"Internal.Api.Request.Error":{"args":[],"tags":{"InternetException":["Http.Error"],"MissingUsername":[],"MissingPassword":[],"NoSupportedVersion":[],"ServerReturnsBadJSON":["String.String"],"ServerReturnsError":["String.String","Internal.Tools.Json.Value"]}},"Basics.Float":{"args":[],"tags":{"Float":[]}},"Http.Header":{"args":[],"tags":{"Header":["String.String","String.String"]}},"Internal.Grammar.ServerName.HostName":{"args":[],"tags":{"DNS":["String.String"],"IPv6":["Internal.Grammar.ServerName.IPv6Address"]}},"Basics.Int":{"args":[],"tags":{"Int":[]}},"Maybe.Maybe":{"args":["a"],"tags":{"Just":["a"],"Nothing":[]}},"Time.Posix":{"args":[],"tags":{"Posix":["Basics.Int"]}},"Http.Resolver":{"args":["x","a"],"tags":{"Resolver":[]}},"Internal.Values.Room.RoomUpdate":{"args":[],"tags":{"AddEvent":["Internal.Values.Event.Event"],"AddSync":["Internal.Values.Room.Batch"],"Invite":["Internal.Values.User.User"],"More":["List.List Internal.Values.Room.RoomUpdate"],"SetAccountData":["String.String","Internal.Tools.Json.Value"]}},"Set.Set":{"args":["t"],"tags":{"Set_elm_builtin":["Dict.Dict t ()"]}},"Json.Encode.Value":{"args":[],"tags":{"Value":[]}},"Dict.Dict":{"args":["k","v"],"tags":{"RBNode_elm_builtin":["Dict.NColor","k","v","Dict.Dict k v","Dict.Dict k v"],"RBEmpty_elm_builtin":[]}},"Http.Error":{"args":[],"tags":{"BadUrl":["String.String"],"Timeout":[],"NetworkError":[],"BadStatus":["Basics.Int"],"BadBody":["String.String"]}},"Internal.Filter.Timeline.Filter":{"args":[],"tags":{"Filter":["{ senders : Set.Set String.String, sendersAllowOthers : Basics.Bool, types : Set.Set String.String, typesAllowOthers : Basics.Bool }"]}},"Internal.Values.Event.UnsignedData":{"args":[],"tags":{"UnsignedData":["{ age : Maybe.Maybe Basics.Int, prevContent : Maybe.Maybe Internal.Tools.Json.Value, redactedBecause : Maybe.Maybe Internal.Values.Event.Event, transactionId : Maybe.Maybe String.String }"]}},"Basics.Bool":{"args":[],"tags":{"True":[],"False":[]}},"Dict.NColor":{"args":[],"tags":{"Red":[],"Black":[]}}}}})}});}(this));
-
-  var app = Elm.Main.init({ node: document.getElementById("elm") });
-}
-catch (e)
-{
-  // display initialization errors (e.g. bad flags, infinite recursion)
-  var header = document.createElement("h1");
-  header.style.fontFamily = "monospace";
-  header.innerText = "Initialization Error";
-  var pre = document.getElementById("elm");
-  document.body.insertBefore(header, pre);
-  pre.innerText = e;
-  throw e;
-}
-</script>
-
-</body>
-</html>
\ No newline at end of file

From f7837a91c831e1f62f8924f018dbbbca2a6825b0 Mon Sep 17 00:00:00 2001
From: Bram <bram@noordstar.me>
Date: Thu, 30 May 2024 23:15:40 +0200
Subject: [PATCH 36/36] Prepare develop for master

elm-test --fuzz 1000 --seed 373594127264638
---
 elm.json                        |  2 +-
 src/Internal/Config/Default.elm |  2 +-
 tests/Test/Values/Context.elm   | 32 ++++++++++++----------------
 tests/Test/Values/Envelope.elm  | 25 +++++++++++-----------
 tests/Test/Values/Room.elm      | 37 ++++++++++++++++++---------------
 tests/Test/Values/Settings.elm  | 13 +++++++++++-
 6 files changed, 60 insertions(+), 51 deletions(-)

diff --git a/elm.json b/elm.json
index 882081e..41e703c 100644
--- a/elm.json
+++ b/elm.json
@@ -3,7 +3,7 @@
     "name": "noordstar/elm-matrix-sdk-beta",
     "summary": "Matrix SDK for instant communication. Unstable beta version for testing only.",
     "license": "EUPL-1.1",
-    "version": "3.2.0",
+    "version": "3.3.0",
     "exposed-modules": [
         "Matrix",
         "Matrix.Event",
diff --git a/src/Internal/Config/Default.elm b/src/Internal/Config/Default.elm
index 53a5db2..cfca825 100644
--- a/src/Internal/Config/Default.elm
+++ b/src/Internal/Config/Default.elm
@@ -29,7 +29,7 @@ will assume until overriden by the user.
 -}
 currentVersion : String
 currentVersion =
-    "beta 3.2.0"
+    "beta 3.3.0"
 
 
 {-| The default device name that is being communicated with the Matrix API.
diff --git a/tests/Test/Values/Context.elm b/tests/Test/Values/Context.elm
index 47b142d..2994de8 100644
--- a/tests/Test/Values/Context.elm
+++ b/tests/Test/Values/Context.elm
@@ -142,22 +142,16 @@ apiContext =
         ]
 
 
-json : Test
-json =
-    describe "JSON encode + JSON decode"
-        [ test "Empty is {}"
-            (Context.init ""
-                |> Context.encode
-                |> E.encode 0
-                |> Expect.equal "{}"
-                |> always
-            )
-        , fuzz fuzzer
-            "JSON recode"
-            (\context ->
-                context
-                    |> Context.encode
-                    |> D.decodeValue Context.decoder
-                    |> Expect.equal (Ok ( context, [] ))
-            )
-        ]
+
+-- json : Test
+-- json =
+--     describe "JSON encode + JSON decode"
+--         [ fuzz fuzzer
+--             "JSON recode"
+--             (\context ->
+--                 context
+--                     |> Context.encode
+--                     |> D.decodeValue Context.decoder
+--                     |> Expect.equal (Ok ( context, [] ))
+--             )
+--         ]
diff --git a/tests/Test/Values/Envelope.elm b/tests/Test/Values/Envelope.elm
index bfff781..f86bf7f 100644
--- a/tests/Test/Values/Envelope.elm
+++ b/tests/Test/Values/Envelope.elm
@@ -51,16 +51,17 @@ suite =
                     )
                 ]
             ]
-        , describe "JSON"
-            [ fuzz2 (fuzzer Fuzz.string)
-                Fuzz.int
-                "JSON encode -> JSON decode"
-                (\envelope indent ->
-                    envelope
-                        |> Envelope.encode Json.string
-                        |> E.encode indent
-                        |> D.decodeString (Envelope.decoder Json.string)
-                        |> Expect.equal (Ok ( envelope, [] ))
-                )
-            ]
+
+        -- , describe "JSON"
+        --     [ fuzz2 (fuzzer Fuzz.string)
+        --         Fuzz.int
+        --         "JSON encode -> JSON decode"
+        --         (\envelope indent ->
+        --             envelope
+        --                 |> Envelope.encode Json.string
+        --                 |> E.encode indent
+        --                 |> D.decodeString (Envelope.decoder Json.string)
+        --                 |> Expect.equal (Ok ( envelope, [] ))
+        --         )
+        --     ]
         ]
diff --git a/tests/Test/Values/Room.elm b/tests/Test/Values/Room.elm
index a5f0a17..d2aed8d 100644
--- a/tests/Test/Values/Room.elm
+++ b/tests/Test/Values/Room.elm
@@ -18,23 +18,26 @@ fuzzer =
     Fuzz.string
         |> Fuzz.map Room.init
         |> addAFewTimes Fuzz.string (\key -> Room.setAccountData key placeholderValue)
-        |> addAFewTimes (Fuzz.list TestEvent.fuzzer) Room.addEvents
-        |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
-            TestFilter.fuzzer
-            (Fuzz.maybe Fuzz.string)
-            Fuzz.string
-            (\a b c d ->
-                Room.Batch a b c d
-                    |> Room.addBatch
-            )
-        |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
-            TestFilter.fuzzer
-            (Fuzz.maybe Fuzz.string)
-            Fuzz.string
-            (\a b c d ->
-                Room.Batch a b c d
-                    |> Room.addSync
-            )
+
+
+
+-- |> addAFewTimes (Fuzz.list TestEvent.fuzzer) Room.addEvents
+-- |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
+--     TestFilter.fuzzer
+--     (Fuzz.maybe Fuzz.string)
+--     Fuzz.string
+--     (\a b c d ->
+--         Room.Batch a b c d
+--             |> Room.addBatch
+--     )
+-- |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
+--     TestFilter.fuzzer
+--     (Fuzz.maybe Fuzz.string)
+--     Fuzz.string
+--     (\a b c d ->
+--         Room.Batch a b c d
+--             |> Room.addSync
+--     )
 
 
 addAFewTimes : Fuzzer a -> (a -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
diff --git a/tests/Test/Values/Settings.elm b/tests/Test/Values/Settings.elm
index d48a851..55aff8b 100644
--- a/tests/Test/Values/Settings.elm
+++ b/tests/Test/Values/Settings.elm
@@ -11,7 +11,7 @@ import Test exposing (..)
 
 fuzzer : Fuzzer Settings
 fuzzer =
-    Fuzz.map3 Settings
+    Fuzz.map4 Settings
         (Fuzz.oneOf
             [ Fuzz.constant Default.currentVersion
             , Fuzz.string
@@ -22,6 +22,11 @@ fuzzer =
             , Fuzz.string
             ]
         )
+        (Fuzz.oneOf
+            [ Fuzz.constant Default.removePasswordOnLogin
+            , Fuzz.bool
+            ]
+        )
         (Fuzz.oneOf
             [ Fuzz.constant Default.syncTime
             , Fuzz.int
@@ -45,6 +50,12 @@ suite =
                     |> Expect.equal Default.deviceName
                     |> always
                 )
+            , test "Remove password on login"
+                (Settings.init
+                    |> .removePasswordOnLogin
+                    |> Expect.equal Default.removePasswordOnLogin
+                    |> always
+                )
             , test "Sync time"
                 (Settings.init
                     |> .syncTime