From df3e6d2c306c7ed149c745c8b016b408f6592840 Mon Sep 17 00:00:00 2001
From: timv <tim.f.vieira@gmail.com>
Date: Wed, 12 Dec 2012 22:33:20 -0500
Subject: [PATCH] tweaks

---
 bin/prototype.py           | 4 ++--
 bin/stdlib.py              | 2 +-
 src/Dyna/Backend/Python.hs | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/prototype.py b/bin/prototype.py
index 5389a8d..4e97c45 100644
--- a/bin/prototype.py
+++ b/bin/prototype.py
@@ -217,7 +217,7 @@ def main(dynafile):
 
 html, body {margin:0; padding:0;}
 
-#dyna-source { position:absolute; height: 95%; width: 42%; top: 10px; left: 0%;  }
+#dyna-source { position:absolute; height: 95%; width: 42%; top: 10px; left: 0%; padding-left: 10px;  }
 #circuit-pane { position:absolute; width: 50%; top: 10px; left: 42%; padding-left: 5%; }
 #update-handler-pane { position: absolute; top: 10px; left: 100%; width: 45%; padding-right: 5%; }
 
@@ -227,7 +227,7 @@ html, body {margin:0; padding:0;}
 
 h2 { margin-top: 40px; }
 a { cursor: pointer; }
-svg { width: 90%; height: 90%; }
+svg { width: 95%; height: 97%; }
 body { background: black; color: white; }
 
 </style>
diff --git a/bin/stdlib.py b/bin/stdlib.py
index 4059f11..a72275e 100644
--- a/bin/stdlib.py
+++ b/bin/stdlib.py
@@ -36,7 +36,7 @@ def dump_charts(out=sys.stdout):
         print >> out, x
         print >> out, '====================================='
 
-        rows = [(pretty((x,idx)), idx, row, row[-1]) for idx, row in chart[x].data.items()]
+        rows = [(pretty((x,idx)), idx, row, pretty(row[-1])) for idx, row in chart[x].data.items()]
         rows.sort()
 
         for p, _, _, v in rows:
diff --git a/src/Dyna/Backend/Python.hs b/src/Dyna/Backend/Python.hs
index 61d22f8..bc990b0 100644
--- a/src/Dyna/Backend/Python.hs
+++ b/src/Dyna/Backend/Python.hs
@@ -107,7 +107,7 @@ tupledOrUnderscore vs = if length vs > 0 then parens ((sepBy "," $ map pretty vs
 
 pslice vs = brackets $
        sepBy "," (map (\x -> case x of (MF v) -> ":" ; (MB v) -> pretty v) vs)
-       <+> "," -- add a list comma to ensure getitem is always passed a tuple.
+       <> "," -- add a list comma to ensure getitem is always passed a tuple.
 
 filterBound = map (\(MF v) -> pretty v) . filter (not.isBound)
 
-- 
2.50.1