From d940187fd8720e0ab3c00e5a6a7ae8f181c7752d Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 12 Feb 2023 15:37:25 -0800
Subject: Add lambda functions.

---
 opts.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'opts.sml')

diff --git a/opts.sml b/opts.sml
index ea5b935..f5be8c4 100644
--- a/opts.sml
+++ b/opts.sml
@@ -25,7 +25,7 @@ struct
     | "False" => false
     | _ => error "invalid boolean value"
 
-  fun getOpt (desc : (string * 'a optDesc) list) : string list =
+  fun getOpt (desc : (string * 'a optDesc) list) (args : string list) : string list =
     let
       val parsers = StringMap.fromList desc
       fun go [] = []
@@ -76,6 +76,6 @@ struct
                        go args)
               end
     in
-      go (CommandLine.arguments ())
+      go args
     end
 end
-- 
cgit v1.3.1