haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-12 02:24:13 +03:00
Code Issues Projects Releases Wiki Activity

Fix horrible path normalisation issue (#225)

Browse Source
This commit is contained in:
Pepe Iborra 2019-12-08 16:07:15 +00:00 committed by Moritz Kiefer
parent e78e1638ea
commit 5091a1d202
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
exe/Main.hs
View File

@ -167,9 +167,11 @@ loadSession :: FilePath -> IO (FilePath -> Action HscEnvEq)
loadSession dir = do loadSession dir = do
cradleLoc <- memoIO $ \v -> do cradleLoc <- memoIO $ \v -> do
res <- findCradle v res <- findCradle v
-- Sometimes we get C: and sometimes we get c:, try and normalise that -- Sometimes we get C:, sometimes we get c:, and sometimes we get a relative path
-- try and normalise that
-- e.g. see https://github.com/digital-asset/ghcide/issues/126 -- e.g. see https://github.com/digital-asset/ghcide/issues/126
return $ normalise <$> res res' <- traverse makeAbsolute res
return $ normalise <$> res'
session <- memoIO $ \file -> do session <- memoIO $ \file -> do
c <- maybe (loadImplicitCradle $ addTrailingPathSeparator dir) loadCradle file c <- maybe (loadImplicitCradle $ addTrailingPathSeparator dir) loadCradle file
cradleToSession c cradleToSession c