diff options
Diffstat (limited to 'testsuite/tests/stranal/should_compile/T21128.hs')
-rw-r--r-- | testsuite/tests/stranal/should_compile/T21128.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/testsuite/tests/stranal/should_compile/T21128.hs b/testsuite/tests/stranal/should_compile/T21128.hs index 02991433f2..899adac49c 100644 --- a/testsuite/tests/stranal/should_compile/T21128.hs +++ b/testsuite/tests/stranal/should_compile/T21128.hs @@ -2,10 +2,6 @@ module T21128 where import T21128a -{- This test originally had some unnecessary reboxing of y -in the hot path of $wtheresCrud. That reboxing should -not happen. -} - theresCrud :: Int -> Int -> Int theresCrud x y = go x where @@ -13,4 +9,3 @@ theresCrud x y = go x go 1 = index x y 1 go n = go (n-1) {-# NOINLINE theresCrud #-} - |