From 885efd364b5a59365b1594e33c5de8317e9f16fd Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Wed, 25 Sep 2019 18:12:04 +0200
Subject: [PATCH] feat(tooltip): added test warning to admin test page

---
 src/Handler/Admin.hs       | 2 ++
 src/Utils/Message.hs       | 2 +-
 templates/adminTest.hamlet | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index e8f48f5c3..8b53e2482 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -147,6 +147,8 @@ postAdminTestR = do
                     <li>#{m}
         |]
   let testTooltip = toWidget [whamlet|Hier könnte Ihr Tooltip stehen!|] :: WidgetFor UniWorX ()
+  let msgCont = "Allerletzte Warnung!" :: Html
+      msgStat = Warning
 
 
   {- The following demonstrates the use of @massInput@.
diff --git a/src/Utils/Message.hs b/src/Utils/Message.hs
index 97ca8ce35..ee4278c70 100644
--- a/src/Utils/Message.hs
+++ b/src/Utils/Message.hs
@@ -7,7 +7,7 @@ module Utils.Message
   , statusToUrgencyClass
   , Message(..)
   , messageIconI
-  , messageI, messageIHamlet, messageFile, messageWidget
+  , messageI, messageIHamlet, messageFile, messageWidget, messageTooltip
   ) where
 
 import Data.Universe
diff --git a/templates/adminTest.hamlet b/templates/adminTest.hamlet
index d402f06d9..56a2214f4 100644
--- a/templates/adminTest.hamlet
+++ b/templates/adminTest.hamlet
@@ -9,6 +9,7 @@
 
  <p>
    ^{iconTooltip testTooltip Nothing}
+   ^{messageTooltip (Message msgStat msgCont Nothing)}
 
  <p>
   <span .tooltip>