Bindist comparison tool: add --ignore-size-changes flag

[ghc-hetmet.git] / distrib / compare / Problem.hs

diff --git a/distrib/compare/Problem.hs b/distrib/compare/Problem.hs
index 399e4f8..7854bc5 100644 (file)
--- a/distrib/compare/Problem.hs
+++ b/distrib/compare/Problem.hs
@@ -11,6 +11,10 @@ data Problem = DuplicateFile FilePath
              | PermissionsChanged FilePath FilePath String String
              | FileSizeChanged FilePath FilePath Integer Integer
 
+isSizeChange :: FileProblem -> Bool
+isSizeChange (Change (FileSizeChanged {})) = True
+isSizeChange _ = False
+
 pprFileProblem :: FileProblem -> String
 pprFileProblem (First  p) = "First  " ++ pprProblem p
 pprFileProblem (Second p) = "Second " ++ pprProblem p