From 57548c7a0f1c62964f82ab53b7549c63334bb2ad Mon Sep 17 00:00:00 2001 From: "Michael Mair-Keimberger (asterix)" Date: Mon, 25 Jul 2016 20:33:01 +0200 Subject: [PATCH] dev-haskell/alex: remove unused patch Closes: https://github.com/gentoo/gentoo/pull/1984 Signed-off-by: Patrice Clement --- .../alex/files/alex-3.1.4-ghc-7.10.patch | 24 ------------------- 1 file changed, 24 deletions(-) delete mode 100644 dev-haskell/alex/files/alex-3.1.4-ghc-7.10.patch diff --git a/dev-haskell/alex/files/alex-3.1.4-ghc-7.10.patch b/dev-haskell/alex/files/alex-3.1.4-ghc-7.10.patch deleted file mode 100644 index cb422b60d7c5..000000000000 --- a/dev-haskell/alex/files/alex-3.1.4-ghc-7.10.patch +++ /dev/null @@ -1,24 +0,0 @@ -diff --git a/templates/wrappers.hs b/templates/wrappers.hs -index a1a1a6d..c020cc7 100644 ---- a/templates/wrappers.hs -+++ b/templates/wrappers.hs -@@ -284,6 +284,19 @@ runAlex input (Alex f) - - newtype Alex a = Alex { unAlex :: AlexState -> Either String (AlexState, a) } - -+instance Functor Alex where -+ fmap f a = Alex $ \s -> case unAlex a s of -+ Left msg -> Left msg -+ Right (s', a') -> Right (s', f a') -+ -+instance Applicative Alex where -+ pure a = Alex $ \s -> Right (s, a) -+ fa <*> a = Alex $ \s -> case unAlex fa s of -+ Left msg -> Left msg -+ Right (s', f) -> case unAlex a s' of -+ Left msg -> Left msg -+ Right (s'', b) -> Right (s'', f b) -+ - instance Monad Alex where - m >>= k = Alex $ \s -> case unAlex m s of - Left msg -> Left msg -- 2.26.2