newLabelForm :: Handler ((FormResult Text, Widget), Enctype)
newLabelForm = runFormPost $ renderTable $ id
    <$> areq textField (FieldSettings MsgLabelName Nothing Nothing Nothing) Nothing
newLabelForm :: Handler ((FormResult Text, Widget), Enctype)
newLabelForm = runFormPost $ renderTable $ id
    <$> areq textField (FieldSettings MsgLabelName Nothing Nothing Nothing) Nothing
newLabelForm = runFormPost $ renderTable $ id
    <$> areq textField (FieldSettings MsgLabelName Nothing Nothing Nothing) Nothing