From d1cb4dc83bd60e7cc8e4013d5f33911278ee8b6e Mon Sep 17 00:00:00 2001
From: Julian Hurst <ark@mansus.space>
Date: Tue, 27 Feb 2024 01:54:13 +0100
Subject: Add url cli parameter

---
 curl.ha | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/curl.ha b/curl.ha
index 1f85959..3725d56 100644
--- a/curl.ha
+++ b/curl.ha
@@ -1,5 +1,6 @@
 use types::c;
 use fmt;
+use os;
 
 export type CURL = opaque;
 export type CURLcode = int;
@@ -46,7 +47,10 @@ fn get(url: str) (void | curlerror) = {
 };
 
 export fn main() void = {
-	match (get("https://harelang.org")) {
+	if (len(os::args) != 2) {
+		fmt::fatalf("USAGE: {} <url>", os::args[0]);
+	};
+	match (get(os::args[1])) {
 	case void =>
 		yield;
 	case let err: curlerror =>
-- 
cgit v1.2.3