Debug Windows failure

purescript · Jan 19, 2025 · d22ab4a · d22ab4a
1 parent 8c9212e
commit d22ab4a
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 3 deletions.
diff --git a/spago.lock b/spago.lock
@@ -473,6 +473,7 @@
             "console",
             "control",
             "datetime",
+            "debug",
             "docs-search-common",
             "docs-search-index",
             "dodo-printer",
@@ -541,6 +542,7 @@
             "contravariant",
             "control",
             "datetime",
+            "debug",
             "distributive",
             "docs-search-common",
             "docs-search-index",
@@ -774,6 +776,7 @@
             "contravariant",
             "control",
             "datetime",
+            "debug",
             "distributive",
             "docs-search-common",
             "docs-search-index",
@@ -2084,6 +2087,15 @@
         "tuples"
       ]
     },
+    "debug": {
+      "type": "registry",
+      "version": "6.0.2",
+      "integrity": "sha256-vmkYFuXYuELBzeauvgHG6E6Kf/Hp1dAnxwE9ByHfwSg=",
+      "dependencies": [
+        "functions",
+        "prelude"
+      ]
+    },
     "distributive": {
       "type": "registry",
       "version": "6.0.0",

diff --git a/src/Spago/Command/Auth.purs b/src/Spago/Command/Auth.purs
@@ -6,7 +6,6 @@ import Spago.Prelude
 import Data.Array as Array
 import Data.String (Pattern(..))
 import Data.String as String
-import Debug (traceM)
 import Registry.SSH as SSH
 import Spago.Command.Fetch (FetchEnv)
 import Spago.Config as Config
@@ -29,7 +28,6 @@ run { keyPath } = do
 
   newOwner <- FS.exists path >>= case _ of
     false -> do
-      traceM { path, keyPath }
       die $ "Cannot read public key at path " <> Path.quote path <> ": file does not exist."
     true -> do
       content <- FS.readTextFile path

diff --git a/test/Spago/Publish.purs b/test/Spago/Publish.purs
@@ -119,7 +119,7 @@ spec = Spec.around withTempDir do
       traceM =<< FS.exists (fixture "publish/key")
       spago [ "auth", "-i", (Path.toRaw $ fixture "publish/key") ] >>= shouldBeSuccess
       doTheGitThing
-      spago [ "registry", "transfer", "--offline", "-i", (Path.toRaw $ fixture "publish/key") ] >>= shouldBeFailureErr (fixture "publish/transfer/offline.txt")
+      spago [ "registry", "transfer", "-v", "--offline", "-i", (Path.toRaw $ fixture "publish/key") ] >>= shouldBeFailureErr (fixture "publish/transfer/offline.txt")
 
   Spec.it "#1110 installs versions of packages that are returned by the registry solver, but not present in cache" \{ spago, fixture, testCwd } -> do
     let