Add with-db.sh script

2025-07-20 01:40:07 +02:00
parent a499c35d5b
commit 1a6d2cadad
4 changed files with 20 additions and 2 deletions
@@ -2,13 +2,14 @@

 module Main (main) where

+import Control.Exception (bracket)
+
 import qualified Database.PostgreSQL.Opium as Opium

 import qualified Yore.DB

 main :: IO ()
-main = do
-  conn <- Opium.connect "host=localhost port=5432"
+main = bracket (Opium.connect "host=localhost port=5432 user=yore-test dbname=yore-test") Opium.close $ \conn -> do
  result <- Yore.DB.getTables conn

  case result of