Advertisement
Guest User

Untitled

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