Ticket #6098: bindings-bug.hs

File bindings-bug.hs, 188 bytes (added by phercek, 2 years ago)

the example file

Line 
1newtype TWrapper = Wrapper
2  { mItems :: [Int]
3  } deriving Show
4
5main = print $ test $ Wrapper [1]
6
7test Wrapper{ mItems = allItems } = id $
8  let headItem = head allItems in
9  headItem
10