createUser :: FacebookInfo -> AppM (User, Principal)
createUser (FacebookInfo fid fname) = do
    let usr = User Nothing fid fname False
    update usr
    p <- makePrincipal usr
    return (usr, p)
createUser :: FacebookInfo -> AppM (User, Principal)
createUser (FacebookInfo fid fname) = do
    let usr = User Nothing fid fname False
    update usr
    p <- makePrincipal usr
    return (usr, p)
createUser (FacebookInfo fid fname) = do
    let usr = User Nothing fid fname False
    update usr
    p <- makePrincipal usr
    return (usr, p)