diff options
Diffstat (limited to 'testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl')
| -rw-r--r-- | testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl b/testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl index 6931397f09..46cefa025e 100644 --- a/testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl +++ b/testsuite/tests/ghci/should_run/UnboxedTuples/Common.hs-incl @@ -305,7 +305,7 @@ tuple_v6_a :: TV6 -> Int -> Double -> Int -> Double tuple_v6_a f x y z w = case f x y z w of (# x', _, y', _, z', _, w', _ #) -> (I# x', D# y', I# z', D# w') --- some levity polymorphic things +-- some representation-polymorphic things {-# NOINLINE lev_poly #-} lev_poly :: forall r a (b :: TYPE r). (a -> a -> a -> a -> |