diff options
author | Mark Wright <gienah@gentoo.org> | 2012-06-02 03:36:51 +0000 |
---|---|---|
committer | Mark Wright <gienah@gentoo.org> | 2012-06-02 03:36:51 +0000 |
commit | 3dc2eea087b34328ec8c86f7e8ff2a99ed86f7c3 (patch) | |
tree | 0452b23687e94c46c9b54512bcf40034d077c544 /dev-haskell/haddock/files | |
parent | Bump xhtml to 3000.2.1 (diff) | |
download | historical-3dc2eea087b34328ec8c86f7e8ff2a99ed86f7c3.tar.gz historical-3dc2eea087b34328ec8c86f7e8ff2a99ed86f7c3.tar.bz2 historical-3dc2eea087b34328ec8c86f7e8ff2a99ed86f7c3.zip |
Apply patch from upstream: Don't crash on unicode strings in doc comments.
Package-Manager: portage-2.1.10.63/cvs/Linux x86_64
Diffstat (limited to 'dev-haskell/haddock/files')
-rw-r--r-- | dev-haskell/haddock/files/haddock-2.10.0-dont-crash-on-unicode-strings-in-doc-comments.patch | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/dev-haskell/haddock/files/haddock-2.10.0-dont-crash-on-unicode-strings-in-doc-comments.patch b/dev-haskell/haddock/files/haddock-2.10.0-dont-crash-on-unicode-strings-in-doc-comments.patch new file mode 100644 index 000000000000..254266d20e26 --- /dev/null +++ b/dev-haskell/haddock/files/haddock-2.10.0-dont-crash-on-unicode-strings-in-doc-comments.patch @@ -0,0 +1,22 @@ +--- haddock-2.10.0-orig/src/Haddock/Lex.x 2012-03-04 03:21:18.000000000 +1100 ++++ haddock-2.10.0/src/Haddock/Lex.x 2012-05-30 22:19:31.858259148 +1000 +@@ -181,7 +181,7 @@ + go inp@(pos, _, str) sc = + case alexScan inp sc of + AlexEOF -> [] +- AlexError _ -> error "lexical error" ++ AlexError _ -> [] + AlexSkip inp' _ -> go inp' sc + AlexToken inp'@(pos',_,_) len act -> act pos (take len str) sc (\sc -> go inp' sc) dflags + +--- haddock-2.10.0-orig/dist/build/haddock/haddock-tmp/Haddock/Lex.hs 2012-03-04 03:21:21.000000000 +1100 ++++ haddock-2.10.0/dist/build/haddock/haddock-tmp/Haddock/Lex.hs 2012-05-30 22:23:40.209770708 +1000 +@@ -131,7 +131,7 @@ + go inp@(pos, _, str) sc = + case alexScan inp sc of + AlexEOF -> [] +- AlexError _ -> error "lexical error" ++ AlexError _ -> [] + AlexSkip inp' _ -> go inp' sc + AlexToken inp'@(pos',_,_) len act -> act pos (take len str) sc (\sc -> go inp' sc) dflags + |