diff --git a/src/Zenith/DB.hs b/src/Zenith/DB.hs index 5cdd5b5..7f98875 100644 --- a/src/Zenith/DB.hs +++ b/src/Zenith/DB.hs @@ -1504,15 +1504,15 @@ updateAdrsInAdrBook pool d a ia = do where_ $ ab ^. AddressBookAbaddress ==. val ia -- | Get one AddrssBook record using the Address as a key -getABookRec :: ConnectionPool -> T.Text -> IO [Entity AddressBook] -getABookRec pool a = do - runNoLoggingT $ - PS.retryOnBusy $ - flip PS.runSqlPool pool $ - select $ do - adrbook <- from $ table @AddressBook - where_ ((adrbook ^. AddressBookAbaddress) ==. val a) - return adrbook +-- getABookRec :: ConnectionPool -> T.Tex t -> IO (Maybe (Entity AddressBook)) +-- getABookRec pool a = do +-- runNoLoggingT $ +-- PS.retryOnBusy $ +-- flip PS.runSqlPool pool $ +-- select $ do +-- adrbook <- from $ table @AddressBook +-- where_ ((adrbook ^. AddressBookAbaddress) ==. val a) +-- return adrbook -- | delete an existing address from AddressBook deleteAdrsFromAB :: ConnectionPool -> T.Text -> IO ()