Permalink
Browse files

remove unneccesary do.

--HG--
extra : convert_revision : 32445bb81aa41c0155c8875b7f5f5c3734685f57
  • Loading branch information...
waterson committed Feb 17, 2009
1 parent 3b128ab commit 2a92d7f77df3ffe1dd3a82acdf5ab8e0b9345b19
Showing with 2 additions and 2 deletions.
  1. +2 −2 Database/HDBC/MySQL/Connection.hsc
@@ -489,8 +489,8 @@ boundSize _ n = n
-- values into a list of SqlValue types.
fetchRow :: ForeignPtr MYSQL -> ForeignPtr MYSQL_STMT -> [MYSQL_BIND] -> IO (Maybe [Types.SqlValue])
fetchRow mysql__ stmt__ results =
- withForeignPtr mysql__ $ \_ ->
- withForeignPtr stmt__ $ \stmt_ -> do
+ withForeignPtr mysql__ $ \_ ->
+ withForeignPtr stmt__ $ \stmt_ -> do
rv <- mysql_stmt_fetch stmt_
case rv of
0 -> row

0 comments on commit 2a92d7f

Please sign in to comment.