X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;fp=compiler%2Frename%2FRnSource.lhs;h=bfecfd631fe71aa60edd37e99f780acf9eee9375;hp=2911ce01200d574501a1ea15c35dea11be024b97;hb=6e9c0431a7cf2bf1a48f01db48c6a1d41fe15a09;hpb=172b85497dc0da68176fa90c993abd9bcdc6b96f diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 2911ce0..bfecfd6 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -412,8 +412,8 @@ patchCImportSpec packageId spec patchCCallTarget :: PackageId -> CCallTarget -> CCallTarget patchCCallTarget packageId callTarget = case callTarget of - PackageTarget label Nothing - -> PackageTarget label (Just packageId) + StaticTarget label Nothing + -> StaticTarget label (Just packageId) _ -> callTarget