From 5a5b2c37c2048a55cef268340df171c7ad057c71 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Mon, 25 Sep 2017 12:40:14 +0200 Subject: tests: Use showVersion for 'Version' type --- tests/CompileTest.hs | 5 +++-- 1 file 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 -> -- cgit v1.2.3