diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/types/TyCon.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/types/TyCon.lhs b/compiler/types/TyCon.lhs index 72bf1b57d6..47db814476 100644 --- a/compiler/types/TyCon.lhs +++ b/compiler/types/TyCon.lhs @@ -1014,9 +1014,9 @@ isDataTyCon :: TyCon -> Bool -- get an info table. The family declaration 'TyCon' does not isDataTyCon (AlgTyCon {algTcRhs = rhs}) = case rhs of - DataFamilyTyCon {} -> False DataTyCon {} -> True NewTyCon {} -> False + DataFamilyTyCon {} -> False AbstractTyCon {} -> False -- We don't know, so return False isDataTyCon (TupleTyCon {tyConTupleSort = sort}) = isBoxed (tupleSortBoxity sort) isDataTyCon _ = False |