diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 12:40:14 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 13:12:00 +0200 |
commit | 5a5b2c37c2048a55cef268340df171c7ad057c71 (patch) | |
tree | 188d61d9f886920d06f1d8392bd4b6f7e1422d1e | |
parent | e4161921d66ccb0102091ffa0a6087eef4e41d61 (diff) |
tests: Use showVersion for 'Version' type
-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 -> |