Browse files

Use strict fetchAllRowsMap' in query

  • Loading branch information...
1 parent f96ca9f commit 64ca0ec2ee6c0da9d0ff385be04861fb4c9cb228 @norm2782 committed Jan 3, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Snap/Snaplet/Hdbc.hs
View
2 src/Snap/Snaplet/Hdbc.hs
@@ -149,7 +149,7 @@ query
query sql bind = do
stmt <- prepare sql
liftIO $ HDBC.execute stmt bind
- liftIO $ HDBC.fetchAllRowsMap stmt
+ liftIO $ HDBC.fetchAllRowsMap' stmt
-- | Similar to 'query', but instead of returning a list of 'Row's, it returns
-- an 'Integer' indicating the numbers of affected rows. This is typically used

0 comments on commit 64ca0ec

Please sign in to comment.