testsuite/tests/parser/should_compile/T10196.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module T10196 where

data X = Xᵦ | Xᵤ | Xᵩ | Xᵢ | Xᵪ | Xᵣ

f :: Int
f =
  let xᵦ = 1
      xᵤ = xᵦ
      xᵩ = xᵤ
      xᵢ = xᵩ
      xᵪ = xᵢ
      xᵣ = xᵪ
  in xᵣ

-- Modifier letters are also allowed in the middle of an identifier.
-- This should not be lexed as 2 separate identifiers.
xᵦx :: Int
xᵦx = 1