@@ -84,13 +84,13 @@ main = do
84runSnapshotTests :: TestArgs -> Aff Unit
84runSnapshotTests :: TestArgs -> Aff Unit
85runSnapshotTests { accept, filter } = do
85runSnapshotTests { accept, filter } = do
86 liftEffect $ Process.chdir $ Path.concat [ "test-snapshots" ]
86 liftEffect $ Process.chdir $ Path.concat [ "test-snapshots" ]
87− spawnFromParent "spago" [ "build", "-u", "-g corefn" ]
87+ spawnFromParent "spago" [ "build", "--purs-args", "-g corefn" ]
88 snapshotDir <- liftEffect Process.cwd
88 snapshotDir <- liftEffect Process.cwd
89− snapshotPaths <- expandGlobs (Path.concat [ snapshotDir, "snapshots-input" ])
89+ snapshotPaths <- expandGlobs (Path.concat [ snapshotDir, "src", "snapshots-input" ])
90 [ "Snapshot.*.purs" ]
90 [ "Snapshot.*.purs" ]
91 schemeBin <- getSchemeBinary
91 schemeBin <- getSchemeBinary
92 outputRef <- liftEffect $ Ref.new Map.empty
92 outputRef <- liftEffect $ Ref.new Map.empty
93− let snapshotsOut = Path.concat [ snapshotDir, "snapshots-output" ]
93+ let snapshotsOut = Path.concat [ snapshotDir, "src", "snapshots-output" ]
94 let testOut = Path.concat [ snapshotDir, "test-out" ]
94 let testOut = Path.concat [ snapshotDir, "test-out" ]
95 mkdirp snapshotsOut
95 mkdirp snapshotsOut
96 mkdirp testOut
96 mkdirp testOut