equal
deleted
inserted
replaced
34 throw (e :: Exception) -- |
34 throw (e :: Exception) -- |
35 -- to be deleted -------------------------------------------------- |
35 -- to be deleted -------------------------------------------------- |
36 ------------------------------------------------------------------- |
36 ------------------------------------------------------------------- |
37 |
37 |
38 dbQueryString = |
38 dbQueryString = |
39 "SELECT users.pass, users_roles.rid FROM `users`, users_roles " |
39 "select users.pass, users_roles.rid from users left join users_roles on users.uid = users_roles.uid where users.name = ?" |
40 ++ "WHERE users.name = ? AND users_roles.uid = users.uid" |
|
41 |
40 |
42 dbInteractionLoop queries coreChan dbConn = do |
41 dbInteractionLoop queries coreChan dbConn = do |
43 q <- readChan queries |
42 q <- readChan queries |
44 case q of |
43 case q of |
45 CheckAccount client -> do |
44 CheckAccount client -> do |