[ cosmetic ] Say when you start compiling the executable (#2714)

src/Idris/Package.idr

@@ -472,13 +472,12 @@ build pkg opts
          [] <- prepareCompilation pkg opts
             | errs => pure errs
 
-         case executable pkg of
-              Nothing => pure ()
-              Just exec =>
-                   do let Just (mainNS, mainFile) = mainmod pkg
-                               | Nothing => throw (GenericMsg emptyFC "No main module given")
-                      let mainName = NS (miAsNamespace mainNS) (UN $ Basic "main")
-                      compileMain mainName mainFile exec
+         whenJust (executable pkg) $ \ exec =>
+           do let Just (mainNS, mainFile) = mainmod pkg
+                 | Nothing => throw (GenericMsg emptyFC "No main module given")
+              let mainName = NS (miAsNamespace mainNS) (UN $ Basic "main")
+              coreLift $ putStrLn "Now compiling the executable: \{exec}"
+              compileMain mainName mainFile exec
 
          runScript (postbuild pkg)
          pure []

tests/chez/chez026/expected

@@ -1,2 +1,3 @@
 1/1: Building Dummy (Dummy.idr)
+Now compiling the executable: check_dir
 Found build directory

tests/idris2/golden001/expected

@@ -1,5 +1,7 @@
 1/1: Building Main (Main.idr)
+Now compiling the executable: hello
 1/1: Building Test (Test.idr)
+Now compiling the executable: runtests
 
 ------------------------------------------------------------------------
 Hello World