@@ -27,7 +27,7 @@ checkPlan settings ii = do
27 let dryRun = sort $ filter notOptionalCore $ map (takeWhile (/= ' ')) $ drop 2 $ lines dryRun'
27 let dryRun = sort $ filter notOptionalCore $ map (takeWhile (/= ' ')) $ drop 2 $ lines dryRun'
28 let mismatches = getMismatches dryRun (filter notOptionalCore $ iiPackageList ii)
28 let mismatches = getMismatches dryRun (filter notOptionalCore $ iiPackageList ii)
29 unless (null mismatches) $ do
29 unless (null mismatches) $ do
30− putStrLn "Found the following mismtaches"
30+ putStrLn "Found the following mismatches"
31 mapM_ print mismatches
31 mapM_ print mismatches
32 exitWith $ ExitFailure 1
32 exitWith $ ExitFailure 1