prevent clock underflow

1 files changed, 4 insertions, 1 deletions

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;