Fix #11287.
[ghc.git] / testsuite / tests / th / TH_pragma.stderr
1 TH_pragma.hs:(6,4)-(8,26): Splicing declarations\r
2     [d| foo :: Int -> Int\r
3         {-# NOINLINE foo #-}\r
4         foo x = x + 1 |]\r
5   ======>\r
6     foo :: Int -> Int\r
7     {-# NOINLINE foo #-}\r
8     foo x = (x + 1)\r
9 TH_pragma.hs:(10,4)-(12,31): Splicing declarations\r
10     [d| bar :: Num a => a -> a\r
11         {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}\r
12         bar x = x * 10 |]\r
13   ======>\r
14     bar :: forall a. Num a => a -> a\r
15     {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}\r
16     bar x = (x * 10)\r