render :: Data a => R a
render = (showConstr . toConstr) `extQ` (renderShow :: R Text)
render :: Data a => R a
render = (showConstr . toConstr) `extQ` (renderShow :: R Text)
render = (showConstr . toConstr) `extQ` (renderShow :: R Text)