From c693db0883239c1207e5a062480d47afea35fed0 Mon Sep 17 00:00:00 2001
From: Tim Vieira <tim.f.vieira@gmail.com>
Date: Sat, 1 Dec 2012 13:43:55 -0500
Subject: [PATCH] ENH: pprint no longer wraps variables in quotes

---
 src/Dyna/Analysis/NormalizeParse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.50.1