X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=distrib%2Fcompare%2FProblem.hs;fp=distrib%2Fcompare%2FProblem.hs;h=399e4f804e3e7148639c9ef9382f046b250cb2fb;hp=f80c8567ee6ee2eeea00311e3e36631399c9b9a0;hb=42b40db07ce70b89f867247809c4e930fd82a6f6;hpb=3ce328c715c8ae97325d21216a4dd51050876c62

diff --git a/distrib/compare/Problem.hs b/distrib/compare/Problem.hs
index f80c856..399e4f8 100644
--- 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