blob: 2e5acc9f7985f649767b5c9b610c30b868d41e32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# OPTIONS_GHC -O0 #-}
module T12076a(f) where
import GHC.Exts
{-# NOINLINE z #-}
z = ()
f :: () -> ()
f _ = let x = lazy z
in g x x
{-# NOINLINE g #-}
g :: () -> () -> ()
g _ _ = ()
|