projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bindist comparison tool: Some logic improvements, and testsuite support
[ghc-hetmet.git]
/
distrib
/
compare
/
FilenameDescr.hs
diff --git
a/distrib/compare/FilenameDescr.hs
b/distrib/compare/FilenameDescr.hs
index
c1a8595
..
d21745c
100644
(file)
--- 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"]
= 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"]