fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Open SystemMessages as modals

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-20 23:35:33 +02:00
parent 283ad9c421
commit 91b8a903da
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Foundation.hs
View File

@ -1387,12 +1387,8 @@ applySystemMessages = liftHandlerT . runDB . runConduit $ selectSource [] [] .|
Nothing -> (systemMessageSummary, systemMessageContent) Nothing -> (systemMessageSummary, systemMessageContent)
Just SystemMessageTranslation{..} -> (systemMessageTranslationSummary, systemMessageTranslationContent) Just SystemMessageTranslation{..} -> (systemMessageTranslationSummary, systemMessageTranslationContent)
case summary of case summary of
Just s -> do Just s ->
html <- withUrlRenderer [hamlet| addMessageWidget systemMessageSeverity $ msgModal (toWidget s) (Left . SomeRoute $ MessageR cID)
<a href=@{MessageR cID}>
#{s}
|]
addMessage systemMessageSeverity html
Nothing -> addMessage systemMessageSeverity content Nothing -> addMessage systemMessageSeverity content
-- Define breadcrumbs. -- Define breadcrumbs.