ref: 5cf942190566eeea29e316119cb4d4aaf5b1152a
parent: 9b62876adeb0686a11feec612a328121c08c6a11
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Tue Sep 19 19:04:46 EDT 2023
Nuub exported fixities, otherwise they keep growing.
--- a/src/MicroHs/TypeCheck.hs
+++ b/src/MicroHs/TypeCheck.hs
@@ -59,7 +59,7 @@
(fexps, sexps) = unzip $ getFSExps impMap
-}
fexps = [ fe | TModule _ fe _ _ _ _ <- M.elems impMap ]
- in TModule mn (concat fexps) (concat texps) (concat sexps) (concat vexps) tds
+ in TModule mn (nubBy (eqIdent `on` fst) (concat fexps)) (concat texps) (concat sexps) (concat vexps) tds
filterImports :: forall a . Maybe (Bool, [ImportItem]) -> TModule a -> TModule a
filterImports Nothing tm = tm
--
⑨