Skip to content

Commit 4c998bd

Browse files
committed
rename LogGetSessionRetry to LogLookupSessionCache for clarity in logging
1 parent 1f97c40 commit 4c998bd

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

ghcide/session-loader/Development/IDE/Session.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -154,12 +154,12 @@ data Log
154154
| LogSessionNewLoadedFiles ![FilePath]
155155
| LogSessionReloadOnError FilePath ![FilePath]
156156
| LogGetOptionsLoop !FilePath
157-
| LogGetSessionRetry !FilePath
157+
| LogLookupSessionCache !FilePath
158158
deriving instance Show Log
159159

160160
instance Pretty Log where
161161
pretty = \case
162-
LogGetSessionRetry path -> "Retrying get session for" <+> pretty path
162+
LogLookupSessionCache path -> "Looking up session cache for" <+> pretty path
163163
LogGetOptionsLoop fp -> "Loop: getOptions for" <+> pretty fp
164164
LogSessionReloadOnError path files ->
165165
"Reloading file due to error in" <+> pretty path <+> "with files:" <+> pretty files
@@ -799,7 +799,7 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
799799
let ncfp = toNormalizedFilePath' absFile
800800
-- check if in the cache
801801
res <- atomically $ checkInCache ncfp
802-
logWith recorder Info $ LogGetSessionRetry absFile
802+
logWith recorder Info $ LogLookupSessionCache absFile
803803
updateDateRes <- case res of
804804
Just r -> do
805805
depOk <- checkDependencyInfo (snd r)

0 commit comments

Comments
 (0)