Commit 7729e73

committed

Always use the same mkHomeModLocation for mAIN_NAME

1 parent bf8bfbe commit 7729e73Copy full SHA for 7729e73

File tree

-5

lines changed

-5

lines changed

Lines changed: 1 addition & 5 deletions

Original file line number	Diff line number	Diff line change
`@@ -1108,11 +1108,7 @@ getModSummaryFromImports env fp _modTime mContents = do`
`1108`	`1108`	`liftIO $ evaluate $ rnf textualImports`
`1109`	`1109`
`1110`	`1110`
`1111`		`- modLoc <- liftIO $ if mod == mAIN_NAME`
`1112`		`- -- specially in tests it's common to have lots of nameless modules`
`1113`		`- -- mkHomeModLocation will map them to the same hi/hie locations`
`1114`		`- then mkHomeModLocation dflags (pathToModuleName fp) fp`
`1115`		`- else mkHomeModLocation dflags mod fp`
	`1111`	`+ modLoc <- liftIO $ mkHomeModLocation dflags mod fp`
`1116`	`1112`
`1117`	`1113`	`let modl = mkHomeModule (hscHomeUnit ppEnv) mod`
`1118`	`1114`	sourceType = if "-boot" `isSuffixOf` takeExtension fp then HsBootFile else HsSrcFile

Comments

(0)