postAdminR :: Handler Html
postAdminR = do
    ((result, _), _) <- runFormPost newboardForm
    case result of
        FormSuccess board -> do
            void . runDB $ insert board
            setMessage $ toHtml $ "New board added: " <> boardName board
        _ -> setMessage "Something went wrong while creating the board"
    redirect AdminR
postAdminR :: Handler Html
postAdminR = do
    ((result, _), _) <- runFormPost newboardForm
    case result of
        FormSuccess board -> do
            void . runDB $ insert board
            setMessage $ toHtml $ "New board added: " <> boardName board
        _ -> setMessage "Something went wrong while creating the board"
    redirect AdminR
postAdminR = do
    ((result, _), _) <- runFormPost newboardForm
    case result of
        FormSuccess board -> do
            void . runDB $ insert board
            setMessage $ toHtml $ "New board added: " <> boardName board
        _ -> setMessage "Something went wrong while creating the board"
    redirect AdminR