Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# LANGUAGE OverloadedStrings #-}
- import Database.PostgreSQL.LibPQ
- import Control.Monad
- import qualified Data.ByteString.Char8 as B
- main :: IO ()
- main = do
- putStr "start connection... "
- conn <- connectdb "host=localhost port=5432 user=postgres password=postgres dbname=testdb"
- errorMessage conn >>= \e -> case e of
- (Just "") -> putStrLn "ok"
- (Just e) -> B.putStrLn e
- _ -> error "fatal error!"
- putStrLn "start inserting"
- forM_ [0, 1, 1, 3, 5, 8, 13, 21, 34] $ \i -> do
- let stmt = B.concat ["INSERT INTO sensor_data (data_array) VALUES('", B.pack $ show i, "');"]
- exec conn stmt
- putStrLn "closing"
- finish conn
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement