From c8f7ac80ee152d737220c75a4d9b10211a37ace8 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Mon, 12 Jun 2017 03:08:56 +0200
Subject: Update and fix support for Cabal HEAD

---
 tests/Spec.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'tests/Spec.hs')

diff --git a/tests/Spec.hs b/tests/Spec.hs
index d0614de..de7568a 100644
--- a/tests/Spec.hs
+++ b/tests/Spec.hs
@@ -8,6 +8,7 @@ import Data.Version
 import Data.Functor
 import Control.Exception as E
 import Control.Arrow
+import Control.Monad
 import Prelude
 
 import CabalHelper.Common
@@ -66,10 +67,12 @@ main = do
                        , "1.22.7.0"
                        , "1.22.8.0"
                        ]),
-               ("8.0", [
+               ("8.0.1", [
                          "1.24.0.0"
                        , "1.24.1.0"
-                       , "1.24.2.0"
+                       ]),
+               ("8.0.2", [
+                         "1.24.2.0"
                        , "HEAD"
                        ])
              ]
@@ -78,7 +81,10 @@ main = do
 
   let cabalVers = reverse $ concat $ map snd $ dropWhile ((<ghcVer) . fst) vers
 
-  rvs <- mapM compilePrivatePkgDb cabalVers
+  rvs <- forM cabalVers $ \ver -> do
+           let sver = either show showVersion ver
+           putStrLn $ "\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
-- 
cgit v1.2.3