From 9ee6d97c2883d42f204a533a8bc1f4562df778fb Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Wed, 16 Sep 2020 09:32:48 +0100 Subject: gentoo resync : 16.09.2020 --- dev-haskell/json/Manifest | 3 - dev-haskell/json/files/json-0.9.3-ghc-8.8.patch | 172 ------------------------ dev-haskell/json/json-0.9.3.ebuild | 37 ----- 3 files changed, 212 deletions(-) delete mode 100644 dev-haskell/json/files/json-0.9.3-ghc-8.8.patch delete mode 100644 dev-haskell/json/json-0.9.3.ebuild (limited to 'dev-haskell/json') diff --git a/dev-haskell/json/Manifest b/dev-haskell/json/Manifest index 9ad46a83f836..d566a8a4774c 100644 --- a/dev-haskell/json/Manifest +++ b/dev-haskell/json/Manifest @@ -1,6 +1,3 @@ -AUX json-0.9.3-ghc-8.8.patch 5054 BLAKE2B ed3b6efe93cb37697379e5c0b0953ead8cd270000f7c87b0db58861d834d0b8edbd6039b7de0b3d376c4b5cd5152d9982e60f93c81c31abf97879654ed644bd6 SHA512 0cdaa654826c2baecdcf1771090b58440ef4177d8fac76da774eecf7599526bed142ee6f58cf2b67fba57ed1b3c0b22b7140425712551dc8e41a99014534c206 DIST json-0.10.tar.gz 22622 BLAKE2B 4ee854a80738b6d12e027ca8562ac365bc6192532682d9b8997a8887b70d2e19553535fec6c7ab6ecf119262d6f7d229dc4217ac867dcac8dd3158c80606c727 SHA512 4015693c363810701114a222207083ab9610ebd1196d24f0eb8dcad35af54e9067259ca412b131eaa986b8dbfbf0ce62058ca4c31aeeff29fdf21f17e8d86e90 -DIST json-0.9.3.tar.gz 22562 BLAKE2B 8947d2b4bea1ee86eea19e25b73b991d186274c7a6beaff09e8f346756e870d440c4511c599d6ee5f82df08975076e47f0f528cc03cabb5063fb768506b9a660 SHA512 836ae920ef19e0cff5b617a579090ea1d760e253513d3fb28c56650a1fa413c0bd852165be487c211a52be6246eac3241a97f729342223be10275917a34230a6 EBUILD json-0.10.ebuild 868 BLAKE2B a870a5ff89c1265c22c8621918cc84c25ee5de4a4841df4fa76624321bc7cb23615c5eb526d7a6e79a1148cef402d0179c66424514e80d74a5d60f90a7956044 SHA512 75aa38da49b78111fe1ddef098a6ac278f8146f34e8516f2bfda7494b992c9953d4e90c0c0efa2bcbc7217711b4cbafd76669440792bbfb4b5f13df2be11e413 -EBUILD json-0.9.3.ebuild 927 BLAKE2B 410b8e103cc1aa6d7cb2b1ca7fe5861b235e7d5e2a271b6b7906bffe98403884791cb68f7c697086619f994cd1274321841eb1ab7b540a91f391813c43a69e41 SHA512 0802e9e4ffb77e816eee1b55fc248e04c9b0cbefe27774f0ff4284ebbc02112052c5988d3552548df7b5ffe10ea342c04bbad648abcff7860230ca1a44b54cfc MISC metadata.xml 902 BLAKE2B 3a7c5f63c7998cf5e9df237b45a4bd10fba1bc06e9bfa89d24d6d332743a9a6ac3c5b9d05473302236c855bc9c3576189c49f4c3e36ae8f3b007bd43125a3cbc SHA512 1e8813a4a4182c04cb81dc8670ba5017c3ec28f34f722d8a33926145d58ed6ae14203db997048208bac03eb50281020701084591d379046fb9d2c2b8018bd2ae diff --git a/dev-haskell/json/files/json-0.9.3-ghc-8.8.patch b/dev-haskell/json/files/json-0.9.3-ghc-8.8.patch deleted file mode 100644 index d8dc402ae19b..000000000000 --- a/dev-haskell/json/files/json-0.9.3-ghc-8.8.patch +++ /dev/null @@ -1,172 +0,0 @@ -commit a0d8bcde5ab5329d11be8cd89c407e6aa0db83a4 -Author: Fumiaki Kinoshita -Date: Tue Apr 30 18:37:40 2019 +0900 - - Support GHC 8.8 - -diff --git a/Text/JSON.hs b/Text/JSON.hs -index f2e2618..6f80949 100644 ---- a/Text/JSON.hs -+++ b/Text/JSON.hs -@@ -37,7 +37,7 @@ module Text.JSON ( - -- ** Instance helpers - , makeObj, valFromObj - , JSKey(..), encJSDict, decJSDict -- -+ - ) where - - import Text.JSON.Types -@@ -60,7 +60,7 @@ import qualified Data.Text as T - - ------------------------------------------------------------------------ - ---- | Decode a String representing a JSON value -+-- | Decode a String representing a JSON value - -- (either an object, array, bool, number, null) - -- - -- This is a superset of JSON, as types other than -@@ -137,7 +137,9 @@ instance MonadPlus Result where - - instance Monad Result where - return x = Ok x -+#if !MIN_VERSION_base(4,13,0) - fail x = Error x -+#endif - Ok a >>= f = f a - Error x >>= _ = Error x - -@@ -199,7 +201,7 @@ instance JSON Ordering where - showJSON = encJSString show - readJSON = decJSString "Ordering" readOrd - where -- readOrd x = -+ readOrd x = - case x of - "LT" -> return Prelude.LT - "EQ" -> return Prelude.EQ -@@ -460,7 +462,7 @@ instance JSKey Int where - instance JSKey String where - toJSKey = id - fromJSKey = Just -- -+ - -- | Encode an association list as 'JSObject' value. - encJSDict :: (JSKey a, JSON b) => [(a,b)] -> JSValue - encJSDict v = makeObj [ (toJSKey x, showJSON y) | (x,y) <- v ] -@@ -477,5 +479,3 @@ decJSDict l (JSObject o) = mapM rd (fromJSObject o) - "unable to read dict; invalid object key") - - decJSDict l _ = mkError ("readJSON{"++l ++ "}: unable to read dict; expected JSON object") -- -- -diff --git a/Text/JSON/String.hs b/Text/JSON/String.hs -index 51463cd..67fdca8 100644 ---- a/Text/JSON/String.hs -+++ b/Text/JSON/String.hs -@@ -1,7 +1,8 @@ -+{-# LANGUAGE CPP #-} - -- | Basic support for working with JSON values. - --module Text.JSON.String -- ( -+module Text.JSON.String -+ ( - -- * Parsing - -- - GetJSON -@@ -35,6 +36,7 @@ import Text.JSON.Types (JSValue(..), - JSObject, toJSObject, fromJSObject) - - import Control.Monad (liftM, ap) -+import qualified Control.Monad.Fail as Fail - import Control.Applicative((<$>)) - import qualified Control.Applicative as A - import Data.Char (isSpace, isDigit, digitToInt) -@@ -52,9 +54,14 @@ instance A.Applicative GetJSON where - pure = return - (<*>) = ap - -+instance Fail.MonadFail GetJSON where -+ fail x = GetJSON (\_ -> Left x) -+ - instance Monad GetJSON where - return x = GetJSON (\s -> Right (x,s)) -- fail x = GetJSON (\_ -> Left x) -+#if !MIN_VERSION_base(4,13,0) -+ fail = Fail.fail -+#endif - GetJSON m >>= f = GetJSON (\s -> case m s of - Left err -> Left err - Right (a,s1) -> un (f a) s1) -@@ -93,7 +100,7 @@ tryJSNull k = do - xs <- getInput - case xs of - 'n':'u':'l':'l':xs1 -> setInput xs1 >> return JSNull -- _ -> k -+ _ -> k - - -- | Read the JSON Bool type - readJSBool :: GetJSON JSValue -@@ -111,8 +118,8 @@ readJSString = do - case x of - '"' : cs -> parse [] cs - _ -> fail $ "Malformed JSON: expecting string: " ++ context x -- where -- parse rs cs = -+ where -+ parse rs cs = - case cs of - '\\' : c : ds -> esc rs c ds - '"' : ds -> do setInput ds -@@ -153,22 +160,22 @@ readJSRational = do - '-' : ds -> negate <$> pos ds - _ -> pos cs - -- where -+ where - pos [] = fail $ "Unable to parse JSON Rational: " ++ context [] - pos (c:cs) = - case c of - '0' -> frac 0 cs -- _ -+ _ - | not (isDigit c) -> fail $ "Unable to parse JSON Rational: " ++ context cs - | otherwise -> readDigits (digitToIntI c) cs - - readDigits acc [] = frac (fromInteger acc) [] - readDigits acc (x:xs) -- | isDigit x = let acc' = 10*acc + digitToIntI x in -+ | isDigit x = let acc' = 10*acc + digitToIntI x in - acc' `seq` readDigits acc' xs - | otherwise = frac (fromInteger acc) (x:xs) - -- frac n ('.' : ds) = -+ frac n ('.' : ds) = - case span isDigit ds of - ([],_) -> setInput ds >> return n - (as,bs) -> let x = read as :: Integer -@@ -320,15 +327,15 @@ showJSRational :: Rational -> ShowS - showJSRational r = showJSRational' False r - - showJSRational' :: Bool -> Rational -> ShowS --showJSRational' asFloat r -+showJSRational' asFloat r - | denominator r == 1 = shows $ numerator r - | isInfinite x || isNaN x = showJSNull - | asFloat = shows xf - | otherwise = shows x -- where -+ where - x :: Double - x = realToFrac r -- -+ - xf :: Float - xf = realToFrac r - -@@ -382,4 +389,3 @@ encJSString jss ss = go (fromJSString jss) - | x < '\x1000' -> 'u' : '0' : hexxs - | otherwise -> 'u' : hexxs - where hexxs = showHex (fromEnum x) xs -- diff --git a/dev-haskell/json/json-0.9.3.ebuild b/dev-haskell/json/json-0.9.3.ebuild deleted file mode 100644 index 41198ed591a7..000000000000 --- a/dev-haskell/json/json-0.9.3.ebuild +++ /dev/null @@ -1,37 +0,0 @@ -# Copyright 1999-2020 Gentoo Authors -# Distributed under the terms of the GNU General Public License v2 - -EAPI=7 - -# ebuild generated by hackport 0.6.9999 - -CABAL_FEATURES="lib profile haddock hoogle hscolour" -inherit haskell-cabal - -DESCRIPTION="Support for serialising Haskell to and from JSON" -HOMEPAGE="https://hackage.haskell.org/package/json" -SRC_URI="https://hackage.haskell.org/package/${P}/${P}.tar.gz" - -LICENSE="BSD" -SLOT="0/${PV}" -KEYWORDS="~amd64 ~x86 ~amd64-linux" -IUSE="mapdict +parsec +pretty" - -RDEPEND="dev-haskell/mtl:=[profile?] - >=dev-haskell/syb-0.3.3:=[profile?] - dev-haskell/text:=[profile?] - >=dev-lang/ghc-7.4.1:= - parsec? ( dev-haskell/parsec:=[profile?] ) -" -DEPEND="${RDEPEND} - >=dev-haskell/cabal-1.6 -" - -PATCHES=( "${FILESDIR}"/${PN}-0.9.3-ghc-8.8.patch ) - -src_configure() { - haskell-cabal_src_configure \ - $(cabal_flag mapdict mapdict) \ - $(cabal_flag parsec parsec) \ - $(cabal_flag pretty pretty) -} -- cgit v1.2.3