Commit 77198bc9 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-11-20 16:24:54 by simonpj]

Avoid inlining to allow rule to fire
parent b2e2ef07
......@@ -12,6 +12,8 @@ module Main where
import IO
import PrelIOBase( unsafePerformIO )
{-# NOINLINE [0] sndSnd #-}
-- Dont inline till last, to give the rule a chance
sndSnd (a,(b,c)) = (a,c)
trace x y = unsafePerformIO (hPutStr stderr x >> hPutStr stderr "\n" >> return y)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment