[print SPECIALIZE pragmas
John Meacham <john@repetae.net>**20060308021813] hunk ./FrontEnd/HsPretty.hs 264
+ppHsDecl prules@HsPragmaSpecialize {} = text "{-# SPECIALIZE ... #-}" --  ++ show (hsDeclString prules)) <+> text "forall" <+> vars <+> text "." $$ nest 4 rest $$ text "#-}" where
+--    vars = hsep (map ppHsTName $ hsDeclFreeVars prules)
+--    rest = ppHsExp (hsDeclLeftExpr prules) <+> text "=" <+> ppHsExp (hsDeclRightExpr prules)