Add doThen and sleep to Script module.

generator/src/render.js

@@ -500,6 +500,8 @@ async function runInternalJob(
       ];
     } else if (requestToPerform.url === "elm-pages-internal://write-file") {
       return [requestHash, await runWriteFileJob(requestToPerform)];
+    } else if (requestToPerform.url === "elm-pages-internal://sleep") {
+      return [requestHash, await runSleep(requestToPerform)];
     } else if (requestToPerform.url === "elm-pages-internal://start-spinner") {
       return [requestHash, runStartSpinner(requestToPerform)];
     } else if (requestToPerform.url === "elm-pages-internal://stop-spinner") {
@@ -534,6 +536,16 @@ async function readFileJobNew(req, patternsToWatch) {
     });
   }
 }
+
+function runSleep(req) {
+  const { milliseconds } = req.body.args[0];
+  return new Promise((resolve) => {
+    setTimeout(() => {
+      resolve(jsonResponse(req, null));
+    }, milliseconds);
+  });
+}
+
 async function runWriteFileJob(req) {
   const data = req.body.args[0];
   try {

src/Pages/Script.elm

@@ -4,6 +4,7 @@ module Pages.Script exposing
     , writeFile
     , log
     , Error(..)
+    , doThen, sleep
     )
 
 {-| An elm-pages Script is a way to execute an `elm-pages` `BackendTask`.
@@ -35,6 +36,7 @@ Read more about using the `elm-pages` CLI to run (or bundle) scripts, plus a bri
 -}
 
 import BackendTask exposing (BackendTask)
+import BackendTask.Custom
 import BackendTask.Http
 import BackendTask.Internal.Request
 import Cli.OptionsParser as OptionsParser
@@ -164,3 +166,24 @@ withCliOptions config execute =
             config
                 |> Program.mapConfig execute
         )
+sleep : Int -> BackendTask error ()
+sleep int =
+    BackendTask.Internal.Request.request
+        { name = "sleep"
+        , body =
+            BackendTask.Http.jsonBody
+                (Encode.object
+                    [ ( "milliseconds", Encode.int int )
+                    ]
+                )
+        , expect =
+            BackendTask.Http.expectJson (Decode.null ())
+        }
+
+
+
+
+doThen : BackendTask error value -> BackendTask error () -> BackendTask error value
+doThen task1 task2 =
+    task2
+        |> BackendTask.andThen (\() -> task1)