{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Control.Exception (bracket)

import qualified Database.PostgreSQL.Opium as Opium

import qualified Yore.DB

main :: IO ()
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
    Left e ->
      putStrLn $ "Got error: " ++ show e
    Right rows ->
      mapM_ print rows