aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-08-06 02:12:00 +0200
committerDaniel Gröber (dxld) <dxld@darkboxed.org>2019-09-17 17:48:26 +0200
commit8f2e5eee7db0cfae21f0c347d5551f23e69de34c (patch)
tree9f3a0413bab21ba35dc17d7433aa5e07aa986ac6 /tests
parent29c13da426a9009754f5d32351a9f54bccf3cbb5 (diff)
Make ChSetupEntrypoint carry the Main module file name
Diffstat (limited to 'tests')
-rw-r--r--tests/GhcSession.hs6
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