recursion-ninja pushed to branch wip/fix-26109 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • testsuite/tests/llvm/should_run/T20645.hs
    ... ... @@ -12,6 +12,7 @@ opaqueInt8# x = x
    12 12
     main :: IO ()
    
    13 13
     main = let !x = opaqueInt8# 109#Int8
    
    14 14
                !y = opaqueInt8#   1#Int8
    
    15
    -       in putStrLn . flip showHex "" . W# $ pext8#
    
    15
    +       in putStrLn $ flip showHex "" (W# ( pext8#
    
    16 16
                   (word8ToWord# (int8ToWord8# (0#Int8 `subInt8#` x     )))
    
    17 17
                   (word8ToWord# (int8ToWord8# (y      `subInt8#` 4#Int8)))
    
    18
    +          ))