userUpdateView :: View Html -> Html
userUpdateView v = do
    H.legend "User:"
    bootstrapFormFieldInput "name" "Name:" v
    bootstrapFormFieldInput "email" "Email:" v
    passwordUpdateView $ subView "password" v
    F.errorList "password" v
userUpdateView :: View Html -> Html
userUpdateView v = do
    H.legend "User:"
    bootstrapFormFieldInput "name" "Name:" v
    bootstrapFormFieldInput "email" "Email:" v
    passwordUpdateView $ subView "password" v
    F.errorList "password" v
userUpdateView v = do
    H.legend "User:"
    bootstrapFormFieldInput "name" "Name:" v
    bootstrapFormFieldInput "email" "Email:" v
    passwordUpdateView $ subView "password" v
    F.errorList "password" v