haskell/haskell-language-server
1
1
Fork 0
mirror of https://github.com/haskell/haskell-language-server.git synced 2024-09-20 13:17:35 +03:00
Code Issues Projects Releases Wiki Activity

Don't normalize in ormolu

Browse Source
This commit is contained in:
shaurya gupta 2020-07-30 17:19:33 +05:30
parent 75f0d6bef2
commit 679e0ecc03
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Ide/Plugin/Ormolu.hs
View File

@ -65,11 +65,8 @@ provider _lf ideState typ contents fp _ = do
case typ of
FormatText -> ret <$> fmt contents (mkConf fileOpts fullRegion)
FormatRange r ->
let
Range (Position sl _) (Position el _) = normalize r
in
ret <$> fmt contents (mkConf fileOpts (rangeRegion sl el))
FormatRange (Range (Position sl _) (Position el _)) ->
ret <$> fmt contents (mkConf fileOpts (rangeRegion sl el))
where
ret :: Either OrmoluException T.Text -> Either ResponseError (List TextEdit)
ret (Left err) = Left