renderPattern :: Pattern -> Doc
renderPattern (PatId a) = text . T.unpack $ getIdent a
renderPattern :: Pattern -> Doc
renderPattern (PatId a) = text . T.unpack $ getIdent a
renderPattern (PatId a) = text . T.unpack $ getIdent a