diff --git a/cabal-install/Distribution/Client/Install.hs b/cabal-install/Distribution/Client/Install.hs
index 903b01445965497bc53f6acf57dca96d5dfb61b6..6d7579505a7a7bfc02371bb2f4a9691bddba567b 100644
--- a/cabal-install/Distribution/Client/Install.hs
+++ b/cabal-install/Distribution/Client/Install.hs
@@ -34,8 +34,12 @@ import qualified Data.Set as S
 import Data.Maybe
          ( isJust, fromMaybe, maybeToList )
 import Control.Exception as Exception
-         ( Exception(fromException, toException), bracket, catches
+         ( Exception(toException), bracket, catches
          , Handler(Handler), handleJust, IOException, SomeException )
+#ifndef mingw32_HOST_OS
+import Control.Exception as Exception
+         ( Exception(fromException) )
+#endif
 import System.Exit
          ( ExitCode(..) )
 import Distribution.Compat.Exception