WIP: module name on windows

Author: fendor

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

@@ -1111,7 +1111,7 @@ getModSummaryFromImports env fp _modTime mContents = do
     modLoc <- liftIO $ if mod == mAIN_NAME
         -- specially in tests it's common to have lots of nameless modules
         -- mkHomeModLocation will map them to the same hi/hie locations
-        then mkHomeModLocation dflags (pathToModuleName fp) fp
+        then mkHomeModLocation dflags mod fp
         else mkHomeModLocation dflags mod fp
 
     let modl = mkHomeModule (hscHomeUnit ppEnv) mod