Update existing types & modules

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
 
 

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
-        (Set.fromList versions)
+        [ accessToken
-        (Set.fromList
+        , baseUrl
-            [ accessToken
+        , field
-            , baseUrl
+        , transaction
-            , 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"
+    }

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."
             ]

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 } }
 

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