From afca6e491dc36a39734d6d3fd85465acf648530b Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Thu, 28 Dec 2017 12:00:23 +0100 Subject: WIP: ooops --- compiler/codeGen/StgCmmClosure.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 39d156f4d5..bc9bb65cc0 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -581,7 +581,7 @@ getCallMethod dflags name id (LFReEntrant _ _ arity _ _) n_args _v_args _cg_loc getCallMethod _ _name _ LFUnlifted n_args _v_args _cg_loc _self_loop_info = ASSERT( n_args == 0 ) ReturnIt -getCallMethod _ name _ (LFUnknown False) 0 _v_args cg_loc _self_loop_info +getCallMethod _ name _ (LFUnknown False) 0 _v_args _cg_loc _self_loop_info | occNameString (nameOccName name) == "wild" -- TODO: make this robust = ReturnIt -- seems to come from case, must be (tagged) WHNF already -- cgit v1.2.1