Commit 4e873363 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Make sure the hash is pre-package unique, fixes #2857.

Signed-off-by: default avatarEdward Z. Yang <>
parent b083151f
......@@ -1317,7 +1317,11 @@ computeComponentId pkg_descr cname dep_ipids flagAssignment = do
-- doubly concating list, as it just flatten out the nested list, so
-- different sources can produce same hash
let hash = hashToBase62 $
(show $ dep_ipids)
-- For safety, include the package + version here
-- for GHC 7.10, where just the hash is used as
-- the package key
(display (package pkg_descr))
++ (show $ dep_ipids)
++ show flagAssignment
return . ComponentId $
display (package pkg_descr)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment