Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / simplCore / should_compile / T4201.hs
1 module Eta where
2
3 data T = MkT
4 newtype Foo = Foo T
5
6 lift :: Foo -> T
7 lift (Foo x) = bof x
8 -- The point is that we expect
9 -- lift = bof |> co
10 -- not
11 -- lift = \fx -> bof (fx |> co)
12
13 bof :: T -> T
14 {-# NOINLINE bof #-}
15 bof MkT = MkT