Fix purs graph command after bundling/running single package in monorepo (#1394)

Author: f-f

src/Spago/Command/Bundle.purs

@@ -168,7 +168,11 @@ validateMainExport moduleName = do
   let
     globs = Build.getBuildGlobs
       { rootPath
-      , dependencies: Fetch.toAllDependencies dependencies
+      , dependencies:
+          let
+            { core, test } = unsafeFromJust $ Map.lookup selected.package.name dependencies
+          in
+            Map.union core test
       , depsOnly: false
       , withTests: false
       , selected: NEA.singleton selected

src/Spago/Command/Run.purs

@@ -128,7 +128,11 @@ run = do
       let
         globs = Build.getBuildGlobs
           { rootPath
-          , dependencies: Fetch.toAllDependencies dependencies
+          , dependencies:
+              let
+                { core, test } = unsafeFromJust $ Map.lookup selected.package.name dependencies
+              in
+                Map.union core test
           , depsOnly: false
           -- Here we include tests as well, because we use this code for `spago run` and `spago test`
           , withTests: true

test-fixtures/monorepo/bundle-single-package/package-a/spago.yaml

@@ -0,0 +1,5 @@
+package:
+  name: package-a
+  dependencies:
+    - effect
+    - prelude

test-fixtures/monorepo/bundle-single-package/package-a/src/Main.purs

@@ -0,0 +1,7 @@
+module Main where
+
+import Prelude
+import Effect (Effect)
+
+main :: Effect Unit
+main = pure unit

test-fixtures/monorepo/bundle-single-package/package-b/spago.yaml

@@ -0,0 +1,6 @@
+package:
+  name: package-b
+  dependencies:
+    - effect
+    - ordered-collections
+    - prelude

test-fixtures/monorepo/bundle-single-package/package-b/src/Main.purs

@@ -0,0 +1,8 @@
+module PackageB.Main where
+
+import Prelude
+import Effect (Effect)
+import Data.Map as Map
+
+main :: Effect Unit
+main = void $ pure (Map.empty :: Map.Map String Int)

test-fixtures/monorepo/bundle-single-package/package-c/spago.yaml

@@ -0,0 +1,6 @@
+package:
+  name: package-c
+  dependencies:
+    - effect
+    - package-b
+    - prelude

test-fixtures/monorepo/bundle-single-package/package-c/src/Main.purs

@@ -0,0 +1,8 @@
+module PackageC.Main where
+
+import Prelude
+import Effect (Effect)
+import PackageB.Main as B
+
+main :: Effect Unit
+main = B.main