Skip to content
Permalink
Browse files

use a liberal import of Control.Exception to grab the new ErrorCall p…

…attern in base
  • Loading branch information...
gridaphobe committed Jul 16, 2015
1 parent 060f91e commit dce623487e684d4b369b9f55d62e9ac498f78a59
Showing with 1 addition and 2 deletions.
  1. +1 −1 Cabal/Distribution/Compat/Binary.hs
  2. +0 −1 Cabal/Distribution/Simple/Configure.hs
@@ -14,7 +14,7 @@ module Distribution.Compat.Binary
#endif
) where

import Control.Exception (ErrorCall(..), catch, evaluate)
import Control.Exception
import Data.ByteString.Lazy (ByteString)

#if __GLASGOW_HASKELL__ < 706
@@ -123,7 +123,6 @@ import qualified Distribution.Simple.HaskellSuite as HaskellSuite
-- Prefer the more generic Data.Traversable.mapM to Prelude.mapM
import Prelude hiding ( mapM )
import Control.Exception
( ErrorCall(..), Exception, evaluate, throw, throwIO, try )
import Control.Monad
( liftM, when, unless, foldM, filterM )
import Distribution.Compat.Binary ( decodeOrFailIO, encode )

0 comments on commit dce6234

Please sign in to comment.
You can’t perform that action at this time.