testsuite/tests/profiling/should_run/dynamic-prof2.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE BangPatterns #-}
module Main where

import GHC.Profiling
import Control.Exception

main = do
  let !t = [0..1000000]
  evaluate (length t)
  requestHeapCensus
  evaluate (length t)