From 75136a5c9de4712777d4800c01b16a33d9e5c839 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 2 Feb 2009 15:28:24 +0100 Subject: [PATCH] Print the final session after the output. --- Translator.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Translator.hs b/Translator.hs index bdf6688..40362cd 100644 --- a/Translator.hs +++ b/Translator.hs @@ -48,9 +48,10 @@ main = let binds = Maybe.mapMaybe (findBind (cm_binds core)) ["shalf_adder"] liftIO $ printBinds binds -- Turn bind into VHDL - let vhdl = State.evalState (mkVHDL binds) (VHDLSession 0 []) + let (vhdl, sess) = State.runState (mkVHDL binds) (VHDLSession 0 []) liftIO $ putStr $ render $ ForSyDe.Backend.Ppr.ppr vhdl liftIO $ ForSyDe.Backend.VHDL.FileIO.writeDesignFile vhdl "../vhdl/vhdl/output.vhdl" + liftIO $ putStr $ "\n\nFinal session:\n" ++ show sess return () where -- Turns the given bind into VHDL -- 2.30.2