diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-02-07 15:27:43 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-04-11 12:39:00 -0400 |
commit | b618a9f23a5c97402c1150848d5c4b7e5991667c (patch) | |
tree | b0d6424098f00c26aa59b69e7b46dd007a5a2726 | |
parent | 7a530d111a23a3abb09607f7e98530b32bda0ffa (diff) | |
download | haskell-b618a9f23a5c97402c1150848d5c4b7e5991667c.tar.gz |
hadrian: Offer location of dependencies file on dep lookup failure
-rw-r--r-- | hadrian/src/Hadrian/Oracles/TextFile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/hadrian/src/Hadrian/Oracles/TextFile.hs b/hadrian/src/Hadrian/Oracles/TextFile.hs index d6fb78cc2f..5fe60212fa 100644 --- a/hadrian/src/Hadrian/Oracles/TextFile.hs +++ b/hadrian/src/Hadrian/Oracles/TextFile.hs @@ -62,7 +62,8 @@ lookupDependencies :: FilePath -> FilePath -> Action (FilePath, [FilePath]) lookupDependencies depFile file = do deps <- lookupValues depFile file case deps of - Nothing -> error $ "No dependencies found for file " ++ quote file + Nothing -> error $ "No dependencies found for file " ++ quote file ++ ".\n" + ++ " (looking for dependencies in " ++ quote depFile ++ ")" Just [] -> error $ "No source file found for file " ++ quote file Just (source : files) -> return (source, files) |