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)}