diff options
Diffstat (limited to 'compiler/codeGen/StgCmmClosure.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 2492bafc6c..daaf021f03 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -255,9 +255,9 @@ might_be_a_function :: Type -> Bool -- Return False only if we are *sure* it's a data type -- Look through newtypes etc as much as poss might_be_a_function ty - = case splitTyConApp_maybe (repType ty) of - Just (tc, _) -> not (isDataTyCon tc) - Nothing -> True + = case tyConAppTyCon_maybe (repType ty) of + Just tc -> not (isDataTyCon tc) + Nothing -> True ------------- mkConLFInfo :: DataCon -> LambdaFormInfo |