Use LT instead as nodeinfo placeholder for brevity.

1 files changed, 2 insertions, 1 deletions

diff --git a/monkeypatch.hs b/monkeypatch.hs
index 121809a..4942859 100644
--- a/monkeypatch.hs
+++ b/monkeypatch.hs
@@ -276,7 +276,7 @@ transpile o fname incs (CTranslUnit edecls _) = do
                 let bdy = concat $ take 1 $ dropWhile null $ map body $ symbolSource sym
                 if oPrettyTree o
                     then do printHeader
-                            forM_ bdy $ \d -> putStrLn $ ppShow $ everywhere (mkT eraseNodeInfo) $ d
+                            forM_ bdy $ \d -> putStrLn $ ppShow $ fmap (const LT) $ everywhere (mkT eraseNodeInfo) $ d
                     else do
                         let mhask = do
                                 xs <- sequence $ map grokStatement bdy
@@ -1195,6 +1195,7 @@ linker cargs fname = do
 eraseNodeInfo :: NodeInfo -> NodeInfo
 eraseNodeInfo _ = OnlyPos p (p,0) -- undefNode value doesn't ppShow well.
  where
+    -- p = nopos -- This is not ppShow friendly.
     p = position 0 "" 0 0 Nothing