sqlite-simple patch for GHC 7.4

This commit is contained in:
Michael Snoyman 2014-02-14 14:38:36 +02:00
parent 58ca96e512
commit 1aad1de28f

View File

@ -0,0 +1,12 @@
diff -ru orig/Database/SQLite/Simple.hs new/Database/SQLite/Simple.hs
--- orig/Database/SQLite/Simple.hs 2014-02-14 14:38:24.411759783 +0200
+++ new/Database/SQLite/Simple.hs 2014-02-14 14:38:24.000000000 +0200
@@ -343,7 +343,7 @@
| otherwise -> errorColumnMismatch (ColumnOutOfBounds col)
Errors [] -> throwIO $ ConversionFailed "" "" "unknown error"
Errors [x] ->
- throw x `catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
+ throw x `Control.Exception.catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
Errors xs -> throwIO $ ManyErrors xs
where
errorColumnMismatch :: ColumnOutOfBounds -> IO r