output which cradle files were found

haskell · Jul 29, 2020 · 1fbf79a · 1fbf79a
1 parent 765967d
commit 1fbf79a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/exe/Main.hs b/exe/Main.hs
@@ -121,6 +121,7 @@ main = do
         let ucradles = nubOrd cradles
         let n = length ucradles
         putStrLn $ "Found " ++ show n ++ " cradle" ++ ['s' | n /= 1]
+        when (n > 0) $ putStrLn $ "  (" ++ intercalate ", " ucradles ++ ")"
         putStrLn "\nStep 3/4: Initializing the IDE"
         vfs <- makeVFSHandle
         debouncer <- newAsyncDebouncer