equal
deleted
inserted
replaced
39 statement <- prepare dbConn dbQueryAccount |
39 statement <- prepare dbConn dbQueryAccount |
40 execute statement [SqlByteString clNick] |
40 execute statement [SqlByteString clNick] |
41 result <- fetchRow statement |
41 result <- fetchRow statement |
42 finish statement |
42 finish statement |
43 let response = |
43 let response = |
44 if isJust result then let [pass, adm, contr] = fromJust $ result |
44 if isJust result then let [pass, adm, contr] = fromJust result in |
45 ( |
45 ( |
46 clId, |
46 clId, |
47 clUid, |
47 clUid, |
48 HasAccount |
48 HasAccount |
49 (fromSql pass) |
49 (fromSql pass) |