[commit: ghc] master: Re-order case branches (f964e7d)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f964e7d4c71df175661ece61d8857f2e0b742181

>---------------------------------------------------------------

commit f964e7d4c71df175661ece61d8857f2e0b742181
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jun 7 09:50:34 2012 +0100

    Re-order case branches

>---------------------------------------------------------------

 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 72bf1b5..47db814 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