Prefer deleting sessions by their UUID

Instead of deleting them by usernames.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Sessions.hs b/src/Sessions.hs
index 1d3f0d6e88fa..12b641b92ff6 100644
--- a/src/Sessions.hs
+++ b/src/Sessions.hs
@@ -43,9 +43,9 @@ refresh dbFile uuid = withConnection dbFile $ \conn -> do
   pure ()
 
 -- | Delete the session under `username` from `dbFile`.
-delete :: FilePath -> T.Username -> IO ()
-delete dbFile username = withConnection dbFile $ \conn ->
-  execute conn "DELETE FROM Sessions WHERE username = ?" (Only username)
+delete :: FilePath -> T.SessionUUID -> IO ()
+delete dbFile uuid = withConnection dbFile $ \conn ->
+  execute conn "DELETE FROM Sessions WHERE uuid = ?" (Only uuid)
 
 -- | Find or create a session in the Sessions table. If a session exists,
 -- refresh the token's validity.