mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Debug erroneous table name

Browse source 
"Session" doesn't exist, but "Sessions" does.
This commit is contained in:
William Carroll 2020-07-30 09:51:32 +01:00
parent fdd51f626c
commit ca26fcd523
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Sessions.hs
View file

@ -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