X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=e1210bd27f1708d23a23eea90f67cebb6c19f18e;hb=1867a7bb8c59ea514b4f47f5434842543933ec9a;hp=2ecd2f002e4866c194858aab113f4642abf55b60;hpb=ea9a5be67418ab76c4fa33736a3335b517c9e7f9;p=ghc-hetmet.git diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index 2ecd2f0..e1210bd 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -2263,7 +2263,7 @@ getTokenStream :: Session -> Module -> IO [Located Token] -- | Takes a 'ModuleName' and possibly a 'PackageId', and consults the -- filesystem and package database to find the corresponding 'Module', -- using the algorithm that is used for an @import@ declaration. -findModule :: Session -> ModuleName -> Maybe PackageId -> IO Module +findModule :: Session -> ModuleName -> Maybe FastString -> IO Module findModule s mod_name maybe_pkg = withSession s $ \hsc_env -> let dflags = hsc_dflags hsc_env