feat(tooltip): added test warning to admin test page

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@.

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

templates/adminTest.hamlet

@@ -9,6 +9,7 @@
 
  <p>
    ^{iconTooltip testTooltip Nothing}
+   ^{messageTooltip (Message msgStat msgCont Nothing)}
 
  <p>
   <span .tooltip>