Source

hdbc-mysql / Test.hs

Diff from to
 go :: IO ()
 go = do conn <- connectDatabase
 
-        {-
-
         putStrLn $ "driver " ++ (show $ hdbcDriverName conn)
         putStrLn $ "server version " ++ (show $ dbServerVer conn)
         tables <- getTables conn
         rows1 <- quickQuery' conn "SELECT str FROM album" []
         forM_ (zip rows0 rows1) $ \(a, str) -> putStrLn $ "a=" ++ (show a) ++ ", str=" ++ (show str)
 
-         -}
-
+        {-
         stmt <- prepare conn "INSERT INTO album VALUES (?, ?)"
         n <- execute stmt [SqlWord32 3000000000, SqlString "hello"]
         commit conn
+        -}
+
 
 main :: IO ()
 main = handleSqlError (replicateM_ 1 go)