ref: 588cd718de64fe6bbf8f7f7cd53d6e7b55106fc5
parent: 31a31e35a8e5794334744e1b00b1702115bba92a
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Sun Oct 15 19:32:33 EDT 2023
Fix a bug: qualified name for module symbols not in symbol table.
--- a/src/MicroHs/TypeCheck.hs
+++ b/src/MicroHs/TypeCheck.hs
@@ -619,7 +619,10 @@
Ident -> EType -> T ()
extQVal i t = T.do
mn <- gets moduleName
- extValE i t (EVar $ qualIdent mn i)
+ let qi = qualIdent mn i
+ eqi = EVar qi
+ extValE qi t eqi
+ extValE i t eqi
extVal :: --XHasCallStack =>
Ident -> EType -> T ()
--
⑨