msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

better log output

Browse Source
This commit is contained in:
crumbtoo
2023-11-23 01:54:45 -07:00
parent f4d88e9478
commit 5e7192fd6e
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/TIM.hs
View File

@@ -13,7 +13,7 @@ import Control.Monad (guard)
import Data.Foldable (traverse_, find) import Data.Foldable (traverse_, find)
import Data.Function ((&)) import Data.Function ((&))
import System.IO (Handle, hPutStr) import System.IO (Handle, hPutStr)
import Text.Printf (printf) import Text.Printf (printf, hPrintf)
import Data.Proxy (Proxy(..)) import Data.Proxy (Proxy(..))
import Lens.Micro import Lens.Micro
import Lens.Micro.TH import Lens.Micro.TH
@@ -437,6 +437,15 @@ dbgProg p = do
hdbgProg :: Program -> Handle -> IO (Node, Stats) hdbgProg :: Program -> Handle -> IO (Node, Stats)
hdbgProg p hio = do hdbgProg p hio = do
hPrintf hio "==== Stats ====\n\
\result : %s\n\
\allocations : %4d\n\
\reductions : %4d\n\
\dereferences : %4d\n\n"
(show res)
(sts ^. stsAllocations)
(sts ^. stsReductions)
(sts ^. stsDereferences)
(hPutStr hio . prettyShow) `traverse_` p' (hPutStr hio . prettyShow) `traverse_` p'
pure (res, sts) pure (res, sts)
where where