- }}}
-
-findHiFile :: HscEnv -> Module -> IsBootInterface
- -> IO (MaybeErr FindResult FilePath)
-findHiFile hsc_env mod hi_boot_file
- = do
- maybe_found <- findExactModule hsc_env mod
- case maybe_found of
- Found loc mod -> return (Succeeded path)
- where
- path = addBootSuffix_maybe hi_boot_file (ml_hi_file loc)
- err -> return (Failed err)