From 1e1d9490bfad8bf9583205ca495209a4bc3ca735 Mon Sep 17 00:00:00 2001
From: Bram van den Heuvel <bram.vdh1999@gmail.com>
Date: Fri, 24 Mar 2023 17:11:10 +0100
Subject: [PATCH] Temporarily remove whoami for demo

It's annoying, and it doesn't serve any purpose if it's not getting used anyway.
---
 src/Demos/Cookies.html           | 183 +++----------------------------
 src/Internal/Api/VaultUpdate.elm |  22 ++--
 2 files changed, 27 insertions(+), 178 deletions(-)

diff --git a/src/Demos/Cookies.html b/src/Demos/Cookies.html
index 5b63e71..0dfe20f 100644
--- a/src/Demos/Cookies.html
+++ b/src/Demos/Cookies.html
@@ -13102,10 +13102,6 @@ var $noordstar$elm_matrix_sdk$Internal$Api$Credentials$accessToken = function (_
 	return access;
 };
 var $noordstar$elm_matrix_sdk$Internal$Tools$Exceptions$NoAccessToken = {$: 'NoAccessToken'};
-var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$UpdateRawAccessToken = F2(
-	function (a, b) {
-		return {$: 'UpdateRawAccessToken', a: a, b: b};
-	});
 var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$LoggedInWithUsernameAndPassword = F2(
 	function (a, b) {
 		return {$: 'LoggedInWithUsernameAndPassword', a: a, b: b};
@@ -13610,144 +13606,6 @@ var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$loginWithUsernameAndPassw
 		$noordstar$elm_matrix_sdk$Internal$Api$LoginWithUsernameAndPassword$Main$loginWithUsernameAndPassword,
 		input);
 };
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V2$Upcast$upcastWhoAmIResponse = function (old) {
-	return {deviceId: $elm$core$Maybe$Nothing, userId: old.userId};
-};
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V3$Upcast$upcastWhoAmIResponse = function (old) {
-	return {deviceId: old.deviceId, isGuest: false, userId: old.userId};
-};
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V1$SpecObjects$whoAmIResponseDecoder = A2(
-	$elm$json$Json$Decode$map,
-	function (a) {
-		return {userId: a};
-	},
-	A2($elm$json$Json$Decode$field, 'user_id', $elm$json$Json$Decode$string));
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV1 = function (_v0) {
-	return A2(
-		$elm$core$Basics$composeR,
-		A2($noordstar$elm_matrix_sdk$Internal$Api$Request$callApi, 'GET', '/_matrix/client/r0/account/whoami'),
-		A2(
-			$elm$core$Basics$composeR,
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$withAttributes(
-				_List_fromArray(
-					[$noordstar$elm_matrix_sdk$Internal$Api$Request$accessToken])),
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$toTask($noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V1$SpecObjects$whoAmIResponseDecoder)));
-};
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V2$SpecObjects$whoAmIResponseDecoder = A3(
-	$elm$json$Json$Decode$map2,
-	F2(
-		function (a, b) {
-			return {deviceId: a, userId: b};
-		}),
-	A2($noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opField, 'device_id', $elm$json$Json$Decode$string),
-	A2($elm$json$Json$Decode$field, 'user_id', $elm$json$Json$Decode$string));
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV2 = function (_v0) {
-	return A2(
-		$elm$core$Basics$composeR,
-		A2($noordstar$elm_matrix_sdk$Internal$Api$Request$callApi, 'GET', '/_matrix/client/v3/account/whoami'),
-		A2(
-			$elm$core$Basics$composeR,
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$withAttributes(
-				_List_fromArray(
-					[$noordstar$elm_matrix_sdk$Internal$Api$Request$accessToken])),
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$toTask($noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V2$SpecObjects$whoAmIResponseDecoder)));
-};
-var $noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opFieldWithDefault = F3(
-	function (fieldName, _default, decoder) {
-		return A2(
-			$elm$json$Json$Decode$map,
-			$elm$core$Maybe$withDefault(_default),
-			A2($noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opField, fieldName, decoder));
-	});
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V3$SpecObjects$whoAmIResponseDecoder = A4(
-	$elm$json$Json$Decode$map3,
-	F3(
-		function (a, b, c) {
-			return {deviceId: a, isGuest: b, userId: c};
-		}),
-	A2($noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opField, 'device_id', $elm$json$Json$Decode$string),
-	A3($noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opFieldWithDefault, 'is_guest', false, $elm$json$Json$Decode$bool),
-	A2($elm$json$Json$Decode$field, 'user_id', $elm$json$Json$Decode$string));
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV3 = function (_v0) {
-	return A2(
-		$elm$core$Basics$composeR,
-		A2($noordstar$elm_matrix_sdk$Internal$Api$Request$callApi, 'GET', '/_matrix/client/v3/account/whoami'),
-		A2(
-			$elm$core$Basics$composeR,
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$withAttributes(
-				_List_fromArray(
-					[$noordstar$elm_matrix_sdk$Internal$Api$Request$accessToken])),
-			$noordstar$elm_matrix_sdk$Internal$Api$Request$toTask($noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V3$SpecObjects$whoAmIResponseDecoder)));
-};
-var $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Main$whoAmI = F2(
-	function (context, input) {
-		return A3(
-			$elm$core$Basics$apR,
-			A2(
-				$elm$core$Maybe$withDefault,
-				$elm$core$Basics$always(
-					$elm$core$Basics$always(
-						$elm$core$Task$fail($noordstar$elm_matrix_sdk$Internal$Tools$Exceptions$UnsupportedSpecVersion))),
-				A2(
-					$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$mostRecentFromVersionList,
-					$noordstar$elm_matrix_sdk$Internal$Tools$Context$getVersions(context),
-					A2(
-						$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-						'v1.6',
-						A2(
-							$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-							'v1.5',
-							A2(
-								$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-								'v1.4',
-								A2(
-									$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-									'v1.3',
-									A2(
-										$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$addMiddleLayer,
-										{
-											current: $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV3,
-											downcast: $elm$core$Basics$identity,
-											upcast: F2(
-												function (f, c) {
-													return A2(
-														$elm$core$Task$map,
-														$noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V3$Upcast$upcastWhoAmIResponse,
-														f(c));
-												}),
-											version: 'v1.2'
-										},
-										A2(
-											$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$addMiddleLayer,
-											{
-												current: $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV2,
-												downcast: $elm$core$Basics$identity,
-												upcast: F2(
-													function (f, c) {
-														return A2(
-															$elm$core$Task$map,
-															$noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$V2$Upcast$upcastWhoAmIResponse,
-															f(c));
-													}),
-												version: 'v1.1'
-											},
-											A2(
-												$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-												'r0.6.1',
-												A2(
-													$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-													'r0.6.0',
-													A2(
-														$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-														'r0.5.0',
-														A2(
-															$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$sameForVersion,
-															'r0.4.0',
-															$noordstar$elm_matrix_sdk$Internal$Tools$VersionControl$withBottomLayer(
-																{current: $noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Api$whoAmIV1, version: 'r0.3.0'}))))))))))))),
-			$elm$core$Basics$apR(input),
-			context);
-	});
 var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$accessToken = function (ctoken) {
 	switch (ctoken.$) {
 		case 'NoAccess':
@@ -13756,30 +13614,14 @@ var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$accessToken = function (c
 					$noordstar$elm_matrix_sdk$Internal$Tools$Exceptions$SDKException($noordstar$elm_matrix_sdk$Internal$Tools$Exceptions$NoAccessToken)));
 		case 'RawAccessToken':
 			var t = ctoken.a;
-			return A2(
-				$noordstar$elm_matrix_sdk$Internal$Api$Chain$andThen,
-				A3(
-					$noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$toChain,
-					function (output) {
-						return $noordstar$elm_matrix_sdk$Internal$Api$Chain$TaskChainPiece(
-							{
-								contextChange: $elm$core$Basics$identity,
-								messages: _List_fromArray(
-									[
-										A2($noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$UpdateRawAccessToken, t, output)
-									])
-							});
-					},
-					$noordstar$elm_matrix_sdk$Internal$Api$WhoAmI$Main$whoAmI,
-					_Utils_Tuple0),
-				$elm$core$Basics$always(
-					$elm$core$Task$succeed(
-						$noordstar$elm_matrix_sdk$Internal$Api$Chain$TaskChainPiece(
-							{
-								contextChange: $noordstar$elm_matrix_sdk$Internal$Tools$Context$setAccessToken(
-									{accessToken: t, loginParts: $elm$core$Maybe$Nothing}),
-								messages: _List_Nil
-							}))));
+			return $elm$core$Basics$always(
+				$elm$core$Task$succeed(
+					$noordstar$elm_matrix_sdk$Internal$Api$Chain$TaskChainPiece(
+						{
+							contextChange: $noordstar$elm_matrix_sdk$Internal$Tools$Context$setAccessToken(
+								{accessToken: t, loginParts: $elm$core$Maybe$Nothing}),
+							messages: _List_Nil
+						})));
 		case 'DetailedAccessToken':
 			var data = ctoken.a;
 			return $elm$core$Basics$always(
@@ -13823,6 +13665,13 @@ var $noordstar$elm_matrix_sdk$Internal$Api$Credentials$versions = function (_v0)
 var $noordstar$elm_matrix_sdk$Internal$Api$VaultUpdate$UpdateVersions = function (a) {
 	return {$: 'UpdateVersions', a: a};
 };
+var $noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opFieldWithDefault = F3(
+	function (fieldName, _default, decoder) {
+		return A2(
+			$elm$json$Json$Decode$map,
+			$elm$core$Maybe$withDefault(_default),
+			A2($noordstar$elm_matrix_sdk$Internal$Tools$DecodeExtra$opField, fieldName, decoder));
+	});
 var $noordstar$elm_matrix_sdk$Internal$Api$Versions$V1$Versions$versionsDecoder = A3(
 	$elm$json$Json$Decode$map2,
 	F2(
@@ -16533,7 +16382,7 @@ var $noordstar$elm_matrix_sdk$Demos$Cookie$view = function (model) {
 												case 1:
 													return user + ' sent you a cookie! 🍪';
 												case 2:
-													return user + ' sent you a cookie! 🍪🍪';
+													return user + ' sent you 2 cookies! 🍪🍪';
 												default:
 													return user + (' sent you ' + ($elm$core$String$fromInt(amount) + ' cookies! 🍪🍪🍪'));
 											}
diff --git a/src/Internal/Api/VaultUpdate.elm b/src/Internal/Api/VaultUpdate.elm
index e360b89..740976b 100644
--- a/src/Internal/Api/VaultUpdate.elm
+++ b/src/Internal/Api/VaultUpdate.elm
@@ -91,17 +91,17 @@ accessToken ctoken =
                 |> Chain.TaskChainPiece
                 |> Task.succeed
                 |> always
-                |> Chain.andThen
-                    (toChain
-                        (\output ->
-                            Chain.TaskChainPiece
-                                { contextChange = identity
-                                , messages = [ UpdateRawAccessToken t output ]
-                                }
-                        )
-                        WhoAmI.whoAmI
-                        ()
-                    )
+                -- |> Chain.andThen
+                --     (toChain
+                --         (\output ->
+                --             Chain.TaskChainPiece
+                --                 { contextChange = identity
+                --                 , messages = [ UpdateRawAccessToken t output ]
+                --                 }
+                --         )
+                --         WhoAmI.whoAmI
+                --         ()
+                --     )
 
         DetailedAccessToken data ->
             { contextChange = Context.setAccessToken { accessToken = data.accessToken, loginParts = Nothing }