testsuite/tests/parser/unicode/T18225A.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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

module T18225A where

(!) :: IO a -> b -> b
(!) _ = id

test1 :: Int
test1 = $⟦1⟧

test2 :: Int
test2 = ⟦2⟧!2