From d0758346441bb5c8c884b5649ff34abc73109204 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 17 Sep 2008 17:12:33 +0000
Subject: [PATCH] Generalise the type of onException Now it matches
 Control.Exception's type

---
 Distribution/Compat/Exception.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Distribution/Compat/Exception.hs b/Distribution/Compat/Exception.hs
index d275a5fa21..fe5600966a 100644
--- a/Distribution/Compat/Exception.hs
+++ b/Distribution/Compat/Exception.hs
@@ -16,7 +16,7 @@ module Distribution.Compat.Exception
 import System.Exit
 import qualified Control.Exception as Exception
 
-onException :: IO a -> IO () -> IO a
+onException :: IO a -> IO b -> IO a
 #ifdef NEW_EXCEPTION
 onException = Exception.onException
 #else
-- 
GitLab