c784ef4586
Removed old extensible-exceptions, only needed for very old ghc. Made webdav use Utility.Exception, to work after some changes in DAV's exception handling. Removed Annex.Exception. Mostly this was trivial, but note that tryAnnex is replaced with tryNonAsync and catchAnnex replaced with catchNonAsync. In theory that could be a behavior change, since the former caught all exceptions, and the latter don't catch async exceptions. However, in practice, nothing in the Annex monad uses async exceptions. Grepping for throwTo and killThread only find stuff in the assistant, which does not seem related. Command.Add.undo is changed to accept a SomeException, and things that use it for rollback now catch non-async exceptions, rather than only IOExceptions.
36 lines
930 B
Haskell
36 lines
930 B
Haskell
{-# LANGUAGE PackageImports, CPP #-}
|
|
|
|
module Common (module X) where
|
|
|
|
import Control.Monad as X
|
|
import Control.Monad.IfElse as X
|
|
import Control.Applicative as X
|
|
import "mtl" Control.Monad.State.Strict as X (liftIO)
|
|
|
|
import Data.Maybe as X
|
|
import Data.List as X hiding (head, tail, init, last)
|
|
import Data.String.Utils as X hiding (join)
|
|
import Data.Monoid as X
|
|
|
|
import System.FilePath as X
|
|
import System.Directory as X
|
|
import System.IO as X hiding (FilePath)
|
|
#ifndef mingw32_HOST_OS
|
|
import System.Posix.IO as X
|
|
#endif
|
|
import System.Exit as X
|
|
|
|
import Utility.Misc as X
|
|
import Utility.Exception as X
|
|
import Utility.SafeCommand as X
|
|
import Utility.Process as X
|
|
import Utility.Path as X
|
|
import Utility.Directory as X
|
|
import Utility.Monad as X
|
|
import Utility.Data as X
|
|
import Utility.Applicative as X
|
|
import Utility.FileSystemEncoding as X
|
|
import Utility.PosixFiles as X
|
|
import Utility.Network as X
|
|
|
|
import Utility.PartialPrelude as X
|