Bump opium
This commit is contained in:
@@ -0,0 +1 @@
|
||||
module Yore.Download () where
|
||||
+5
-1
@@ -1,3 +1,4 @@
|
||||
{-# LANGUAGE LambdaCase #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Yore.Repl (connect, exec) where
|
||||
@@ -5,7 +6,10 @@ module Yore.Repl (connect, exec) where
|
||||
import qualified Database.PostgreSQL.Opium as Opium
|
||||
|
||||
connect :: IO Opium.Connection
|
||||
connect = Opium.connect "host=localhost"
|
||||
connect =
|
||||
Opium.connect "host=localhost" >>= \case
|
||||
Left e -> error $ show e
|
||||
Right c -> pure c
|
||||
|
||||
exec :: (Opium.Connection -> IO a) -> IO a
|
||||
exec f = f =<< connect
|
||||
|
||||
Reference in New Issue
Block a user