Add tooltips

2 files changed, 18 insertions, 0 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 68d0196..dfe19b0 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -13,6 +13,7 @@ import qualified Design.SignIn as SignIn
 import qualified Design.LoggedIn as LoggedIn
 import qualified Design.Form as Form
 import qualified Design.Dialog as Dialog
+import qualified Design.Tooltip as Tooltip
 
 import Design.Color as Color
 import Design.Helper as Helper
@@ -28,6 +29,7 @@ global = do
   ".signIn" ? SignIn.design
   ".loggedIn" ? LoggedIn.design
   ".dialog" ? Dialog.design
+  ".tooltip" ? Tooltip.design
   Form.design
 
   body ? do
diff --git a/src/server/Design/Tooltip.hs b/src/server/Design/Tooltip.hs
new file mode 100644
index 0000000..1da8764
--- /dev/null
+++ b/src/server/Design/Tooltip.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.Tooltip
+  ( design
+  ) where
+
+import Clay
+
+import Design.Color as Color
+
+design :: Css
+design = do
+  backgroundColor Color.mossGreen
+  borderRadius (px 5) (px 5) (px 5) (px 5)
+  padding (px 5) (px 5) (px 5) (px 5)
+  color Color.white