Permalink
Browse files

postprocess diagrams after interpreting them

  • Loading branch information...
1 parent 50e874f commit e33b409b90285895fd5e4f206d23c2327b6010d1 Brent Yorgey committed Jan 25, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Diagrams/Builder.hs
@@ -141,7 +141,7 @@ interpretDiagram bopts m = do
d <- interpret dexp (as :: Diagram b v) `catchError` const (interpret dexp (as :: IO (Diagram b v)) >>= liftIO)
-- Finally, call renderDia.
- return $ renderDia (backendToken bopts) (bopts ^. backendOpts) d
+ return $ renderDia (backendToken bopts) (bopts ^. backendOpts) ((bopts ^. postProcess) d)
-- | Pretty-print an @InterpreterError@.
ppInterpError :: InterpreterError -> String

0 comments on commit e33b409

Please sign in to comment.