mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-25 13:41:56 +01:00
commit
af5e0104d4
@ -27,7 +27,7 @@ checkPlan settings ii = do
|
|||||||
let dryRun = sort $ filter notOptionalCore $ map (takeWhile (/= ' ')) $ drop 2 $ lines dryRun'
|
let dryRun = sort $ filter notOptionalCore $ map (takeWhile (/= ' ')) $ drop 2 $ lines dryRun'
|
||||||
let mismatches = getMismatches dryRun (filter notOptionalCore $ iiPackageList ii)
|
let mismatches = getMismatches dryRun (filter notOptionalCore $ iiPackageList ii)
|
||||||
unless (null mismatches) $ do
|
unless (null mismatches) $ do
|
||||||
putStrLn "Found the following mismtaches"
|
putStrLn "Found the following mismatches"
|
||||||
mapM_ print mismatches
|
mapM_ print mismatches
|
||||||
exitWith $ ExitFailure 1
|
exitWith $ ExitFailure 1
|
||||||
where
|
where
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user