Commit b1eab33

committed

Actually realize that the dropEnd1 is old code and revert "Get rid of redundant dropEnd1"

This reverts commit 723d56c.

1 parent 723d56c commit b1eab33Copy full SHA for b1eab33

File tree

-3

lines changed

-3

lines changed

Lines changed: 8 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -57,7 +57,7 @@ import qualified Data.Text as T`
`57`	`57`
`58`	`58`	`import qualified Data.Array as A`
`59`	`59`	`import Data.Either`
`60`		`-import Data.List.Extra (nubOrd)`
	`60`	`+import Data.List.Extra (dropEnd1, nubOrd)`
`61`	`61`
`62`	`62`
`63`	`63`	`import Control.Lens ((^.))`
`@@ -279,9 +279,14 @@ atPoint opts@IdeOptions{} shakeExtras@ShakeExtras{ withHieDb, hiedbWriter } har@`
`279`	`279`	`Left _moduleName -> Nothing) $ fromMaybe [] locationsWithIdentifier`
`280`	`280`
`281`	`281`	`prettyNames <- mapM (prettyName locationsMap) names`
`282`		`-`
`283`		`- pure (Just range, prettyNames ++ prettyTypes Nothing locationsMap)`
	`282`	`+ pure (Just range, prettyNames ++ pTypes locationsMap)`
`284`	`283`	`where`
	`284`	`+ pTypes :: M.Map Name Location -> [T.Text]`
	`285`	`+ pTypes locationsMap =`
	`286`	`+ case names of`
	`287`	`+ [_singleName] -> dropEnd1 $ prettyTypes Nothing locationsMap`
	`288`	`+ _ -> prettyTypes Nothing locationsMap`
	`289`	`+`
`285`	`290`	`range :: Range`
`286`	`291`	`range = realSrcSpanToRange $ nodeSpan ast`
`287`	`292`

Comments

(0)