diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-11-02 14:47:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-11-02 15:26:07 +0000 |
| commit | fb31191a76b0b623e11aab8486643bc175a8712e (patch) | |
| tree | 3ceaa2bba59d6a32b5892e4a2cfaa53b0440ab87 /compiler/deSugar/DsForeign.lhs | |
| parent | 0a7c4efe8b7ce459979c0cb18d60910539347f9c (diff) | |
| download | haskell-fb31191a76b0b623e11aab8486643bc175a8712e.tar.gz | |
Refactoring: Make a HasModule class for getModule
Diffstat (limited to 'compiler/deSugar/DsForeign.lhs')
| -rw-r--r-- | compiler/deSugar/DsForeign.lhs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs index 59124e32e1..daf49eebac 100644 --- a/compiler/deSugar/DsForeign.lhs +++ b/compiler/deSugar/DsForeign.lhs @@ -212,11 +212,7 @@ dsFCall fn_id co fcall mDeclHeader = do (fcall', cDoc) <- case fcall of CCall (CCallSpec (StaticTarget cName mPackageId isFun) CApiConv safety) -> - do thisMod <- getModuleDs - let pkg = packageIdString (modulePackageId thisMod) - mod = moduleNameString (moduleName thisMod) - wrapperNameComponents = [pkg, mod, unpackFS cName] - wrapperName <- mkWrapperName "ghc_wrapper" wrapperNameComponents + do wrapperName <- mkWrapperName "ghc_wrapper" (unpackFS cName) let fcall' = CCall (CCallSpec (StaticTarget wrapperName mPackageId True) CApiConv safety) c = includes $$ fun_proto <+> braces (cRet <> semi) |