fix bug with unspecified package uploads

This commit is contained in:
Keagan McClelland
2022-05-26 15:52:09 -06:00
parent 3395db8604
commit d350e8538b

View File

@@ -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"