From 1aad1de28fe13b0fe3fb51f302441e7c936be867 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Fri, 14 Feb 2014 14:38:36 +0200 Subject: [PATCH] sqlite-simple patch for GHC 7.4 --- patching/patches/sqlite-simple-0.4.5.1.patch | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 patching/patches/sqlite-simple-0.4.5.1.patch diff --git a/patching/patches/sqlite-simple-0.4.5.1.patch b/patching/patches/sqlite-simple-0.4.5.1.patch new file mode 100644 index 00000000..d6167f35 --- /dev/null +++ b/patching/patches/sqlite-simple-0.4.5.1.patch @@ -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