diff options
| author | Ben Sima <ben@bsima.me> | 2023-09-21 16:59:15 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-09-21 21:44:16 -0400 |
| commit | dbdf4da2576f889544a33ce0bad4b8a5ff3eca87 (patch) | |
| tree | 169690c7827f77b2dd7ae6e0ec45aee202d03c1c /Biz/Dragons | |
| parent | 6e4a65579c3ade76feea0890072099f0d0caf416 (diff) | |
Add a 10-minute timeout for all builds
A build should never take more than 10 minutes. If it does, then force the
programmer to make stuff faster. This should be a forcing function to either
delete unneeded code, or improve the build system.
Diffstat (limited to 'Biz/Dragons')
| -rw-r--r-- | Biz/Dragons/Analysis.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Biz/Dragons/Analysis.hs b/Biz/Dragons/Analysis.hs index 8641a6d..c27eebb 100644 --- a/Biz/Dragons/Analysis.hs +++ b/Biz/Dragons/Analysis.hs @@ -43,8 +43,8 @@ move :: Cli.Arguments -> IO () move args = gitDir +> run authors /> Aeson.encode +> putStrLn where gitDir = - Cli.argument "git-dir" - |> Cli.getArgWithDefault args ".git" + Cli.longOption "git-dir" + |> Cli.getArgWithDefault args |> Directory.makeAbsolute authors = -- i think this is not working? do i need optparse-applicative? @@ -66,10 +66,12 @@ dragons-analyze Usage: dragons-analyze test - dragons-analyze [--author=<email>]... <git-dir> + dragons-analyze [--author=<email>]... Options: - -a, --author List of active authors' emails. + --git-dir The git repo to analyze [default: ./.git] + -a, --author List of active authors' emails, may be specified + multiple times |] newtype Commit = Sha Text |