26 Aug
2013
26 Aug
'13
8:27 p.m.
Hello. I'm Yoshikuni Jujo. I want to correct ppr_dec of Language.Haskell.TH.Ppr. Now: ppr $ FunD (mkName "$$") [Clause [] (NormalB $ VarE $ mkName "x") []] => $$ = x but I want: ppr $ FunD (mkName "$$") [Clause [] (NormalB $ VarE $ mkName "x") []] => ($$) = x I'll send patch. -- module Language.Haskell.TH.Ppr ... isOp :: String -> Bool isOp = all (`elem` "!#$%&*+./<=>?@\\^|-~:") ppr_dec _ (FunD f cs) | isOp $ nameBase f = vcat $ map (\c -> parens (ppr f) <+> ppr c) cs | otherwise = vcat ... ... ppr_dec _ (SigD f t) | isOp $ nameBase f = parens (ppr f) <+> text "::" <+> ppr t | otherwise = ppr f ...