@@ -99,7 +99,7 @@ codegenJs conf ci =
100 debug <- isYes <$> lookupEnv "IDRISJS_DEBUG"
100 debug <- isYes <$> lookupEnv "IDRISJS_DEBUG"
101 let defs' = Map.fromList $ liftDecls ci
101 let defs' = Map.fromList $ liftDecls ci
102− let defs = globlToCon defs'
102+ let defs = globlToCon defs'
103 let used = Map.elems $ removeDeadCode defs [sMN 0 "runMain"]
103 let used = Map.elems $ removeDeadCode defs [sMN 0 "runMain"]
104 if debug then
104 if debug then