Docker image #89

Merged
pitmutt merged 45 commits from milestone2 into master 2024-06-21 18:15:53 +00:00
Showing only changes of commit 83cc1905ad - Show all commits

View file

@ -1503,5 +1503,15 @@ updateAdrsInAdrBook pool a i = do
set ab [AddressBookAddress =. val a] set ab [AddressBookAddress =. val a]
where_ $ ab ^. AddressBookId ==. val i where_ $ ab ^. AddressBookId ==. val i
-- | delete an existing address from AddressBook
deleteAdrsFromAB :: ConnectionPool -> AddressBookId -> IO ()
deleteAdrsFromAB pool i = do
runNoLoggingT $
PS.retryOnBusy $
flip PS.runSqlPool pool $ do
delete $ do
ab <- from $ table @AddressBook
where_ (ab ^. AddressBookId ==. val i)
rmdups :: Ord a => [a] -> [a] rmdups :: Ord a => [a] -> [a]
rmdups = map head . group . sort rmdups = map head . group . sort