diff options
author | Joe Crayne <joe@jerkface.net> | 2019-03-17 14:34:16 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-03-17 14:34:16 -0400 |
commit | aacea6a3294a7e27d60f49352cbe54139c76dce0 (patch) | |
tree | e392c89c5c1f78e0fb2a02b0400753164d9b7dad /monkeypatch.hs | |
parent | fc1e52a9cf8ae7c5b79118f4ebbe68385bfd9be6 (diff) |
Use LT instead as nodeinfo placeholder for brevity.
Diffstat (limited to 'monkeypatch.hs')
-rw-r--r-- | monkeypatch.hs | 3 |
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 | |||
276 | let bdy = concat $ take 1 $ dropWhile null $ map body $ symbolSource sym | 276 | let bdy = concat $ take 1 $ dropWhile null $ map body $ symbolSource sym |
277 | if oPrettyTree o | 277 | if oPrettyTree o |
278 | then do printHeader | 278 | then do printHeader |
279 | forM_ bdy $ \d -> putStrLn $ ppShow $ everywhere (mkT eraseNodeInfo) $ d | 279 | forM_ bdy $ \d -> putStrLn $ ppShow $ fmap (const LT) $ everywhere (mkT eraseNodeInfo) $ d |
280 | else do | 280 | else do |
281 | let mhask = do | 281 | let mhask = do |
282 | xs <- sequence $ map grokStatement bdy | 282 | xs <- sequence $ map grokStatement bdy |
@@ -1195,6 +1195,7 @@ linker cargs fname = do | |||
1195 | eraseNodeInfo :: NodeInfo -> NodeInfo | 1195 | eraseNodeInfo :: NodeInfo -> NodeInfo |
1196 | eraseNodeInfo _ = OnlyPos p (p,0) -- undefNode value doesn't ppShow well. | 1196 | eraseNodeInfo _ = OnlyPos p (p,0) -- undefNode value doesn't ppShow well. |
1197 | where | 1197 | where |
1198 | -- p = nopos -- This is not ppShow friendly. | ||
1198 | p = position 0 "" 0 0 Nothing | 1199 | p = position 0 "" 0 0 Nothing |
1199 | 1200 | ||
1200 | 1201 | ||