Skip to content

Commit f56ff16

Browse files
committed
Really switch to nubOrd
1 parent 82ae692 commit f56ff16

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

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

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -100,7 +100,7 @@ performMeasurement logger stateRef instrumentFor mapCountInstrument = do
100100
withSpan_ "Measure length" $ readVar stateRef >>= observe mapCountInstrument . length
101101

102102
values <- readVar stateRef
103-
let keys = nub
103+
let keys = nubOrd
104104
$ Key GhcSession : Key GhcSessionDeps
105105
: [ k | (_,k) <- HMap.keys values
106106
-- do GhcSessionIO last since it closes over stateRef itself
@@ -111,8 +111,6 @@ performMeasurement logger stateRef instrumentFor mapCountInstrument = do
111111
`catch` \(e::SomeException) ->
112112
logInfo logger ("MEMORY PROFILING ERROR: " <> fromString (show e))
113113

114-
{-# ANN performMeasurement ("HLint: ignore Use nubOrd" :: String) #-}
115-
116114
type OurValueObserver = Int -> IO ()
117115

118116
getInstrumentCached :: IO (Maybe Key -> IO OurValueObserver)

0 commit comments

Comments
 (0)