@@ -84,13 +84,13 @@ main = do
8484runSnapshotTests :: TestArgs -> Aff Unit
8585runSnapshotTests { accept, filter } = do
8686 liftEffect $ Process.chdir $ Path.concat [ "test-snapshots" ]
87− spawnFromParent "spago" [ "build", "-u", "-g corefn" ]
87+ spawnFromParent "spago" [ "build", "--purs-args", "-g corefn" ]
8888 snapshotDir <- liftEffect Process.cwd
89− snapshotPaths <- expandGlobs (Path.concat [ snapshotDir, "snapshots-input" ])
89+ snapshotPaths <- expandGlobs (Path.concat [ snapshotDir, "src", "snapshots-input" ])
9090 [ "Snapshot.*.purs" ]
9191 schemeBin <- getSchemeBinary
9292 outputRef <- liftEffect $ Ref.new Map.empty
93− let snapshotsOut = Path.concat [ snapshotDir, "snapshots-output" ]
93+ let snapshotsOut = Path.concat [ snapshotDir, "src", "snapshots-output" ]
9494 let testOut = Path.concat [ snapshotDir, "test-out" ]
9595 mkdirp snapshotsOut
9696 mkdirp testOut