diff options
Diffstat (limited to 'testsuite/tests/cpranal/should_compile/T18174.hs')
-rw-r--r-- | testsuite/tests/cpranal/should_compile/T18174.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/cpranal/should_compile/T18174.hs b/testsuite/tests/cpranal/should_compile/T18174.hs index bf1c02982c..69ca25a19e 100644 --- a/testsuite/tests/cpranal/should_compile/T18174.hs +++ b/testsuite/tests/cpranal/should_compile/T18174.hs @@ -41,7 +41,7 @@ dataConWrapper :: (Int, Int) -> Int -> (T, Int) dataConWrapper p x = (MkT x p, x+1) {-# NOINLINE dataConWrapper #-} --- | Should not unbox the second component, because 'x' won't be available +-- | Should not unbox the second component, because 'y' won't be available -- unboxed. It terminates, though. strictField :: T -> (Int, (Int, Int)) strictField (MkT x y) = (x, y) |