mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 20:28:32 +01:00
15 lines
381 B
Haskell
15 lines
381 B
Haskell
module Handler.CompressorStatus where
|
|
|
|
import Import
|
|
|
|
getCompressorStatusR :: Handler Html
|
|
getCompressorStatusR = do
|
|
status <- getYesod >>= liftIO . duGetStatus . appDocUnpacker
|
|
defaultLayout $ do
|
|
setTitle "Compressor thread status"
|
|
[whamlet|
|
|
<div .container>
|
|
<h1>Compressor thread status
|
|
<p>#{status}
|
|
|]
|