From: Tim Vieira <tim.f.vieira@gmail.com>
Date: Sat, 1 Dec 2012 18:43:55 +0000 (-0500)
Subject: ENH: pprint no longer wraps variables in quotes
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=c693db0883239c1207e5a062480d47afea35fed0;p=dyna2

ENH: pprint no longer wraps variables in quotes
---

diff --git a/src/Dyna/Analysis/NormalizeParse.hs b/src/Dyna/Analysis/NormalizeParse.hs
index a7f131e..30a2425 100644
--- a/src/Dyna/Analysis/NormalizeParse.hs
+++ b/src/Dyna/Analysis/NormalizeParse.hs
@@ -310,6 +310,6 @@ pp ((Rule h a e result), AS {as_evals = evals, as_unifs = unifs}) =
     p (UTerm (TFunctor fn args)) = parens $ hcat $ punctuate (text " ") $ (pretty fn : (map p args))
     p (UTerm (TNumeric (Left x))) = text $ show x
     p (UTerm (TNumeric (Right x))) = text $ show x
-    p (UVar x) = text $ show x
+    p (UVar x) = pretty x
 
     q x = valign $ map (\(x,y)-> parens $ pretty x <+> p y) $ M.toList x