diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-18 13:27:14 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-18 13:27:14 +0200 |
| commit | 690b7e49db25109b31163cbaa3cf5068a162441d (patch) | |
| tree | 82d2dbf359dc4a7870f73f088a71ed44162daec3 /testsuite/tests/polykinds/T6002.hs | |
| parent | 1c5fee15e8f5a8e0db3f198d39badf19e63e9d8c (diff) | |
| download | haskell-690b7e49db25109b31163cbaa3cf5068a162441d.tar.gz | |
Follow changes in [7ab62490/base] (re #7633)
Diffstat (limited to 'testsuite/tests/polykinds/T6002.hs')
| -rw-r--r-- | testsuite/tests/polykinds/T6002.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/testsuite/tests/polykinds/T6002.hs b/testsuite/tests/polykinds/T6002.hs index a7f09ef73a..1d4fb7fb09 100644 --- a/testsuite/tests/polykinds/T6002.hs +++ b/testsuite/tests/polykinds/T6002.hs @@ -80,6 +80,7 @@ instance Num (Hidden Nat') where abs n = n Hide a + Hide b = Hide $ plus a b a * b = fromInteger $ toInteger a * toInteger b + negate a = error "negate(Hidden Nat')" instance Real (Hidden Nat') where toRational = toRational . toInteger |