Be nice to the package server

klaftertief · Nov 27, 2023 · ec7ff03 · ec7ff03
1 parent 1df87ba
commit ec7ff03
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/src/scripts/Setup.elm b/src/scripts/Setup.elm
@@ -6,6 +6,7 @@ import Docs.Package.Cache as Cache
 import Generate
 import Http
 import Json.Decode as Decode
+import Process
 import Set
 import Task
 
@@ -92,8 +93,17 @@ fetchDocs elmVersion metadata =
             decoder =
                 Package.decode elmVersion metadata
         in
-        Http.get url decoder
-            |> Http.send (ensureOk Response)
+        Process.sleep 100
+            |> Task.andThen
+                (\_ ->
+                    Http.get url decoder
+                        |> Http.toTask
+                )
+            |> Task.attempt (ensureOk Response)
+
+
+
+--|> Http.send (ensureOk Response)
 
 
 cacheModule : Package.Package -> Cmd msg