Fix #11287.
[ghc.git] / testsuite / tests / th / T10306.hs
index b93114b..3ed08f0 100644 (file)
@@ -9,6 +9,6 @@ import GHC.TypeLits
 -- caused a crash, because it has no equations
 $(do x <- reify ''(+)
      case x of
-       FamilyI (ClosedTypeFamilyD _ _ _ []) _ -> return []
-       _                                      -> error $ show x
+       FamilyI (ClosedTypeFamilyD _ []) _ -> return []
+       _ -> error $ show x
  )