diff options
| author | John Leo <leo@halfaya.org> | 2015-12-12 19:28:18 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-12-12 20:01:37 +0100 |
| commit | 9934819f3bb086bba91874cde4f0b17b30b10451 (patch) | |
| tree | 7eca6742d7c0531132691f8c2ce61ba437f99a7a /testsuite/tests/th/T10306.hs | |
| parent | aaed24a4e0d8fa0d49aca167fddfb8b606755e05 (diff) | |
| download | haskell-9934819f3bb086bba91874cde4f0b17b30b10451.tar.gz | |
Refactor type families in Template Haskell
Fixes #10902.
Test Plan: validate
Reviewers: goldfire, austin, hvr, jstolarek, bgamari
Reviewed By: jstolarek, bgamari
Subscribers: hvr, thomie
Differential Revision: https://phabricator.haskell.org/D1570
GHC Trac Issues: #10902
Diffstat (limited to 'testsuite/tests/th/T10306.hs')
| -rw-r--r-- | testsuite/tests/th/T10306.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/th/T10306.hs b/testsuite/tests/th/T10306.hs index b74eb591e9..3ed08f063b 100644 --- a/testsuite/tests/th/T10306.hs +++ b/testsuite/tests/th/T10306.hs @@ -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 ) |