Show users in income table

2 files changed, 27 insertions, 0 deletions

diff --git a/server/src/Design/Appearing.hs b/server/src/Design/Appearing.hs
new file mode 100644
index 0000000..79b94b3
--- /dev/null
+++ b/server/src/Design/Appearing.hs
@@ -0,0 +1,25 @@
+module Design.Appearing
+  ( design
+  ) where
+
+import           Clay
+
+design :: Css
+design = do
+
+  appearKeyframe
+
+  ".g-Appearing" ? do
+    appearAnimation
+
+appearAnimation :: Css
+appearAnimation = do
+  animationName "appear"
+  animationDuration (sec 0.2)
+  animationTimingFunction easeIn
+
+appearKeyframe :: Css
+appearKeyframe = keyframes
+  "appear"
+  [ (0, "opacity" -: "0")
+  ]
diff --git a/server/src/Design/Global.hs b/server/src/Design/Global.hs
index f9884bd..df41cfd 100644
--- a/server/src/Design/Global.hs
+++ b/server/src/Design/Global.hs
@@ -6,6 +6,7 @@ import           Clay
 import           Clay.Color       as C
 import           Data.Text.Lazy   (Text)
 
+import qualified Design.Appearing as Appearing
 import qualified Design.Color     as Color
 import qualified Design.Constants as Constants
 import qualified Design.Errors    as Errors
@@ -22,6 +23,7 @@ globalDesign = renderWith compact [] global
 global :: Css
 global = do
   ".errors" ? Errors.design
+  Appearing.design
   Modal.design
   ".tooltip" ? Tooltip.design
   Views.design