From 33556ee4c558486f9cc19e4e0002b643786a8548 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Mon, 2 Aug 2021 19:58:31 -0600
Subject: [PATCH] [nat] qualify types in Lib.kiss

---
 src/nat/Lib.kiss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/nat/Lib.kiss b/src/nat/Lib.kiss
index c37f05d..819025f 100644
--- a/src/nat/Lib.kiss
+++ b/src/nat/Lib.kiss
@@ -51,7 +51,7 @@
             ,@saveList
             ,retValSymbol)))
 
-(function addFile [:Archive archive :Entry e :String file &opt leaveOriginalCopy]
+(function addFile [:nat.Archive archive :nat.Entry e :String file &opt leaveOriginalCopy]
     (let [pathWithoutDir (haxe.io.Path.withoutDirectory file)]
         (unless !(= -1 (e.files.indexOf pathWithoutDir))
             ((if leaveOriginalCopy sys.io.File.copy sys.FileSystem.rename)
@@ -68,7 +68,7 @@
 // Create a system that selects Entries according to a single string component (i.e. Name or Author) matching the given value
 (defMacro stringComponentSystem [archive componentType value process]
     `(new System
-        (lambda [archive :Entry e]
+        (lambda [archive :nat.Entry e]
             ?(and (hasComponent e ,componentType)
                 (= ,value (readComponent ,archive e ,componentType))))
         ,process))