[commit: ghc] wip/ttypeable: Fix it (5988da0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/ttypeable
Link       : http://ghc.haskell.org/trac/ghc/changeset/5988da0bfde10d25c73bd44f4554cac30d290e30/ghc

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

commit 5988da0bfde10d25c73bd44f4554cac30d290e30
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Jan 19 15:56:48 2017 -0500

    Fix it


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

5988da0bfde10d25c73bd44f4554cac30d290e30
 compiler/types/TyCon.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/types/TyCon.hs b/compiler/types/TyCon.hs
index cd57fae..1c749dc 100644
--- a/compiler/types/TyCon.hs
+++ b/compiler/types/TyCon.hs
@@ -2056,7 +2056,7 @@ isTcTyCon _            = False
 -- Precondition: The fully-applied TyCon has kind (TYPE blah)
 isTcLevPoly :: TyCon -> Bool
 isTcLevPoly FunTyCon{}           = False
-isTcLevPoly (AlgTyCon { algTcParent = UnboxedAlgTyCon }) = True
+isTcLevPoly (AlgTyCon { algTcParent = UnboxedAlgTyCon _ }) = True
 isTcLevPoly AlgTyCon{}           = False
 isTcLevPoly SynonymTyCon{}       = True
 isTcLevPoly FamilyTyCon{}        = True