From d133aaaa58d766dade37502e5c209fd497dbf750 Mon Sep 17 00:00:00 2001
From: Sam Nystrom <sam@samnystrom.dev>
Date: Thu, 22 Jun 2023 23:38:26 -0400
Subject: prevent clock underflow

---
 main.ha | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/main.ha b/main.ha
index 6f76eb1..bd3428c 100644
--- a/main.ha
+++ b/main.ha
@@ -144,16 +144,19 @@ export fn main() void = {
 			continue;
 		};
 		let quit = false;
+		let now = time::now(time::clock::REALTIME);
 		for (let i = 0z; i < len(input); i += 1) {
 			switch (input[i]) {
 			case 'q' =>
 				quit = true;
 			case 'j' =>
 				start = time::add(start, time::SECOND * 10);
+				if (time::diff(start, now) < 0) {
+					start = now;
+				};
 			case 'l' =>
 				start = time::add(start, -time::SECOND * 10);
 			case 'k' =>
-				let now = time::now(time::clock::REALTIME);
 				match (pause_start) {
 				case void =>
 					pause_start = now;
-- 
cgit v1.2.3