diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-05-04 08:58:37 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-05-04 08:58:37 +0100 |
| commit | 7259087de1936d1ef66341cebac2667e7f1793ba (patch) | |
| tree | d06f18314f67923d9dcd0ae9a74bc381859a2e63 | |
| parent | 9fd4a7b01b2bb7d7e14347b04a9c9943e73fee32 (diff) | |
| download | haskell-7259087de1936d1ef66341cebac2667e7f1793ba.tar.gz | |
Add special case to mkObjectUsage
| -rw-r--r-- | compiler/GHC/HsToCore/Usage.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/HsToCore/Usage.hs b/compiler/GHC/HsToCore/Usage.hs index 13387912f6..2256ce30af 100644 --- a/compiler/GHC/HsToCore/Usage.hs +++ b/compiler/GHC/HsToCore/Usage.hs @@ -179,6 +179,7 @@ One way to improve this is to either: -- | Find object files corresponding to the transitive closure of given home -- modules and direct object files for pkg dependencies mkObjectUsage :: HscEnv -> [Module] -> [UnitId] -> IO [Usage] +mkObjectUsage _ [] [] = return [] mkObjectUsage hsc_env mods pkgs = do (ls, us) <- getLinkDeps (text "usage") hsc_env (hsc_HPT hsc_env) ([], [], []) Nothing noSrcSpan mods pkgs ds <- |