Open SystemMessages as modals

2019-05-20 23:35:33 +02:00 · 2019-05-20 23:35:33 +02:00 · 91b8a903da
commit 91b8a903da
parent 283ad9c421
1 changed files with 2 additions and 6 deletions
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@ -1387,12 +1387,8 @@ applySystemMessages = liftHandlerT . runDB . runConduit $ selectSource [] [] .|
          Nothing -> (systemMessageSummary, systemMessageContent)
          Just SystemMessageTranslation{..} -> (systemMessageTranslationSummary, systemMessageTranslationContent)
      case summary of
-        Just s -> do
-          html <- withUrlRenderer [hamlet|
-              <a href=@{MessageR cID}>
-                #{s}
-            |]
-          addMessage systemMessageSeverity html
+        Just s ->
+          addMessageWidget systemMessageSeverity $ msgModal (toWidget s) (Left . SomeRoute $ MessageR cID)
        Nothing -> addMessage systemMessageSeverity content

 -- Define breadcrumbs.