1 files changed, 3 insertions, 2 deletions
diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs
index d8e3a6c..cc96999 100644
--- a/tests/CompileTest.hs
+++ b/tests/CompileTest.hs
@@ -100,8 +100,9 @@ main = do
            hPutStrLn stderr $ "\n\n\n\n\n\n====== Compiling with Cabal-" ++ sver
            compilePrivatePkgDb ver
 
-  let printStatus (cv, rv) = putStrLn $ "- Cabal "++show cv++" "++status
-        where status = case rv of
+  let printStatus (cv, rv) = putStrLn $ "- Cabal "++ver++" "++status
+        where  ver = case cv of Left _ -> "HEAD"; Right v -> showVersion v
+               status = case rv of
                          Right _ ->
                              "suceeded"
                          Left rvc ->