Haskell で PosygreSQL

Real World Haskell で Haskellのお勉強です。

import IO
import Database.HDBC
import Database.HDBC.PostgreSQL
 
main = do
    conn <- connectPostgreSQL "host=localhost port=5432 dbname=test"
    run conn "CREATE TABLE test (id INTEGER NOT NULL, name VARCHAR(80))" []
    run conn "INSERT INTO test (id) VALUES (0)" []
    run conn "INSERT INTO test (id,name) VALUES (123,'hoge')" []
    commit conn
    disconnect conn

コンパイル。

$ ghc -package HDBC -package HDBC-postgresql hdbc.hs -o hdbc

実行してみる。

$ ./hdbc

テーブルを確認。

$ echo "select * from test"|psql test

 id  | name






















-










   0 |

 123 | hoge

(2 rows)

出来ました。