We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
mkHomeModLocation
mAIN_NAME
1 parent a32893a commit 24b778cCopy full SHA for 24b778c
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