diff options
Diffstat (limited to 'dev-haskell')
| -rw-r--r-- | dev-haskell/haskell-src-exts/files/haskell-src-exts-0.2-hiding-isSymbol.patch | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/dev-haskell/haskell-src-exts/files/haskell-src-exts-0.2-hiding-isSymbol.patch b/dev-haskell/haskell-src-exts/files/haskell-src-exts-0.2-hiding-isSymbol.patch deleted file mode 100644 index df83e026fe0e..000000000000 --- a/dev-haskell/haskell-src-exts/files/haskell-src-exts-0.2-hiding-isSymbol.patch +++ /dev/null @@ -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 |