git.iko.soy/denis
on master help sign in
Fixed deleting user with no tokens bug
4a67a77iko
denis/src/Data/Query.hs+2−1
compare with master
unifiedsplit
@@ -781,7 +781,8 @@ pruneDeadTokensQ = deleteFrom_ #tokens
781
781
782pruneGhostUsersQ :: Manipulation Schema '[] '[]
782pruneGhostUsersQ :: Manipulation Schema '[] '[]
783pruneGhostUsersQ = deleteFrom_ #users
783pruneGhostUsersQ = deleteFrom_ #users
784− (not_ . in_ #userRowId $ select (#tokens ! #tokenUserId `as` #id) $ from $ table #tokens)
784+ ((not_ . in_ #userRowId $ select (#tokens ! #tokenUserId `as` #id) (from $ table #tokens)) .&&
785+ (not_ . notNull $ #userRowIsValidated))
785
786
786-- MARK: FrontEnd Data Structures
787-- MARK: FrontEnd Data Structures
787
788