postCaptionR :: ImagesId ->Handler RepHtml
postCaptionR id = do
    ((result, widget), enctype) <- runFormPost captionForm
    case result of
        FormSuccess cap -> do 
                        runDB (update id [ImagesCaption =. T.unpack cap])
                        redirect RedirectTemporary (ImageR id)
        _ ->  redirect RedirectTemporary $ ImageR id
postCaptionR :: ImagesId ->Handler RepHtml
postCaptionR id = do
    ((result, widget), enctype) <- runFormPost captionForm
    case result of
        FormSuccess cap -> do 
                        runDB (update id [ImagesCaption =. T.unpack cap])
                        redirect RedirectTemporary (ImageR id)
        _ ->  redirect RedirectTemporary $ ImageR id
postCaptionR id = do
    ((result, widget), enctype) <- runFormPost captionForm
    case result of
        FormSuccess cap -> do 
                        runDB (update id [ImagesCaption =. T.unpack cap])
                        redirect RedirectTemporary (ImageR id)
        _ ->  redirect RedirectTemporary $ ImageR id