@@ -29,7 +29,7 @@ compilerTests = buildTest $ do
29 mkTests h = traverse setupTest
29 mkTests h = traverse setupTest
30 where setupTest f = testCase f . mkCompileTest h <$> readFile f
30 where setupTest f = testCase f . mkCompileTest h <$> readFile f
32− testsDir = "tests" </> "test-files"
32+ testsDir = "tests" </> "compiler" </> "test-files"
34goodCompile :: Either String String -> Assertion
34goodCompile :: Either String String -> Assertion
35goodCompile (Left err) = assertFailure err
35goodCompile (Left err) = assertFailure err