From f24749b13bed969ce8c5d4c90ebd51c4ed86df50 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 27 Mar 2014 15:45:51 +0900
Subject: [PATCH] close import.

---
 Language/Haskell/GhcMod/GHCChoice.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Language/Haskell/GhcMod/GHCChoice.hs b/Language/Haskell/GhcMod/GHCChoice.hs
index 5747e50..99904f0 100644
--- a/Language/Haskell/GhcMod/GHCChoice.hs
+++ b/Language/Haskell/GhcMod/GHCChoice.hs
@@ -2,21 +2,21 @@
 
 module Language.Haskell.GhcMod.GHCChoice where
 
-import Control.Exception
+import Control.Exception (IOException)
 import CoreMonad (liftIO)
-import Exception
-import GHC
+import qualified Exception as GE
+import GHC (Ghc, GhcMonad)
 
 ----------------------------------------------------------------
 
 -- | Try the left 'Ghc' action. If 'IOException' occurs, try
 --   the right 'Ghc' action.
 (||>) :: Ghc a -> Ghc a -> Ghc a
-x ||> y = x `gcatch` (\(_ :: IOException) -> y)
+x ||> y = x `GE.gcatch` (\(_ :: IOException) -> y)
 
 -- | Go to the next 'Ghc' monad by throwing 'AltGhcgoNext'.
 goNext :: Ghc a
-goNext = liftIO . throwIO $ userError "goNext"
+goNext = liftIO . GE.throwIO $ userError "goNext"
 
 -- | Run any one 'Ghc' monad.
 runAnyOne :: [Ghc a] -> Ghc a
@@ -27,4 +27,4 @@ runAnyOne = foldr (||>) goNext
 -- | Try the left 'GhcMonad' action. If 'IOException' occurs, try
 --   the right 'GhcMonad' action.
 (|||>) :: GhcMonad m => m a -> m a -> m a
-x |||> y = x `gcatch` (\(_ :: IOException) -> y)
+x |||> y = x `GE.gcatch` (\(_ :: IOException) -> y)