From 91b8a903daaf3ea0282316a9434a50754f5c6449 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Mon, 20 May 2019 23:35:33 +0200
Subject: [PATCH] Open SystemMessages as modals

---
 src/Foundation.hs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index b1a1f6b97..4dfdfc166 100644
--- 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.