Skip to content

Commit 7729e73

Browse files
committed
Always use the same mkHomeModLocation for mAIN_NAME
1 parent bf8bfbe commit 7729e73

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

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

+1-5
Original file line numberDiff line numberDiff line change
@@ -1108,11 +1108,7 @@ getModSummaryFromImports env fp _modTime mContents = do
11081108
liftIO $ evaluate $ rnf textualImports
11091109

11101110

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
11161112

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

0 commit comments

Comments
 (0)