Changed loading status animation (#15)
commitcd081ae4ae12554e63b0bb46cd8d94c34b6c1fcb
authoriko <ilyakooo0@gmail.com>
dateFri 15 Jan 2021, 18:12 (6 years ago)
parentebdf332
octopod-frontend/src/Frontend/Utils.hs+1−1
@@ -317,7 +317,7 @@ statusWidget :: MonadWidget t m => Dynamic t DeploymentStatus -> m ()
317317statusWidget stDyn = do
318318 stDyn' <- holdUniqDyn stDyn
319319 let
320− pendingWidget = divClass "status status--pending"
320+ pendingWidget = divClass "loading loading--status-alike"
321321 dyn_ $ stDyn' <&> \case
322322 Running -> divClass "status status--success" $ text "Running"
323323 Failure -> divClass "status status--failure" $ text "Failure"