1. Bryan O'Sullivan
  2. configurator


Bryan O'Sullivan  committed b43a140

Fix builds with GHC 7.6

  • Participants
  • Parent commits e7e644e
  • Branches default

Comments (0)

Files changed (1)

File Data/Configurator.hs

View file
 import Control.Applicative ((<$>))
 import Control.Concurrent (ThreadId, forkIO, threadDelay)
-import Control.Exception (SomeException, catch, evaluate, handle, throwIO, try)
+import Control.Exception (SomeException, evaluate, handle, throwIO, try)
 import Control.Monad (foldM, forM, forM_, join, when)
 import Data.Configurator.Instances ()
 import Data.Configurator.Parser (interp, topLevel)
 import Data.IORef (atomicModifyIORef, newIORef, readIORef)
 import Data.Maybe (fromMaybe, isJust)
 import Data.Monoid (mconcat)
+import Data.Ratio (denominator, numerator)
 import Data.Text.Lazy.Builder (fromString, fromText, toLazyText)
 import Data.Text.Lazy.Builder.Int (decimal)
 import Data.Text.Lazy.Builder.RealFloat (realFloat)
-import Data.Ratio (denominator, numerator)
-import Prelude hiding (catch, lookup)
+import Prelude hiding (lookup)
 import System.Environment (getEnv)
 import System.IO (hPutStrLn, stderr)
 import System.IO.Unsafe (unsafePerformIO)
 import System.Posix.Types (EpochTime, FileOffset)
 import System.PosixCompat.Files (fileSize, getFileStatus, modificationTime)
+import qualified Control.Exception as E
 import qualified Data.Attoparsec.Text as T
 import qualified Data.Attoparsec.Text.Lazy as L
 import qualified Data.HashMap.Lazy as H
         meta' <- getMeta files
         if meta' == meta
           then loop meta
-          else (reloadBase cfg `catch` onError) >> loop meta'
+          else (reloadBase cfg `E.catch` onError) >> loop meta'
   tid <- forkIO $ loop =<< getMeta files
   return (Config "" cfg, tid)
 -- | Save both a file's size and its last modification date, so we
 -- have a better chance of detecting a modification on a crappy
 -- filesystem with timestamp resolution of 1 second or worse.
                                    _          -> return []
     Right s -> do
             p <- evaluate (L.eitherResult $ L.parse topLevel s)
-                 `catch` \(e::ConfigError) ->
+                 `E.catch` \(e::ConfigError) ->
                  throwIO $ case e of
                              ParseError _ err -> ParseError (worth path) err
             case p of
       where check n v nvs = case H.lookup n m of
                               Nothing -> (n,v):nvs
                               _       -> nvs
-  notify p n v a = a n v `catch` maybe report onError cfgAuto
+  notify p n v a = a n v `E.catch` maybe report onError cfgAuto
     where report e = hPutStrLn stderr $
                      "*** a ChangeHandler threw an exception for " ++
                      show (p,n) ++ ": " ++ show e