let _default contructors pass through

iu-parfunc · Jan 11, 2024 · 9bc6837 · 9bc6837
1 parent 19d4a65
commit 9bc6837
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gibbon-compiler/src/Gibbon/Passes/FreshConstructors.hs b/gibbon-compiler/src/Gibbon/Passes/FreshConstructors.hs
@@ -155,4 +155,4 @@ resolveNameInEnv name e =
   do case (M.lookup name e) of
       --Just freshName -> (toVar ((fromVar freshName) ++ "*"))
       Just freshName -> freshName
-      Nothing -> error $ "can't find " ++ (fromVar name) ++ " in constructor env: " ++ (show e)
+      Nothing -> name --error $ "can't find " ++ (fromVar name) ++ " in constructor env: " ++ (show e)