[commit: ghc] ghc-generics1: Re-order case branches (1261e96)

[José Pedro Magalhães]

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

On branch  : ghc-generics1

http://hackage.haskell.org/trac/ghc/changeset/1261e96c38c5f771459c52d0e3f248a8200d57bc

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

commit 1261e96c38c5f771459c52d0e3f248a8200d57bc
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 a1acbf6..fbe9f3f 100644
--- a/compiler/types/TyCon.lhs
+++ b/compiler/types/TyCon.lhs
@@ -1012,9 +1012,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