@@ -12,7 +12,6 @@ import Test.Framework.Providers.HUnit (testCase)
1212import Test.HUnit (Assertion, assertFailure, assertBool)
1313
1414import qualified Elm.Compiler as Compiler
15−import qualified Elm.Compiler.Module as Module
1615
1716
1817compilerTests :: Test
@@ -45,7 +44,7 @@ testsDir =
4544-- RUN COMPILER
4645
4746testIf
48− :: (Either String (Module.Interface, String) -> Assertion)
47+ :: (Either String Compiler.Result -> Assertion)
4948 -> [FilePath]
5049 -> IO [Test]
5150testIf handleResult filePaths =
@@ -54,8 +53,10 @@ testIf handleResult filePaths =
5453 setupTest filePath = do
5554 source <- readFile filePath
5655
56+ let context =
57+ Compiler.Context "elm-lang" "core" True False
5758 let (dealiaser, _warnings, result) =
58− Compiler.compile "elm-lang" "core" True source Map.empty
59+ Compiler.compile context source Map.empty
5960 let formatErrors errors =
6061 concatMap (Compiler.errorToString dealiaser filePath source) errors
6162 let formattedResult =