getUpdateR :: T.Text -> Handler RepHtml
getUpdateR repoName = do
    (Extra {..}) <- appExtra . settings <$> getYesod
    if repoName `elem` extraRepos
        then defaultLayout $ updateWidget (fromText extraBaseDir)
                                          (fromText repoName)
        else notFound
getUpdateR :: T.Text -> Handler RepHtml
getUpdateR repoName = do
    (Extra {..}) <- appExtra . settings <$> getYesod
    if repoName `elem` extraRepos
        then defaultLayout $ updateWidget (fromText extraBaseDir)
                                          (fromText repoName)
        else notFound
getUpdateR repoName = do
    (Extra {..}) <- appExtra . settings <$> getYesod
    if repoName `elem` extraRepos
        then defaultLayout $ updateWidget (fromText extraBaseDir)
                                          (fromText repoName)
        else notFound