From: Michael Mair-Keimberger (asterix) <m.mairkeimberger@gmail.com>
Date: Wed, 27 Jul 2016 17:00:50 +0000 (+0200)
Subject: dev-haskell/hdbc-sqlite: remove unused patch
X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=99cf2cc358a202ac7f8742c3724e1aeaf0bcf0c6;p=gentoo.git

dev-haskell/hdbc-sqlite: remove unused patch

Signed-off-by: Patrice Clement <monsieurp@gentoo.org>
---

diff --git a/dev-haskell/hdbc-sqlite/files/HDBC-sqlite3-2.3.3.0-ghc-7.6.patch b/dev-haskell/hdbc-sqlite/files/HDBC-sqlite3-2.3.3.0-ghc-7.6.patch
deleted file mode 100644
index c0c024218117..000000000000
--- a/dev-haskell/hdbc-sqlite/files/HDBC-sqlite3-2.3.3.0-ghc-7.6.patch
+++ /dev/null
@@ -1,52 +0,0 @@
---- HDBC-sqlite3-2.3.3.0-orig/testsrc/TestSbasics.hs	2011-08-10 07:08:57.000000000 +1000
-+++ HDBC-sqlite3-2.3.3.0/testsrc/TestSbasics.hs	2012-10-13 11:28:21.094200366 +1100
-@@ -1,9 +1,13 @@
-+{-# LANGUAGE CPP, ScopedTypeVariables #-}
- module TestSbasics(tests) where
- import Test.HUnit
- import Database.HDBC
- import TestUtils
- import System.IO
--import Control.Exception hiding (catch)
-+#if !MIN_VERSION_base(4,6,0)
-+import Prelude hiding (catch)
-+#endif
-+import Control.Exception
- 
- openClosedb = sqlTestCase $ 
-     do dbh <- connectDB
-@@ -140,7 +144,7 @@
-        -- Let's try a rollback.
-        catch (withTransaction dbh (\_ -> do sExecuteMany sth rows
-                                             fail "Foo"))
--             (\_ -> return ())
-+             (\(_::IOException) -> return ())
-        sExecute qrysth []
-        sFetchAllRows qrysth >>= (assertEqual "rollback" [[Just "0"]])
- 
---- HDBC-sqlite3-2.3.3.0-orig/testsrc/Testbasics.hs	2011-08-10 07:08:57.000000000 +1000
-+++ HDBC-sqlite3-2.3.3.0/testsrc/Testbasics.hs	2012-10-13 11:27:20.025541058 +1100
-@@ -1,9 +1,13 @@
-+{-# LANGUAGE CPP, ScopedTypeVariables #-}
- module Testbasics(tests) where
- import Test.HUnit
- import Database.HDBC
- import TestUtils
- import System.IO
--import Control.Exception hiding (catch)
-+#if !MIN_VERSION_base(4,6,0)
-+import Prelude hiding (catch)
-+#endif
-+import Control.Exception
- 
- openClosedb = sqlTestCase $ 
-     do dbh <- connectDB
-@@ -140,7 +144,7 @@
-        -- Let's try a rollback.
-        catch (withTransaction dbh (\_ -> do executeMany sth rows
-                                             fail "Foo"))
--             (\_ -> return ())
-+             (\(_::IOException) -> return ())
-        execute qrysth []
-        fetchAllRows qrysth >>= (assertEqual "rollback" [[SqlString "0"]])
-