Ticket #3772: U.hs

File U.hs, 110 bytes (added by rl, 6 years ago)
Line 
1module U where
2
3import T
4
5foo :: Int -> ()
6{-# NOINLINE foo #-}
7foo n = apply n (id :: [Double] -> [Double])
8