[commit: nofib] shake: More informative print line when running tests with Shake. (97a6155)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/nofib

On branch  : shake

http://hackage.haskell.org/trac/ghc/changeset/97a6155fc9e1911d11330de020db388c891b89d1

>---------------------------------------------------------------

commit 97a6155fc9e1911d11330de020db388c891b89d1
Author: David Terei <davidterei at gmail.com>
Date:   Mon Mar 4 01:28:06 2013 -0800

    More informative print line when running tests with Shake.

>---------------------------------------------------------------

 Nofib.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Nofib.hs b/Nofib.hs
index 2215a06..577a233 100644
--- a/Nofib.hs
+++ b/Nofib.hs
@@ -249,7 +249,7 @@ buildRules r Build{..} = do
 --   Return True if the test passes.
 runTest :: Nofib -> String -> IO Bool
 runTest Build{run=Just speed,..} test = do
-    putStrLn $ "==nofib== " ++ takeDirectory1 test ++ ": time to run " ++ takeDirectory1 test ++ " follows..."
+    putStrLn $ "==nofib== " ++ takeDirectory1 test ++ ": time to run " ++ takeBaseName test ++ " follows..."
     config <- readConfig $ output </> test </> "config.txt"
     let args = words (config "PROG_ARGS") ++ words (config $ map toUpper (show speed) ++ "_OPTS")
     stdin <- let s = config "STDIN_FILE" in if s == "" then grab "stdin" else readFile $ test </> s