Re-order case branches
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 7 Jun 2012 08:50:34 +0000 (09:50 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 7 Jun 2012 08:50:34 +0000 (09:50 +0100)
compiler/types/TyCon.lhs

index 72bf1b5..47db814 100644 (file)
@@ -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