Fix runtime exception if we cannot find arity of a function call cycle.

gren-lang · Dec 9, 2024 · 512cdd8 · 512cdd8
1 parent 3de0d46
commit 512cdd8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/compiler/src/Generate/JavaScript.hs b/compiler/src/Generate/JavaScript.hs
@@ -54,14 +54,14 @@ makeArgLookup graph home name =
       Just arity
     Just (Opt.Link global) ->
       case Map.lookup global graph of
-        Just (Opt.Cycle names _ defs _) ->
+        Just (Opt.Cycle _ _ defs _) ->
           case List.find (\d -> defName d == name) defs of
             Just (Opt.Def _ _ (Opt.Function _ args _)) ->
               Just (length args)
             Just (Opt.TailDef _ _ args _) ->
               Just (length args)
             _ ->
-              error (show names)
+              Nothing
         _ ->
           Nothing
     _ ->