Set -Wall and fix warnings

I think setting -Wall is a sensible default and @dmjio confirmed this. After
putting this in my project's .ghci file, a few dozen warnings emerged. This
commit changes the code that causes the warnings.

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