From cd081ae4ae12554e63b0bb46cd8d94c34b6c1fcb Mon Sep 17 00:00:00 2001
From: iko <ilyakooo0@gmail.com>
Date: Fri, 15 Jan 2021 18:12:12 +0300
Subject: [PATCH] Changed loading status animation (#15)

---
 octopod-frontend/src/Frontend/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/octopod-frontend/src/Frontend/Utils.hs b/octopod-frontend/src/Frontend/Utils.hs
index b2a4e83..d282b5f 100644
--- a/octopod-frontend/src/Frontend/Utils.hs
+++ b/octopod-frontend/src/Frontend/Utils.hs
@@ -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"