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
  ]