mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-02-17 16:55:51 +01:00
sqlite-simple patch for GHC 7.4
This commit is contained in:
parent
58ca96e512
commit
1aad1de28f
12
patching/patches/sqlite-simple-0.4.5.1.patch
Normal file
12
patching/patches/sqlite-simple-0.4.5.1.patch
Normal 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
|
||||||
Loading…
Reference in New Issue
Block a user