From aacea6a3294a7e27d60f49352cbe54139c76dce0 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 17 Mar 2019 14:34:16 -0400 Subject: Use LT instead as nodeinfo placeholder for brevity. --- monkeypatch.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3