Potential fix (elm#1107)

ForgottenGensym · Jun 1, 2021 · 9f9e7ec · 9f9e7ec
1 parent 65cea00
commit 9f9e7ec
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/List.elm b/src/List.elm
@@ -62,7 +62,11 @@ singleton value =
 -}
 repeat : Int -> a -> List a
 repeat n value =
-  repeatHelp [] n value
+  if isInfinite n then
+    []
+
+  else
+    repeatHelp [] n value
 
 
 repeatHelp : List a -> Int -> a -> List a