toAppianList :: ExpressionList -> Text
toAppianList (ExpressionList l) = "{" <> intercalate "," (fmap tshow l) <> "}"
toAppianList :: ExpressionList -> Text
toAppianList (ExpressionList l) = "{" <> intercalate "," (fmap tshow l) <> "}"
toAppianList (ExpressionList l) = "{" <> intercalate "," (fmap tshow l) <> "}"