Canonicalize import dirs (#870)

* Canonicalize import dirs

* Fix unrelated hlint

Author: pepeiborra

src/Development/IDE/GHC/Util.hs

@@ -76,6 +76,7 @@ import RdrName (nameRdrName, rdrNameOcc)
 
 import Development.IDE.GHC.Compat as GHC
 import Development.IDE.Types.Location
+import System.Directory (canonicalizePath)
 
 
 ----------------------------------------------------------------------
@@ -189,9 +190,14 @@ data HscEnvEq = HscEnvEq
 newHscEnvEq :: FilePath -> HscEnv -> [(InstalledUnitId, DynFlags)] -> IO HscEnvEq
 newHscEnvEq cradlePath hscEnv0 deps = do
     envUnique <- newUnique
-    let envImportPaths = Just $ relativeToCradle <$> importPaths (hsc_dflags hscEnv0)
-        relativeToCradle = (takeDirectory cradlePath </>)
+    let relativeToCradle = (takeDirectory cradlePath </>)
         hscEnv = removeImportPaths hscEnv0
+
+    -- Canonicalize import paths since we also canonicalize targets
+    importPathsCanon <-
+      mapM canonicalizePath $ relativeToCradle <$> importPaths (hsc_dflags hscEnv0)
+    let envImportPaths = Just importPathsCanon
+
     return HscEnvEq{..}
 
 newHscEnvEqWithImportPaths :: Maybe [String] -> HscEnv -> [(InstalledUnitId, DynFlags)] -> IO HscEnvEq

test/exe/Main.hs

@@ -3010,7 +3010,7 @@ expectFailCabal = expectFailBecause
 #endif
 
 ignoreInWindowsBecause :: String -> TestTree -> TestTree
-ignoreInWindowsBecause = if isWindows then ignoreTestBecause else flip const
+ignoreInWindowsBecause = if isWindows then ignoreTestBecause else (\_ x -> x)
 
 ignoreInWindowsForGHC88And810 :: TestTree -> TestTree
 #if MIN_GHC_API_VERSION(8,8,1) && !MIN_GHC_API_VERSION(9,0,0)