X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=distrib%2Fcompare%2FFilenameDescr.hs;fp=distrib%2Fcompare%2FFilenameDescr.hs;h=d21745cd26bd390679f53792d9fb373f4b1135a4;hp=c1a85954e651f6a7fefa945cdccd14fa4e4ba39a;hb=5fddd81f04e9f9df37da19148c8e4262ea381bf8;hpb=5c538c457d1215d7f5b5107ac808a24af805f870

diff --git a/distrib/compare/FilenameDescr.hs b/distrib/compare/FilenameDescr.hs
index c1a8595..d21745c 100644
--- a/distrib/compare/FilenameDescr.hs
+++ b/distrib/compare/FilenameDescr.hs
@@ -50,5 +50,7 @@ flattenFilenameDescr buildInfo fd = case partitionEithers (map f fd) of
            = case lookup thing (biThingHashMap buildInfo) of
              Just v -> Right v
              Nothing -> Left ["Can't happen: thing has no hash in mapping"]
-          f Ways = Right $ intercalate "-" $ biWays buildInfo
+          f Ways = case biMaybeWays buildInfo of
+                   Just ways -> Right $ intercalate "-" ways
+                   Nothing   -> Left ["Can't happen: No ways, but Ways is used"]