enh(haskell) Add support for NumericalUnderscores

highlightjs · Apr 19, 2021 · f7bb34a · f7bb34a
1 parent 90eb62c
commit f7bb34a
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/languages/haskell.js b/src/languages/haskell.js
@@ -154,11 +154,16 @@ export default function(hljs) {
       PREPROCESSOR,
 
       // Literals and names.
+      hljs.inherit(hljs.BINARY_NUMBER_MODE, {
+        begin: '\\b(0b[01_]+)'
+      }),
+
+      hljs.inherit(hljs.C_NUMBER_MODE, {
+        begin:'(-?)(\\b0[xX][a-fA-F0-9_]+|(\\b(\\d|_)+(\\.(\\d|_)*)?|\\.(\\d|_)+)([eE][-+]?(\\d|_)+)?)'
+      }),
 
       // TODO: characters.
       hljs.QUOTE_STRING_MODE,
-      hljs.C_NUMBER_MODE,
-      hljs.BINARY_NUMBER_MODE,
       CONSTRUCTOR,
       hljs.inherit(hljs.TITLE_MODE, {
         begin: '^[_a-z][\\w\']*'