Replaced throw to throwIO where type is IO

[Gregory Collins]

Bas van Dijk <v.dijk.bas at gmail.com> writes:

> throwIOs :: Int -> IO ()
> throwIOs 0 = return ()
> throwIOs n = throwIO DivideByZero `catch` \DivideByZero -> throws (n-1)

Should that perhaps be "throwIOs (n-1)" in the recursive case?

G
-- 
Gregory Collins <greg at gregorycollins.net>