diff --git a/exe/Main.hs b/exe/Main.hs
index 8df95549..e508318a 100644
--- a/exe/Main.hs
+++ b/exe/Main.hs
@@ -132,6 +132,7 @@ main = do
         let ucradles = nubOrd cradles
         let n = length ucradles
         putStrLn $ "Found " ++ show n ++ " cradle" ++ ['s' | n /= 1]
+        when (n > 0) $ putStrLn $ "  (" ++ intercalate ", " (catMaybes ucradles) ++ ")"
         putStrLn "\nStep 3/4: Initializing the IDE"
         vfs <- makeVFSHandle
         debouncer <- newAsyncDebouncer