src/Zenith/DB.hs

@@ -1503,5 +1503,15 @@ updateAdrsInAdrBook pool a i = do
         set ab [AddressBookAddress =. val a]
         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 = map head . group . sort