diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-07 09:50:34 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-07 09:50:34 +0100 |
| commit | f964e7d4c71df175661ece61d8857f2e0b742181 (patch) | |
| tree | 4026ba87e4457a6d98958cd8327cb1cb21395bc3 | |
| parent | 28485e95dbafca3eb796e9d614b7455054b5c516 (diff) | |
| download | haskell-f964e7d4c71df175661ece61d8857f2e0b742181.tar.gz | |
Re-order case branches
| -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 |