Exception.throw -> Exception.throwIO in firstSuccessful

See http://www.haskell.org/pipermail/libraries/2012-September/018414.html for discussion.
singpolyma · Sep 18, 2012 · b11d43c · b11d43c
1 parent 6a13dd0
commit b11d43c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network.hs b/Network.hs
@@ -464,5 +464,5 @@ firstSuccessful :: [IO a] -> IO a
 firstSuccessful [] = error "firstSuccessful: empty list"
 firstSuccessful (p:ps) = catchIO p $ \e ->
     case ps of
-        [] -> Exception.throw e
+        [] -> Exception.throwIO e
         _  -> firstSuccessful ps