mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 12:18:29 +01:00
22 lines
625 B
Haskell
22 lines
625 B
Haskell
module Handler.Progress where
|
|
|
|
import Import
|
|
|
|
getProgressR :: Int -> Handler Html
|
|
getProgressR key = do
|
|
app <- getYesod
|
|
m <- readIORef $ progressMap app
|
|
case lookup key m of
|
|
Nothing -> notFound
|
|
Just (ProgressWorking text) -> defaultLayout $ do
|
|
$(combineStylesheets 'StaticR
|
|
[ css_bootstrap_css
|
|
, css_bootstrap_responsive_css
|
|
])
|
|
addHeader "Refresh" "1"
|
|
setTitle "Working..."
|
|
[whamlet|<p>#{text}|]
|
|
Just (ProgressDone text url) -> do
|
|
setMessage $ toHtml text
|
|
redirect url
|