diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-12-28 12:00:23 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-12-28 12:00:23 +0100 |
| commit | afca6e491dc36a39734d6d3fd85465acf648530b (patch) | |
| tree | b80097234c846a1e59d8ccc3bff9c794d287c0fb | |
| parent | 51a1bf064328fc625fdef59262784ab04eb2fec1 (diff) | |
| download | haskell-wip/Txxxxx.tar.gz | |
WIP: ooopswip/Txxxxx
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |