From 2c5ac71cdddae1ac48f2480069fba0f7f5f61b65 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 7 Oct 2023 09:23:08 -0400
Subject: Allow for infinite timeout in bild

Setting '--time 0' will disable the timeout mechanism altogether. This
is necessary because the initial bootstrap build (without access to any
cached dependencies) takes *hours* mostly because of cuda and opencv and
things like that.
---
 Biz/Bild.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Biz')

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index d178a83..a3b8856 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -221,7 +221,7 @@ move args =
         |> readMaybe
         |> \case
           Nothing -> panic "could not read --time argument"
-          Just n -> n
+          Just n -> (n == 0) ?: (-1, n)
     printOrBuild :: Analysis -> IO [ExitCode]
     printOrBuild targets
       | Map.null targets =
@@ -284,7 +284,7 @@ Options:
   --test, -t   Run tests on a target after building
   --loud, -l   Show all output from compiler
   --json, -j   Print the build plan as JSON, don't build
-  --time N     Set timeout to N minutes [default: 10]
+  --time N     Set timeout to N minutes, 0 means never timeout [default: 10]
   --help, -h   Print this info
 |]
 
-- 
cgit v1.2.3