We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
mkHomeModLocation
mAIN_NAME
1 parent bf8bfbe commit 7729e73Copy full SHA for 7729e73
ghcide/src/Development/IDE/Core/Compile.hs
@@ -1108,11 +1108,7 @@ getModSummaryFromImports env fp _modTime mContents = do
1108
liftIO $ evaluate $ rnf textualImports
1109
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
+ modLoc <- liftIO $ mkHomeModLocation dflags mod fp
1116
1117
let modl = mkHomeModule (hscHomeUnit ppEnv) mod
1118
sourceType = if "-boot" `isSuffixOf` takeExtension fp then HsBootFile else HsSrcFile
0 commit comments