Debugging lexer: print character in addition to its ASCII code

Coauthored-by: ZichaoNickFox <[email protected]>
Coauthored-by: Andreas Abel <[email protected]>

Author: ZichaoNickFox

data/AlexTemplate.hs

@@ -155,7 +155,7 @@ alex_scan_tkn user__ orig_input len input__ s last_acc =
      Nothing -> (new_acc, input__)
      Just (c, new_input) ->
 #ifdef ALEX_DEBUG
-      trace ("State: " ++ show IBOX(s) ++ ", char: " ++ show c) $
+      trace ("State: " ++ show IBOX(s) ++ ", char: " ++ show c ++ " " ++ (show . chr . fromIntegral) c) $
 #endif
       case fromIntegral c of { IBOX(ord_c) ->
         let

src/Main.hs

@@ -406,6 +406,7 @@ import_glaexts = "#if __GLASGOW_HASKELL__ >= 503\n" ++
 
 import_debug :: String
 import_debug   = "#if __GLASGOW_HASKELL__ >= 503\n" ++
+                 "import Data.Char (chr)\n" ++
                  "import System.IO\n" ++
                  "import System.IO.Unsafe\n" ++
                  "import Debug.Trace\n" ++