paul/opium
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases Wiki Activity

Use void

Browse Source
This commit is contained in:
Paul Brinkmeier 2024-06-17 12:51:58 +02:00
parent b371cdf725
commit ab9fac6a55
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Database/PostgreSQL/Opium.hs
View File

@ -27,6 +27,7 @@ module Database.PostgreSQL.Opium
)
where
import Control.Monad (void)
import Control.Monad.IO.Class (liftIO)
import Control.Monad.Trans.Except (ExceptT (..), except, runExceptT)
import Data.Proxy (Proxy (..))
@ -67,9 +68,7 @@ execute
-> Text
-> a
-> IO (Either Error ())
execute conn query params = runExceptT $ do
_ <- execParams conn query params
pure ()
execute conn query params = runExceptT $ void $ execParams conn query params
execute_ :: Connection -> Text -> IO (Either Error ())
execute_ conn query = execute conn query ()