1 |
commit: a048cf987bceef8bf658534a01a198a9eaa5336a |
2 |
Author: Michael Mair-Keimberger (asterix) <m.mairkeimberger <AT> gmail <DOT> com> |
3 |
AuthorDate: Wed Jul 27 16:56:41 2016 +0000 |
4 |
Commit: Patrice Clement <monsieurp <AT> gentoo <DOT> org> |
5 |
CommitDate: Wed Aug 3 07:21:54 2016 +0000 |
6 |
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=a048cf98 |
7 |
|
8 |
dev-haskell/hdbc: remove unused patches |
9 |
|
10 |
Signed-off-by: Patrice Clement <monsieurp <AT> gentoo.org> |
11 |
|
12 |
.../hdbc/files/hdbc-2.4.0.0-ghc-7.10-1.patch | 39 -------------------- |
13 |
.../hdbc/files/hdbc-2.4.0.0-ghc-7.10-2.patch | 43 ---------------------- |
14 |
2 files changed, 82 deletions(-) |
15 |
|
16 |
diff --git a/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-1.patch b/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-1.patch |
17 |
deleted file mode 100644 |
18 |
index 6b79476..0000000 |
19 |
--- a/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-1.patch |
20 |
+++ /dev/null |
21 |
@@ -1,39 +0,0 @@ |
22 |
-diff --git a/Database/HDBC/Locale.hs b/Database/HDBC/Locale.hs |
23 |
-index e62b1c1..976a6a9 100644 |
24 |
---- a/Database/HDBC/Locale.hs |
25 |
-+++ b/Database/HDBC/Locale.hs |
26 |
-@@ -1,3 +1,4 @@ |
27 |
-+{-# LANGUAGE CPP #-} |
28 |
- module Database.HDBC.Locale |
29 |
- ( |
30 |
- defaultTimeLocale, |
31 |
-@@ -5,7 +6,12 @@ module Database.HDBC.Locale |
32 |
- ) |
33 |
- |
34 |
- where |
35 |
-+ |
36 |
-+#if MIN_VERSION_time(1,5,0) |
37 |
-+import Data.Time.Format (defaultTimeLocale) |
38 |
-+#else |
39 |
- import System.Locale (defaultTimeLocale) |
40 |
-+#endif |
41 |
- |
42 |
- -- | As the semantic of System.Locale.iso8601DateFormat has changed with |
43 |
- -- old-locale-1.0.0.2 in a non-compatible way, we now define our own |
44 |
-diff --git a/Database/HDBC/SqlValue.hs b/Database/HDBC/SqlValue.hs |
45 |
-index 9724f81..0e278cd 100644 |
46 |
---- a/Database/HDBC/SqlValue.hs |
47 |
-+++ b/Database/HDBC/SqlValue.hs |
48 |
-@@ -17,7 +17,11 @@ import Data.Char(ord,toUpper) |
49 |
- import Data.Word |
50 |
- import Data.Int |
51 |
- import qualified System.Time as ST |
52 |
--import Data.Time |
53 |
-+import Data.Time ( Day (ModifiedJulianDay), DiffTime, LocalTime, NominalDiffTime, ParseTime |
54 |
-+ , TimeOfDay, TimeZone, UTCTime, ZonedTime, formatTime, localDay, localTimeOfDay |
55 |
-+ , parseTime, timeOfDayToTime, timeToTimeOfDay, toModifiedJulianDay, utc |
56 |
-+ , utcToZonedTime, zonedTimeToLocalTime, zonedTimeToUTC, zonedTimeZone |
57 |
-+ ) |
58 |
- import Data.Time.Clock.POSIX |
59 |
- import Database.HDBC.Locale (defaultTimeLocale, iso8601DateFormat) |
60 |
- import Data.Ratio |
61 |
|
62 |
diff --git a/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-2.patch b/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-2.patch |
63 |
deleted file mode 100644 |
64 |
index d4e78b6..0000000 |
65 |
--- a/dev-haskell/hdbc/files/hdbc-2.4.0.0-ghc-7.10-2.patch |
66 |
+++ /dev/null |
67 |
@@ -1,43 +0,0 @@ |
68 |
-diff --git a/Database/HDBC/SqlValue.hs b/Database/HDBC/SqlValue.hs |
69 |
-index 0e278cd..1ebf114 100644 |
70 |
---- a/Database/HDBC/SqlValue.hs |
71 |
-+++ b/Database/HDBC/SqlValue.hs |
72 |
-@@ -19,8 +19,13 @@ import Data.Int |
73 |
- import qualified System.Time as ST |
74 |
- import Data.Time ( Day (ModifiedJulianDay), DiffTime, LocalTime, NominalDiffTime, ParseTime |
75 |
- , TimeOfDay, TimeZone, UTCTime, ZonedTime, formatTime, localDay, localTimeOfDay |
76 |
-- , parseTime, timeOfDayToTime, timeToTimeOfDay, toModifiedJulianDay, utc |
77 |
-+ , timeOfDayToTime, timeToTimeOfDay, toModifiedJulianDay, utc |
78 |
- , utcToZonedTime, zonedTimeToLocalTime, zonedTimeToUTC, zonedTimeZone |
79 |
-+#if MIN_VERSION_time(1,5,0) |
80 |
-+ , parseTimeM |
81 |
-+#else |
82 |
-+ , parseTime |
83 |
-+#endif |
84 |
- ) |
85 |
- import Data.Time.Clock.POSIX |
86 |
- import Database.HDBC.Locale (defaultTimeLocale, iso8601DateFormat) |
87 |
-@@ -665,7 +670,11 @@ instance Convertible (TimeOfDay, TimeZone) SqlValue where |
88 |
- instance Convertible SqlValue (TimeOfDay, TimeZone) where |
89 |
- safeConvert (SqlString x) = |
90 |
- do tod <- parseTime' "%T%Q %z" x |
91 |
-+#if MIN_VERSION_time(1,5,0) |
92 |
-+ tz <- case parseTimeM True defaultTimeLocale "%T%Q %z" x of |
93 |
-+#else |
94 |
- tz <- case parseTime defaultTimeLocale "%T%Q %z" x of |
95 |
-+#endif |
96 |
- Nothing -> convError "Couldn't extract timezone in" (SqlString x) |
97 |
- Just y -> Right y |
98 |
- return (tod, tz) |
99 |
-@@ -939,7 +948,11 @@ parseTime' _ inpstr = |
100 |
- #else |
101 |
- parseTime' :: (Typeable t, Convertible SqlValue t, ParseTime t) => String -> String -> ConvertResult t |
102 |
- parseTime' fmtstr inpstr = |
103 |
-+#if MIN_VERSION_time(1,5,0) |
104 |
-+ case parseTimeM True defaultTimeLocale fmtstr inpstr of |
105 |
-+#else |
106 |
- case parseTime defaultTimeLocale fmtstr inpstr of |
107 |
-+#endif |
108 |
- Nothing -> convError ("Cannot parse using default format string " ++ show fmtstr) |
109 |
- (SqlString inpstr) |
110 |
- Just x -> Right x |