{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import qualified Database.PostgreSQL.Opium as Opium

import qualified Yore.DB

main :: IO ()
main = do
  conn <- Opium.connect "host=localhost port=5432"
  result <- Yore.DB.getTables conn

  case result of
    Left e ->
      putStrLn $ "Got error: " ++ show e
    Right rows ->
      mapM_ print rows