dev-haskell/haddock/files/haddock-2.10.0-dont-crash-on-unicode-strings-in-doc-comments.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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