deleteSession :: Connection
              -> UUID
              -> ActionM Bool
deleteSession conn sessionId = do
  let deleteQuery = "DELETE FROM carduser_session WHERE id = ?"
  numRows <- liftIO $ execute conn deleteQuery (Only sessionId)
  return $ if numRows == 1 then True else False
deleteSession :: Connection
              -> UUID
              -> ActionM Bool
deleteSession conn sessionId = do
  let deleteQuery = "DELETE FROM carduser_session WHERE id = ?"
  numRows <- liftIO $ execute conn deleteQuery (Only sessionId)
  return $ if numRows == 1 then True else False
deleteSession conn sessionId = do
  let deleteQuery = "DELETE FROM carduser_session WHERE id = ?"
  numRows <- liftIO $ execute conn deleteQuery (Only sessionId)
  return $ if numRows == 1 then True else False