diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-31 09:11:25 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-31 09:11:25 +0000 |
| commit | 2f6b81588a27c85e02e93b2a7d443cc3c52ac907 (patch) | |
| tree | 4e60035f6cb340f63055eaad37ba2b7945a21876 /testsuite/tests/indexed-types/should_fail/T3330a.hs | |
| parent | 2d44ece059dbabcbc3f55583ceb6e216b2faf505 (diff) | |
| download | haskell-2f6b81588a27c85e02e93b2a7d443cc3c52ac907.tar.gz | |
Use 'error "uk"' rather than 'undefined'
'error' hsa a magical type with openTypeKind, whereas undefined doesn't
Diffstat (limited to 'testsuite/tests/indexed-types/should_fail/T3330a.hs')
| -rw-r--r-- | testsuite/tests/indexed-types/should_fail/T3330a.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/indexed-types/should_fail/T3330a.hs b/testsuite/tests/indexed-types/should_fail/T3330a.hs index c13760c6ac..e0b359a6f7 100644 --- a/testsuite/tests/indexed-types/should_fail/T3330a.hs +++ b/testsuite/tests/indexed-types/should_fail/T3330a.hs @@ -19,9 +19,9 @@ children :: s ix -> (PF s) r ix -> [AnyF s] children p x = execWriter (hmapM p collect x) collect :: HFunctor (PF s) => s ix -> r ix -> Writer [AnyF s] (r ix) -collect = undefined +collect = error "collect" hmapM :: (forall ix. phi ix -> r ix -> m (r' ix)) -> phi ix -> f r ix -> m (f r' ix) -hmapM = undefined +hmapM = error "hmapM" |