e426fac273
Motivation: Hook scripts for nautilus or other file managers need to provide the user with feedback that a file is being downloaded. This commit was sponsored by THM Schoemaker.
36 lines
957 B
Haskell
36 lines
957 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 Control.Exception.Extensible as X (IOException)
|
|
|
|
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.PartialPrelude as X
|