From 810695248b73cf305ae27d9f9cfffd1553bf3aed Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Thu, 26 Jul 2012 19:29:10 +0900
Subject: [PATCH] add upstream change to workaround errors with unicode points
 > 255

hopefully should fix build failures of case-insensitive,
monad-control and transformers-base with hscolour-1.20.2:

HsColour: Char.intToDigit: not a digit 541
---
 hscolour-1.20.2-non-ascii.patch | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 hscolour-1.20.2-non-ascii.patch

diff --git a/hscolour-1.20.2-non-ascii.patch b/hscolour-1.20.2-non-ascii.patch
new file mode 100644
index 0000000..4568064
--- /dev/null
+++ b/hscolour-1.20.2-non-ascii.patch
@@ -0,0 +1,10 @@
+--- hscolour-1.20.2/Language/Haskell/HsColour/Anchors.hs	2012-05-30 05:56:51.000000000 +0900
++++ hscolour/Language/Haskell/HsColour/Anchors.hs	2012-07-26 19:15:10.696737130 +0900
+@@ -42,6 +42,7 @@
+                 || isURIFragmentValid x
+                 || isLower x
+                 || isUpper x = [x]
++                | ord x >= 256 = [x] -- not correct, but better than nothing
+                 | otherwise  = ['%',hexHi (ord x), hexLo (ord x)]
+           hexHi d = intToDigit (d`div`16)
+           hexLo d = intToDigit (d`mod`16)