diff --git a/CHANGELOG.md b/CHANGELOG.md index adae4d835..e5a9c75b7 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -9,6 +9,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 Bugfixes: * Preserve TTY properties for child processes in `spago run` (#1341) +* Do not repeatedly request the same log line from the Registry server (#1381) ## [1.0.3] - 2026-02-01 diff --git a/src/Spago/Registry.purs b/src/Spago/Registry.purs index 6888f1c8b..2ede68d87 100644 --- a/src/Spago/Registry.purs +++ b/src/Spago/Registry.purs @@ -21,7 +21,7 @@ import Data.Array as Array import Data.Array.NonEmpty as NonEmptyArray import Data.Codec.JSON as CJ import Data.DateTime (DateTime) -import Data.DateTime (diff) as DateTime +import Data.DateTime (adjust, diff) as DateTime import Data.Formatter.DateTime (format) as DateTime import Data.Map as Map import Data.Set as Set @@ -468,7 +468,7 @@ waitForJobFinish { jobId, jobType } = go Nothing let url = baseApi <> Duplex.print V1.routes ( V1.Job jobId - { since: lastTimestamp + { since: lastTimestamp >>= DateTime.adjust (Milliseconds 1.0) , level: case logOptions.verbosity of LogVerbose -> Just V1.Debug _ -> Just V1.Info