typeable/octopod
1
0
Fork 0
mirror of https://github.com/typeable/octopod.git synced 2024-11-22 16:56:29 +03:00
Code Issues Projects Releases Wiki Activity

Changed loading status animation (#15)

Browse Source
This commit is contained in:
iko 2021-01-15 18:12:12 +03:00
parent ebdf332cce
commit cd081ae4ae
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
octopod-frontend/src/Frontend/Utils.hs
View File

@ -317,7 +317,7 @@ statusWidget :: MonadWidget t m => Dynamic t DeploymentStatus -> m ()
statusWidget stDyn = do
stDyn' <- holdUniqDyn stDyn
let
pendingWidget = divClass "status status--pending"
pendingWidget = divClass "loading loading--status-alike"
dyn_ $ stDyn' <&> \case
Running -> divClass "status status--success" $ text "Running"
Failure -> divClass "status status--failure" $ text "Failure"