testsuite/tests/parser/unicode/T18225B.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE Arrows #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UnicodeSyntax #-}

module T18225B where

f :: (a, (b, c)) -> b
f (_, (x, _)) = x

test :: a -> a
test = proc x -> ⦇f⦈$([|x|])