Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
bd7ab668
Commit
bd7ab668
authored
Dec 22, 2015
by
eir@cis.upenn.edu
Browse files
Test #11254 in typecheck/should_compile/T11254
parent
5e4e9e00
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/typecheck/should_compile/T11254.hs
0 → 100644
View file @
bd7ab668
-- /tmp/panic.hs
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE UndecidableSuperClasses #-}
{-# OPTIONS_GHC -fdefer-type-errors #-}
module
T11254
where
class
(
Frac
(
Frac
a
)
~
Frac
a
,
Fractional
(
Frac
a
),
ID
(
Frac
a
))
=>
ID
a
where
type
Frac
a
embed
::
a
->
Frac
a
instance
ID
Rational
where
type
Frac
Rational
=
Int
embed
::
Rational
->
Rational
embed
=
undefined
testsuite/tests/typecheck/should_compile/all.T
View file @
bd7ab668
...
...
@@ -485,3 +485,4 @@ test('T10935', normal, compile, [''])
test
('
T10971a
',
normal
,
compile
,
[''])
test
('
T11237
',
normal
,
compile
,
[''])
test
('
T10592
',
normal
,
compile
,
[''])
test
('
T11254
',
expect_broken
(
11254
),
compile
,
[''])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment