Skip to content

Commit 1aa30d3

Browse files
committed
Always use the same mkHomeModLocation for mAIN_NAME
1 parent 6faec55 commit 1aa30d3

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

ghcide/src/Development/IDE/Core/Compile.hs

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1120,11 +1120,7 @@ getModSummaryFromImports env fp _modTime mContents = do
11201120
liftIO $ evaluate $ rnf textualImports
11211121

11221122

1123-
modLoc <- liftIO $ if mod == mAIN_NAME
1124-
-- specially in tests it's common to have lots of nameless modules
1125-
-- mkHomeModLocation will map them to the same hi/hie locations
1126-
then mkHomeModLocation dflags (pathToModuleName fp) fp
1127-
else mkHomeModLocation dflags mod fp
1123+
modLoc <- liftIO $ mkHomeModLocation dflags mod fp
11281124

11291125
let modl = mkHomeModule (hscHomeUnit ppEnv) mod
11301126
sourceType = if "-boot" `isSuffixOf` takeExtension fp then HsBootFile else HsSrcFile

0 commit comments

Comments
 (0)