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

Fix emptyPathUri

Browse Source
This commit is contained in:
Moritz Kiefer 2020-03-23 10:54:22 +01:00
parent 9951f35b08
commit 9b35f4a7fb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Development/IDE/Types/Location.hs
View File

@ -32,6 +32,7 @@ import Data.String
import FastString
import qualified Language.Haskell.LSP.Types as LSP
import SrcLoc as GHC
import System.Info.Extra
import Text.ParserCombinators.ReadP as ReadP
import Data.Maybe (fromMaybe)
@ -53,7 +54,11 @@ uriToFilePath' uri
| otherwise = LSP.uriToFilePath uri
emptyPathUri :: LSP.NormalizedUri
emptyPathUri = LSP.NormalizedUri (hash ("" :: String)) ""
emptyPathUri =
-- The difference here matches the behavior of platformAwareFilePathToUri.
let s | isWindows = "file:///"
| otherwise = "file://"
in LSP.NormalizedUri (hash s) s
filePathToUri' :: LSP.NormalizedFilePath -> LSP.NormalizedUri
filePathToUri' = LSP.normalizedFilePathToUri