Add missing utility for NormalizedPath

Author: Jan Vogt

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

@@ -15,6 +15,7 @@ module Development.IDE.Core.PluginUtils
 , useWithStaleFastE
 , useWithStaleFastMT
 , uriToFilePathE
+, uriToNormalizedFilePathE
 -- * Wrapped PositionMapping functions
 , toCurrentPositionE
 , toCurrentPositionMT
@@ -136,6 +137,11 @@ useWithStaleFastMT k = MaybeT . Shake.useWithStaleFast k
 uriToFilePathE :: Monad m => LSP.Uri -> ExceptT PluginError m FilePath
 uriToFilePathE uri = maybeToExceptT (PluginInvalidParams (T.pack $ "uriToFilePath' failed. Uri:" <>  show uri)) $ uriToFilePathMT uri
 
+-- |ExceptT version of `toNormalizedFilePath . uriToFilePath` that throws a PluginInvalidParams upon
+-- failure
+uriToNormalizedFilePathE :: Monad m => LSP.Uri -> ExceptT PluginError m NormalizedFilePath
+uriToNormalizedFilePathE uri = LSP.toNormalizedFilePath <$> uriToFilePathE uri
+
 -- |MaybeT version of `uriToFilePath`
 uriToFilePathMT :: Monad m => LSP.Uri -> MaybeT m FilePath
 uriToFilePathMT = MaybeT . pure . Location.uriToFilePath'