blob: 0ae39fd71c11e15ed6f42c2448583eacf3f947f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module T5084 where
-- Superclass method pragma test (fail)
class Foo a where
bar :: a -> a
{-# INLINE bar #-}
-- Instance test (ok)
instance Foo Int where
bar = (+1)
{-# INLINE bar #-}
|