Add an opacity animation at signIn and loggedIn overture

1 files changed, 17 insertions, 0 deletions

diff --git a/src/server/Design/Animation/Opacity.hs b/src/server/Design/Animation/Opacity.hs
new file mode 100644
index 0000000..cc720fd
--- /dev/null
+++ b/src/server/Design/Animation/Opacity.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.Animation.Opacity
+  ( opacityAnimation
+  ) where
+
+import Data.String (fromString)
+
+import Clay
+
+import Design.Animation.Keyframes
+
+opacityAnimation :: Css
+opacityAnimation = do
+  animationName (fromString . show $ OpacityKeyframes)
+  animationDuration (sec 0.2)
+  animationTimingFunction ease