testsuite/tests/stranal/should_compile/T13380b.hs


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

module Lib (m) where

import Control.Exception

throws :: IO ()
throws = throwIO (userError "What")
{-# NOINLINE throws #-}

bigDeadAction :: IO Int
bigDeadAction = return $ sum $ [0..999]
{-# NOINLINE bigDeadAction #-}

m :: IO Int
m = throws >> bigDeadAction