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