testdata/ambig.lc


1
2
3
4
5
6
7
8

{-# LANGUAGE NoImplicitPrelude #-}
import Internals

h f y z = x
  where
    -- x :: 
    x = (\(a, b) -> f a b) y