Skip to content
Snippets Groups Projects
Commit 29205476 authored by Joachim Breitner's avatar Joachim Breitner Committed by thoughtpolice
Browse files

Add test case for #8743

which only occurs when the instance being compiled is also present from
a .hs-boot file.

(cherry picked from commit c3ff5f29)
parent 8ac9e061
No related branches found
No related tags found
No related merge requests found
module T8743 where
-- Without the following import, it does not fail
import {-# SOURCE #-} T8743 ()
-- [()] required, () does not work.
class ToRow a where toRow :: a -> [()]
instance ToRow (Maybe a) where
toRow Nothing = [()]
toRow (Just _) = [()]
module T8743 where
class ToRow a
instance ToRow (Maybe a)
......@@ -18,3 +18,5 @@ test('newtype', req_profiling, compile, ['-prof -auto-all'])
test('T1988', normal, compile, [''])
test('T8467', normal, compile, [''])
test('T8037', normal, compile, [''])
test('T8743', [ expect_broken(8743), extra_clean(['T8743.o-boot', 'T8743.hi-boot']) ], multimod_compile, ['T8743', '-v0'])
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment