ref: b58a207da4576b658dee36c7dd6dcbfa12c7539f
parent: 7d7fdb28416445dc7a44dd53fa415312036b094f
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Wed Sep 20 10:13:05 EDT 2023
Debug code.
--- a/src/MicroHs/TypeCheck.hs
+++ b/src/MicroHs/TypeCheck.hs
@@ -1069,3 +1069,9 @@
isUnderscore :: Ident -> Bool
isUnderscore = eqString "_" . unIdent
+
+{-+showValueTable :: ValueTable -> String
+showValueTable vt =
+ unlines $ take 5 [showIdent i ++ " : " ++ showExpr t | (i, [Entry _ t]) <- M.toList vt]
+-}
--
⑨