From 7b1de958eb853ea73daa5c3c808921bcee30f82f Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Wed, 2 Sep 2020 19:31:56 +0100 Subject: [PATCH] Include module path in progress message (#746) --- session-loader/Development/IDE/Session.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/session-loader/Development/IDE/Session.hs b/session-loader/Development/IDE/Session.hs index 99dfc3b4..9dce5815 100644 --- a/session-loader/Development/IDE/Session.hs +++ b/session-loader/Development/IDE/Session.hs @@ -210,8 +210,8 @@ loadSession dir = do cradle <- maybe (loadImplicitCradle $ addTrailingPathSeparator dir) loadCradle hieYaml -- Display a user friendly progress message here: They probably don't know what a -- cradle is - let progMsg = "Setting up project " <> T.pack (takeBaseName (cradleRootDir cradle)) - + let progMsg = "Setting up " <> T.pack (takeBaseName (cradleRootDir cradle)) + <> " (for " <> T.pack cfp <> ")" eopts <- withIndefiniteProgress progMsg NotCancellable $ cradleToOptsAndLibDir cradle cfp