prevent clock underflow while paused

1 files changed, 9 insertions, 2 deletions

diff --git a/main.ha b/main.ha
index 4fd5ba5..f2c571f 100644
--- a/main.ha
+++ b/main.ha
@@ -163,8 +163,15 @@ export fn main() void = {
 				quit = true;
 			case 'j' =>
 				start = time::add(start, time::SECOND * 10);
-				if (time::diff(start, now) < 0) {
-					start = now;
+				match (pause_start) {
+				case void =>
+					if (time::diff(start, now) < 0) {
+						start = now;
+					};
+				case let inst: time::instant =>
+					if (time::diff(start, inst) < 0) {
+						start = inst;
+					};
 				};
 			case 'l' =>
 				start = time::add(start, -time::SECOND * 10);