testsuite/tests/ghci.debugger/scripts/print021.hs


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

-- Test that we can recover unicode DataCons in :print
data T
  = À          -- latin
  | Α          -- greek
  | Ⴀ         -- georgian
  | Ϣ          -- coptic
  | А          -- cyrillic
  | Ա          -- armenian
  deriving Show

test =
  [ À          -- latin
  , Α          -- greek
  , Ⴀ         -- georgian
  , Ϣ          -- coptic
  , А          -- cyrillic
  , Ա          -- armenian
  ]