haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-25 19:21:34 +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 FastString
import qualified Language.Haskell.LSP.Types as LSP import qualified Language.Haskell.LSP.Types as LSP
import SrcLoc as GHC import SrcLoc as GHC
import System.Info.Extra
import Text.ParserCombinators.ReadP as ReadP import Text.ParserCombinators.ReadP as ReadP
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
@ -53,7 +54,11 @@ uriToFilePath' uri
| otherwise = LSP.uriToFilePath uri | otherwise = LSP.uriToFilePath uri
emptyPathUri :: LSP.NormalizedUri 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.NormalizedFilePath -> LSP.NormalizedUri
filePathToUri' = LSP.normalizedFilePathToUri filePathToUri' = LSP.normalizedFilePathToUri