@@ -166,7 +166,9 @@ moduleToCpp env (Module _ mn imps _ foreigns decls) = do
166166 (convertNestedLambdas $ asReturnBlock block)
167167 return (CppComment com fn)
168168 where
169− argcnt = maybe 0 countArgs ty
169+ argcnt | Just t <- ty = countArgs t
170+ | Just (t, _, _) <- M.lookup (mn, ident) (E.names env) = countArgs t
171+ | otherwise = 0
170172 name = identToCpp ident
171173 aty = Just $ CppAny [CppConst, CppRef]
172174 rty = Just $ CppAny []