diff --git a/src/Sessions.hs b/src/Sessions.hs index b03de6eee..19099fe2e 100644 --- a/src/Sessions.hs +++ b/src/Sessions.hs @@ -20,7 +20,7 @@ isValid session = do -- | Lookup the session by UUID. get :: FilePath -> T.SessionUUID -> IO (Maybe T.StoredSession) get dbFile uuid = withConnection dbFile $ \conn -> do - res <- query conn "SELECT * FROM Session WHERE uuid = ?" (Only uuid) + res <- query conn "SELECT * FROM Sessions WHERE uuid = ?" (Only uuid) case res of [x] -> pure (Just x) _ -> pure Nothing