diff options
| -rw-r--r-- | tests/CompileTest.hs | 5 |
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 -> |