userForm :: (Monad m, TR.FormInput input, BH.ToMarkup (DemoFormError input)) => 
            String -> -- ^ initial username
            String -> -- ^ initial email
            TR.Form m input (DemoFormError input) BH.Html ValidUser User
userForm nm eml = mkUser CAI.<<*>> (usernameForm nm) CAI.<<*>> (emailForm eml)
userForm :: (Monad m, TR.FormInput input, BH.ToMarkup (DemoFormError input)) => 
            String -> -- ^ initial username
            String -> -- ^ initial email
            TR.Form m input (DemoFormError input) BH.Html ValidUser User
userForm nm eml = mkUser CAI.<<*>> (usernameForm nm) CAI.<<*>> (emailForm eml)
userForm nm eml = mkUser CAI.<<*>> (usernameForm nm) CAI.<<*>> (emailForm eml)