Make rgraph quasiquoter print the result.

This is useful for graphical packages like ggplot2.
tweag · Aug 14, 2015 · 9b46f0d · 9b46f0d
1 parent 2bbcb6c
commit 9b46f0d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/IHaskell/src/IHaskell/Display/InlineR.hs b/IHaskell/src/IHaskell/Display/InlineR.hs
@@ -32,15 +32,14 @@ import           Language.Haskell.TH.Quote
 import           System.Directory
 
 rprint :: QuasiQuoter
-rprint = QuasiQuoter { quoteExp = \s -> [| do result <- $(quoteExp r s)
-                                              H.print result |] }
+rprint = QuasiQuoter { quoteExp = \s -> [| do H.p $(quoteExp r s) |] }
 
 rgraph :: QuasiQuoter
 rgraph = QuasiQuoter { quoteExp = \s ->
     [| do idx <- findMaxIndex 0
           let fname = mkName idx
           _ <- [r| png(filename=fname_hs, width=480, height=480, bg="white"); |]
-          _ <- $(quoteExp r s)
+          H.p $(quoteExp r s)
           _ <- [r| dev.off() |]
           encoded <- Base64.encode <$> B.readFile fname
           display $ BH.img BH.! BH.src