diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-06 02:12:00 +0200 |
---|---|---|
committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
commit | 8f2e5eee7db0cfae21f0c347d5551f23e69de34c (patch) | |
tree | 9f3a0413bab21ba35dc17d7433aa5e07aa986ac6 /tests | |
parent | 29c13da426a9009754f5d32351a9f54bccf3cbb5 (diff) |
Make ChSetupEntrypoint carry the Main module file name
Diffstat (limited to 'tests')
-rw-r--r-- | tests/GhcSession.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index 2fdd3e2..1a97b89 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -398,9 +398,7 @@ compileModule pkgdir ep srcdirs opts = do Nothing -> error $ printf "Couldn't find source file for Main module (%s), search path:\n\ \%s\n" m (show srcdirs) - ChSetupEntrypoint -> return $ - -- TODO: this doesn't support Setup.lhs - ["Setup.hs"] + ChSetupEntrypoint m -> return [m] -- Always compile targets as GHCi bytecode so the setContext call below -- can always succeed @@ -418,7 +416,7 @@ compileModule pkgdir ep srcdirs opts = do map (IIModule . mkModuleName . unChModuleName) $ ms ++ ms' ++ ss ChExeEntrypoint _ ms -> map (IIModule . mkModuleName . unChModuleName) $ ChModuleName "Main" : ms - ChSetupEntrypoint -> + ChSetupEntrypoint _ -> map (IIModule . mkModuleName) ["Main"] return $ TestResult True |