Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-30 20:14:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

Agent/feature/delete all notifications (#317)

Browse Source 
* updates to GHC 8.10.4

* adds delete all notifications handler
This commit is contained in:
Keagan McClelland
2021-05-05 10:01:16 -06:00
committed by Aiden McClelland
parent 8bb6530e24
commit 00636131d7
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
agent/src/Handler/Notifications.hs
View File

@@ -28,5 +28,9 @@ getNotificationsR = runDB $ do
Nothing -> pure a
Just x -> pure x
deleteNotificationsR :: Handler ()
deleteNotificationsR = do
runDB $ deleteWhere ([] :: [Filter Notification])
deleteNotificationR :: UUID -> Handler ()
deleteNotificationR notifId = runDB $ delete (coerce @_ @(Key Notification) notifId)