gentoo-mirror/gentoo
1
0
Fork 0
mirror of https://github.com/gentoo-mirror/gentoo.git synced 2026-08-06 00:48:18 -07:00
Code Issues Projects Releases Wiki Activity

dev-haskell/haskell-src-exts: remove unused patch

Browse Source 
Closes: https://github.com/gentoo/gentoo/pull/5357
This commit is contained in:
Michael Mair-Keimberger (asterix)
2017-08-08 18:14:16 +02:00
committed by Sergei Trofimovich
parent 1da26aa386
commit 4374ffb53a
1 changed files with 0 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
dev-haskell/haskell-src-exts/files/haskell-src-exts-0.2-hiding-isSymbol.patch
View File

@@ -1,68 +0,0 @@
diff -urwpN haskell-src-exts.org/src/haskell-src-exts/Language/Haskell/Hsx/Lexer.hs haskell-src-exts/src/haskell-src-exts/Language/Haskell/Hsx/Lexer.hs
--- haskell-src-exts.org/src/haskell-src-exts/Language/Haskell/Hsx/Lexer.hs 2005-05-01 22:40:45.000000000 +0100
+++ haskell-src-exts/src/haskell-src-exts/Language/Haskell/Hsx/Lexer.hs 2006-10-11 19:42:53.000000000 +0100
@@ -207,9 +207,9 @@ special_varids = [
( "hiding", KW_Hiding )
]
-isIdent, isSymbol :: Char -> Bool
+isIdent, isSymbol' :: Char -> Bool
isIdent c = isAlpha c || isDigit c || c == '\'' || c == '_'
-isSymbol c = elem c ":!#$%&*+./<=>?@\\^|-~"
+isSymbol' c = elem c ":!#$%&*+./<=>?@\\^|-~"
matchChar :: Char -> String -> Lex a ()
matchChar c msg = do
@@ -242,7 +242,7 @@ lexWhiteSpace bol = do
bol <- lexNestedComment bol
(bol, _) <- lexWhiteSpace bol
return (bol, True)
- '-':'-':s | all (== '-') (takeWhile isSymbol s) -> do
+ '-':'-':s | all (== '-') (takeWhile isSymbol' s) -> do
lexWhile (== '-')
lexWhile (/= '\n')
lexNewline
@@ -489,8 +489,8 @@ lexStdToken = do
Just keyword -> keyword
Nothing -> VarId ident
- | isSymbol c -> do
- sym <- lexWhile isSymbol
+ | isSymbol' c -> do
+ sym <- lexWhile isSymbol'
return $ case lookup sym (reserved_ops ++ special_varops) of
Just t -> t
Nothing -> case c of
@@ -586,9 +586,9 @@ lexConIdOrQual qual = do
discard 1
lexConIdOrQual qual'
- | isSymbol c -> do -- qualified symbol?
+ | isSymbol' c -> do -- qualified symbol?
discard 1
- sym <- lexWhile isSymbol
+ sym <- lexWhile isSymbol'
case lookup sym reserved_ops of
-- cannot qualify a reserved operator
Just _ -> just_a_conid
diff -urwpN haskell-src-exts.org/src/haskell-src-exts/Language/Haskell/Hsx/Transform.hs haskell-src-exts/src/haskell-src-exts/Language/Haskell/Hsx/Transform.hs
--- haskell-src-exts.org/src/haskell-src-exts/Language/Haskell/Hsx/Transform.hs 2005-04-08 16:17:29.000000000 +0100
+++ haskell-src-exts/src/haskell-src-exts/Language/Haskell/Hsx/Transform.hs 2006-10-11 19:40:49.000000000 +0100
@@ -1270,7 +1270,7 @@ trRPat s linear rp = case rp of
HsIdent n -> fail $ "Attempting to bind variable "++n++
" inside the context of a numerable regular pattern"
_ -> fail $ "This should never ever ever happen...\
- \ how the ¤#% did you do it??!?"
+ \ how the #% did you do it??!?"
where -- | Generate a declaration for a @ binding.
mkAsDecl :: SrcLoc -> MFunMetaInfo -> Tr HsName
@@ -1429,7 +1429,7 @@ trRPat s linear rp = case rp of
-- of transformations of optional patterns should be able to call it...)
mkOptDecl :: SrcLoc -> Bool -> MFunMetaInfo -> Tr MFunMetaInfo
mkOptDecl s greedy nvt@(_, vs, t) = do
- -- Un nome, s'il vouz plaît.
+ -- Un nome, s'il vouz plaît.
n <- genMatchName
let -- Generate a generator for matching the subpattern
(g, val) = mkGenExp s nvt -- (harp_valX, (foo, bar, ...)) <- harp_matchY