From 8d6744360fadf4f5c770bfb6599b88a3c1301150 Mon Sep 17 00:00:00 2001
From: Tristan Cacqueray <tdecacqu@redhat.com>
Date: Thu, 14 Aug 2025 10:27:33 +0200
Subject: [PATCH] Change login response to make home server optional

Fixes: #44
---
 src/Network/Matrix/Internal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Network/Matrix/Internal.hs b/src/Network/Matrix/Internal.hs
index df5f63a..d17ee6b 100644
--- a/src/Network/Matrix/Internal.hs
+++ b/src/Network/Matrix/Internal.hs
@@ -37,7 +37,7 @@ data LoginSecret = Password Text | Token Text
 data LoginResponse = LoginResponse
     { lrUserId :: Text
     , lrAccessToken :: Text
-    , lrHomeServer :: Text
+    , lrHomeServer :: Maybe Text
     , lrDeviceId :: Text
     }
 
@@ -45,7 +45,7 @@ instance FromJSON LoginResponse where
     parseJSON = withObject "LoginResponse" $ \v -> do
         userId' <- v .: "user_id"
         accessToken' <- v .: "access_token"
-        homeServer' <- v .: "home_server"
+        homeServer' <- v .:? "home_server"
         deviceId' <- v .: "device_id"
         pure $ LoginResponse userId' accessToken' homeServer' deviceId'