X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FStgSATMonad.lhs;h=dd6379c2be8c782c293f88c80702cdd17d101889;hp=57fff4d56c9b878fbc815cc861088e3311d13966;hb=5cf27e8f1731c52fe63a5b9615f927484164c61b;hpb=68afb16743cafd5b7495771d359891c6dfc5a186

diff --git a/ghc/compiler/simplStg/StgSATMonad.lhs b/ghc/compiler/simplStg/StgSATMonad.lhs
index 57fff4d..dd6379c 100644
--- a/ghc/compiler/simplStg/StgSATMonad.lhs
+++ b/ghc/compiler/simplStg/StgSATMonad.lhs
@@ -90,7 +90,7 @@ saTransform binder rhs
       where
 	-- get type info for the local function:
 	(tv_tmpl, dict_tys, tau_ty) = (splitSigmaTy . idType) binder
-	(reg_arg_tys, res_type)	    = splitTyArgs tau_ty
+	(reg_arg_tys, res_type)	    = splitFunTy tau_ty
 
 	-- now, we drop the ones that are
 	-- static, that is, the ones we will not pass to the local function