From c89770e17a73040b14723e510d62a1527b75b130 Mon Sep 17 00:00:00 2001
From: Sam Nystrom <sam@samnystrom.dev>
Date: Fri, 23 Jun 2023 01:12:44 -0400
Subject: prevent clock underflow while paused

---
 main.ha | 11 +++++++++--
 1 file 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);
-- 
cgit v1.2.3