postNewLabelR :: Handler ()
postNewLabelR = do
    ((res, _), _) <- newLabelForm
    case res of
        FormSuccess name -> runDB (insert $ Label Nothing name) >> return ()
        _ -> return ()
    redirect RedirectTemporary LabelsR
postNewLabelR :: Handler ()
postNewLabelR = do
    ((res, _), _) <- newLabelForm
    case res of
        FormSuccess name -> runDB (insert $ Label Nothing name) >> return ()
        _ -> return ()
    redirect RedirectTemporary LabelsR
postNewLabelR = do
    ((res, _), _) <- newLabelForm
    case res of
        FormSuccess name -> runDB (insert $ Label Nothing name) >> return ()
        _ -> return ()
    redirect RedirectTemporary LabelsR