getItemR :: Handler RepHtml
getItemR = do
    ((results, form), enctype) <- runFormGet $ renderDivs itemForm
    defaultLayout $ do
        setTitle "Lollerskates ~ Item Statistics"
        item <- case results of
            FormSuccess ip -> return $ ipItem ip
            _ -> return RubyCrystal
        $(widgetFile "item")
getItemR :: Handler RepHtml
getItemR = do
    ((results, form), enctype) <- runFormGet $ renderDivs itemForm
    defaultLayout $ do
        setTitle "Lollerskates ~ Item Statistics"
        item <- case results of
            FormSuccess ip -> return $ ipItem ip
            _ -> return RubyCrystal
        $(widgetFile "item")
getItemR = do
    ((results, form), enctype) <- runFormGet $ renderDivs itemForm
    defaultLayout $ do
        setTitle "Lollerskates ~ Item Statistics"
        item <- case results of
            FormSuccess ip -> return $ ipItem ip
            _ -> return RubyCrystal
        $(widgetFile "item")