sqlite-simple patch for GHC 7.4
commit1aad1de28fe13b0fe3fb51f302441e7c936be867
authorMichael Snoyman <michael@snoyman.com>
dateFri 14 Feb 2014, 14:38 (13 years ago)
parent58ca96e
patching/patches/sqlite-simple-0.4.5.1.patchnew file+12
@@ -0,0 +1,12 @@
1+diff -ru orig/Database/SQLite/Simple.hs new/Database/SQLite/Simple.hs
2+--- orig/Database/SQLite/Simple.hs 2014-02-14 14:38:24.411759783 +0200
3++++ new/Database/SQLite/Simple.hs 2014-02-14 14:38:24.000000000 +0200
4+@@ -343,7 +343,7 @@
5+ | otherwise -> errorColumnMismatch (ColumnOutOfBounds col)
6+ Errors [] -> throwIO $ ConversionFailed "" "" "unknown error"
7+ Errors [x] ->
8+- throw x `catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
9++ throw x `Control.Exception.catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
10+ Errors xs -> throwIO $ ManyErrors xs
11+ where
12+ errorColumnMismatch :: ColumnOutOfBounds -> IO r