Bindist comparison tool: Handle differences in the library ways nicely

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

diff --git a/distrib/compare/Problem.hs b/distrib/compare/Problem.hs
index f80c856..399e4f8 100644 (file)
--- a/distrib/compare/Problem.hs
+++ b/distrib/compare/Problem.hs
@@ -7,6 +7,7 @@ data FileProblem = First  Problem
 
 data Problem = DuplicateFile FilePath
              | ExtraFile FilePath
+             | ExtraWay String
              | PermissionsChanged FilePath FilePath String String
              | FileSizeChanged FilePath FilePath Integer Integer
 
@@ -18,6 +19,7 @@ pprFileProblem (Change p) = "Change " ++ pprProblem p
 pprProblem :: Problem -> String
 pprProblem (DuplicateFile fp) = "Duplicate file: " ++ show fp
 pprProblem (ExtraFile fp) = "Extra file: " ++ show fp
+pprProblem (ExtraWay w) = "Extra way: " ++ show w
 pprProblem (PermissionsChanged fp1 fp2 p1 p2)
     = "Permissions changed:\n"
    ++ "    " ++ show fp1