Consider I have:
data family P a
data instance P () = C1 (S.Set Int) | C2 -- and may be other constructors
let x = C1 (S.fromList mempty)
y = C2
Is it a way to write a function which is able to get from x
a String
"C1" and from y
- "C2"? Like:
cstrStringName :: ... -> String
cstrStringName = ...