diff options
Diffstat (limited to 'distrib/compare/Problem.hs')
| -rw-r--r-- | distrib/compare/Problem.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/distrib/compare/Problem.hs b/distrib/compare/Problem.hs index 399e4f804e..7854bc5f7d 100644 --- 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 |