diff options
Diffstat (limited to 'src/Sessions.hs')
| -rw-r--r-- | src/Sessions.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Sessions.hs b/src/Sessions.hs index f5b2f6f41000..713059a38383 100644 --- a/src/Sessions.hs +++ b/src/Sessions.hs @@ -58,7 +58,7 @@ delete dbFile uuid = withConnection dbFile $ \conn -> -- | Find or create a session in the Sessions table. If a session exists, -- refresh the token's validity. findOrCreate :: FilePath -> T.Account -> IO T.SessionUUID -findOrCreate dbFile account = withConnection dbFile $ \conn -> +findOrCreate dbFile account = let username = T.accountUsername account in do mSession <- find dbFile username case mSession of |