From d350e8538b7e6503e7a1b650e34031785af2c764 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Thu, 26 May 2022 15:52:09 -0600
Subject: [PATCH] fix bug with unspecified package uploads

---
 src/Cli/Cli.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Cli/Cli.hs b/src/Cli/Cli.hs
index 49e6078..8015ec7 100644
--- a/src/Cli/Cli.hs
+++ b/src/Cli/Cli.hs
@@ -305,7 +305,7 @@ upload (Upload name mpkg shouldIndex) = do
         Nothing -> do
             cwd   <- getCurrentDirectory
             files <- listDirectory cwd
-            let pkgs = filter (\n -> takeExtension n == "s9pk") files
+            let pkgs = filter (\n -> takeExtension n == ".s9pk") files
             case pkgs of
                 [] -> do
                     $logError "No package specified, and could not find one in this directory"