summaryrefslogtreecommitdiff
path: root/testsuite/tests/generics
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2015-04-03 00:48:51 -0500
committerAustin Seipp <austin@well-typed.com>2015-04-03 00:48:56 -0500
commit3541f736486d08df36863fd8e29deb1ca637a498 (patch)
treea8800dacca6f3a3012f4edf1fcdb8ac9580bbd4e /testsuite/tests/generics
parent012ea0b96cc041bced4565d74bef7ccb75f1af0d (diff)
downloadhaskell-3541f736486d08df36863fd8e29deb1ca637a498.tar.gz
Data.Complex: Derive Generic
Reviewed By: hvr, austin Differential Revision: https://phabricator.haskell.org/D770
Diffstat (limited to 'testsuite/tests/generics')
-rw-r--r--testsuite/tests/generics/T5884.hs5
-rw-r--r--testsuite/tests/generics/T5884Other.hs3
-rw-r--r--testsuite/tests/generics/all.T3
3 files changed, 7 insertions, 4 deletions
diff --git a/testsuite/tests/generics/T5884.hs b/testsuite/tests/generics/T5884.hs
index 6dfad25581..92b5087967 100644
--- a/testsuite/tests/generics/T5884.hs
+++ b/testsuite/tests/generics/T5884.hs
@@ -3,7 +3,6 @@
module T5884 where
import GHC.Generics
+import T5884Other
-import Data.Complex
-
-deriving instance Generic (Complex v)
+deriving instance Generic (Pair a)
diff --git a/testsuite/tests/generics/T5884Other.hs b/testsuite/tests/generics/T5884Other.hs
new file mode 100644
index 0000000000..2cf8250162
--- /dev/null
+++ b/testsuite/tests/generics/T5884Other.hs
@@ -0,0 +1,3 @@
+module T5884Other where
+
+data Pair a = Pair a a
diff --git a/testsuite/tests/generics/all.T b/testsuite/tests/generics/all.T
index c51de18a9c..98116ec519 100644
--- a/testsuite/tests/generics/all.T
+++ b/testsuite/tests/generics/all.T
@@ -26,7 +26,8 @@ test('T5462Yes2', extra_clean(['T5462Yes2/GFunctor.hi'])
test('T5462No1', extra_clean(['T5462No1/GFunctor.hi'])
, multimod_compile_fail, ['T5462No1', '-iGFunctor -outputdir=T5462No1'])
-test('T5884', normal, compile, [''])
+test('T5884', extra_clean(['T5884Other.o', 'T5884Other.hi'])
+ , multimod_compile, ['T5884Other', '-v0'])
test('GenNewtype', normal, compile_and_run, [''])
test('GenDerivOutput1_0', normal, compile, ['-dsuppress-uniques'])