Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / simplCore / should_run / T13429_2.hs
1 -- This one come from lehins, between comment:22 and 23 of #13429
2 module Main where
3
4 import T13429_2a as Array
5
6 arr2 :: Array D Int Int -> Array D Int Int
7 arr2 arr = Array.map (*2) arr
8
9 main :: IO ()
10 main = print $ arr2 $ makeArray 1600 id