From 1d78b48000c25695e70ba539760c9e6260971562 Mon Sep 17 00:00:00 2001 From: panne Date: Sun, 28 May 2000 21:54:12 +0000 Subject: [PATCH] [project @ 2000-05-28 21:54:12 by panne] Look through newtypes when generating stub code. *merge if/when SPJ's huge commit is merged* --- ghc/compiler/deSugar/DsForeign.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs index d2c20a3..a5780f9 100644 --- a/ghc/compiler/deSugar/DsForeign.lhs +++ b/ghc/compiler/deSugar/DsForeign.lhs @@ -30,7 +30,7 @@ import Name ( mkGlobalName, nameModule, nameOccName, getOccString, mkForeignExportOcc, isLocalName, NamedThing(..), Provenance(..), ExportFlag(..) ) -import Type ( unUsgTy, +import Type ( unUsgTy, repType, splitTyConApp_maybe, splitFunTys, splitForAllTys, Type, mkFunTys, mkForAllTys, mkTyConApp, mkTyVarTy, mkFunTy, splitAppTy, applyTy, funResultTy @@ -493,7 +493,7 @@ showStgType t = text "Stg" <> text (showFFIType t) showFFIType :: Type -> String showFFIType t = getOccString (getName tc) where - tc = case splitTyConApp_maybe t of + tc = case splitTyConApp_maybe (repType t) of Just (tc,_) -> tc Nothing -> pprPanic "showFFIType" (ppr t) \end{code} -- 1.7.10.4