Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
cd7f7420
by Sylvain Henry at 2026-03-11T15:07:58-04:00
2 changed files:
Changes:
| ... | ... | @@ -40,44 +40,32 @@ mkTup9 = unsafeCoerce js_mk_tup9 |
| 40 | 40 | mkTup10 :: (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
|
| 41 | 41 | mkTup10 = unsafeCoerce js_mk_tup10
|
| 42 | 42 | |
| 43 | --- We have to use the Haskell tuple constructors here to make sure
|
|
| 44 | --- that the linker includes them in the final output for us to use
|
|
| 45 | --- in our JS code.
|
|
| 46 | 43 | main :: IO ()
|
| 47 | 44 | main = do
|
| 48 | 45 | putStr "mkTup2: "
|
| 49 | - print $ mkTup2 == (101, 102)
|
|
| 50 | 46 | print mkTup2
|
| 51 | 47 | |
| 52 | 48 | putStr "mkTup3: "
|
| 53 | - print $ mkTup3 == (101, 102, 103)
|
|
| 54 | 49 | print mkTup3
|
| 55 | 50 | |
| 56 | 51 | putStr "mkTup4: "
|
| 57 | - print $ mkTup4 == (101, 102, 103, 104)
|
|
| 58 | 52 | print mkTup4
|
| 59 | 53 | |
| 60 | 54 | putStr "mkTup5: "
|
| 61 | - print $ mkTup5 == (101, 102, 103, 104, 105)
|
|
| 62 | 55 | print mkTup5
|
| 63 | 56 | |
| 64 | 57 | putStr "mkTup6: "
|
| 65 | - print $ mkTup6 == (101, 102, 103, 104, 105, 106)
|
|
| 66 | 58 | print mkTup6
|
| 67 | 59 | |
| 68 | 60 | putStr "mkTup7: "
|
| 69 | - print $ mkTup7 == (101, 102, 103, 104, 105, 106, 107)
|
|
| 70 | 61 | print mkTup7
|
| 71 | 62 | |
| 72 | 63 | putStr "mkTup8: "
|
| 73 | - print $ mkTup8 == (101, 102, 103, 104, 105, 106, 107, 108)
|
|
| 74 | 64 | print mkTup8
|
| 75 | 65 | |
| 76 | 66 | putStr "mkTup9: "
|
| 77 | - print $ mkTup9 == (101, 102, 103, 104, 105, 106, 107, 108, 109)
|
|
| 78 | 67 | print mkTup9
|
| 79 | 68 | |
| 80 | 69 | putStr "mkTup10: "
|
| 81 | - print $ mkTup10 == (101, 102, 103, 104, 105, 106, 107, 108, 109, 110)
|
|
| 82 | 70 | print mkTup10
|
| 83 | 71 |
| 1 | -mkTup2: True
|
|
| 2 | -(101,102)
|
|
| 3 | -mkTup3: True
|
|
| 4 | -(101,102,103)
|
|
| 5 | -mkTup4: True
|
|
| 6 | -(101,102,103,104)
|
|
| 7 | -mkTup5: True
|
|
| 8 | -(101,102,103,104,105)
|
|
| 9 | -mkTup6: True
|
|
| 10 | -(101,102,103,104,105,106)
|
|
| 11 | -mkTup7: True
|
|
| 12 | -(101,102,103,104,105,106,107)
|
|
| 13 | -mkTup8: True
|
|
| 14 | -(101,102,103,104,105,106,107,108)
|
|
| 15 | -mkTup9: True
|
|
| 16 | -(101,102,103,104,105,106,107,108,109)
|
|
| 17 | -mkTup10: True
|
|
| 18 | -(101,102,103,104,105,106,107,108,109,110) |
|
| 1 | +mkTup2: (101,102)
|
|
| 2 | +mkTup3: (101,102,103)
|
|
| 3 | +mkTup4: (101,102,103,104)
|
|
| 4 | +mkTup5: (101,102,103,104,105)
|
|
| 5 | +mkTup6: (101,102,103,104,105,106)
|
|
| 6 | +mkTup7: (101,102,103,104,105,106,107)
|
|
| 7 | +mkTup8: (101,102,103,104,105,106,107,108)
|
|
| 8 | +mkTup9: (101,102,103,104,105,106,107,108,109)
|
|
| 9 | +mkTup10: (101,102,103,104,105,106,107,108,109,110) |