-- 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
]