From fbc8850c2bbac8207b879a6f1f0355a374049cdc Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Sat, 6 Sep 2008 11:16:55 +0000
Subject: Handle hexadecimal literals.

---
 src/LexHaskell.cxx | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/LexHaskell.cxx b/src/LexHaskell.cxx
index 095675ee5..3213bd520 100644
--- a/src/LexHaskell.cxx
+++ b/src/LexHaskell.cxx
@@ -179,6 +179,9 @@ static void ColorizeHaskellDoc(unsigned int startPos, int length, int initStyle,
          // Digit
          if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) {
             sc.SetState(SCE_HA_NUMBER);
+            if (sc.ch == '0' && (sc.chNext == 'X' || sc.chNext == 'x')) { // Match anything starting with "0x" or "0X", too
+               sc.Forward(1);
+            }
          }
          // Comment line
          else if (sc.Match("--")) {
-- 
cgit v1.2.3