results <- lift $ runDB $ select $ baseQuery True