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
#{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 @@
^{iconTooltip testTooltip Nothing}
+ ^{messageTooltip (Message msgStat msgCont Nothing)}