createClient :: Connection -> IO Client
createClient conn = do
    let q = "insert into clients (nickname) values ('anon') returning client_id, nickname"
    xs@(x:_) :: [(Int, Text)] <- query_ conn q 
    return (Client { clientId = (fst x)
                   , nickName = "anon"
                   , clientRoomId = Nothing
                   }) 
createClient :: Connection -> IO Client
createClient conn = do
    let q = "insert into clients (nickname) values ('anon') returning client_id, nickname"
    xs@(x:_) :: [(Int, Text)] <- query_ conn q 
    return (Client { clientId = (fst x)
                   , nickName = "anon"
                   , clientRoomId = Nothing
                   }) 
createClient conn = do
    let q = "insert into clients (nickname) values ('anon') returning client_id, nickname"
    xs@(x:_) :: [(Int, Text)] <- query_ conn q 
    return (Client { clientId = (fst x)
                   , nickName = "anon"
                   , clientRoomId = Nothing
                   }) 