mirror of
https://github.com/snoyberg/keter.git
synced 2024-12-15 17:42:05 +03:00
12 lines
238 B
Haskell
12 lines
238 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
import Keter.Postgres
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
pg <- load "postgres.yaml"
|
||
|
|
|
||
|
|
getInfo pg "foo" >>= print
|
||
|
|
getInfo pg "bar" >>= print
|
||
|
|
getInfo pg "foo" >>= print
|
||
|
|
getInfo pg "bar" >>= print
|