diff options
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 b72e346..37e52a6 100644 --- a/monkeypatch.hs +++ b/monkeypatch.hs | |||
@@ -49,6 +49,7 @@ import Text.PrettyPrint (Doc, doubleQuotes, empty, text, vcat, ($$), | |||
49 | (<+>)) | 49 | (<+>)) |
50 | import Text.Show.Pretty | 50 | import Text.Show.Pretty |
51 | 51 | ||
52 | import Sweeten | ||
52 | import GrepNested | 53 | import GrepNested |
53 | 54 | ||
54 | trace :: p -> a -> a | 55 | trace :: p -> a -> a |
@@ -631,7 +632,7 @@ transpile o fname incs (CTranslUnit edecls _) = do | |||
631 | return $ foldr applyComputation (Computation Map.empty Map.empty retUnit) xs | 632 | return $ foldr applyComputation (Computation Map.empty Map.empty retUnit) xs |
632 | case mhask of | 633 | case mhask of |
633 | Just hask -> do printHeader | 634 | Just hask -> do printHeader |
634 | mapM_ (putStrLn . (" "++)) $ lines $ HS.prettyPrint $ comp hask | 635 | mapM_ (putStrLn . (" "++)) $ lines $ HS.prettyPrint $ applyDoSyntax $ comp hask |
635 | Nothing -> forM_ (oSelectFunction o) $ \_ -> do | 636 | Nothing -> forM_ (oSelectFunction o) $ \_ -> do |
636 | printHeader | 637 | printHeader |
637 | forM_ bdy $ \d -> do | 638 | forM_ bdy $ \d -> do |