Reload on first connection

actionshrimp · Apr 17, 2018 · fb772e4 · fb772e4
1 parent f7ba4c9
commit fb772e4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/livereload.ml b/src/livereload.ml
@@ -103,5 +103,10 @@ let make_handler
     (next : handler)
     : handler
     = let send_update_fn, handler = make_raw_handler ~debug next in
-    Lwt.async (fun _ -> Backend.make_watcher ~debug path_configs send_update_fn);
+    Lwt.async (fun () -> Backend.make_watcher ~debug path_configs send_update_fn);
+    Lwt.async (fun () ->
+        Lwt_unix.sleep 1.0 >>= fun _ ->
+        send_update_fn "/"
+      );
     handler
+