equal
deleted
inserted
replaced
49 if isJust passAndRole then |
49 if isJust passAndRole then |
50 writeChan coreChan $ |
50 writeChan coreChan $ |
51 ClientAccountInfo (clientUID client) $ |
51 ClientAccountInfo (clientUID client) $ |
52 HasAccount |
52 HasAccount |
53 (fromSql $ head $ fromJust $ passAndRole) |
53 (fromSql $ head $ fromJust $ passAndRole) |
54 ((fromSql $ last $ fromJust $ passAndRole) == (3 :: Int)) |
54 ((fromSql $ last $ fromJust $ passAndRole) == (Just (3 :: Int))) |
55 else |
55 else |
56 writeChan coreChan $ ClientAccountInfo (clientUID client) Guest |
56 writeChan coreChan $ ClientAccountInfo (clientUID client) Guest |
57 `onException` |
57 `onException` |
58 (unGetChan queries q) |
58 (unGetChan queries q) |
59 |
59 |