@@ -30,7 +30,10 @@ import Data.Version (showVersion)
30import qualified Data.Set as S
30import qualified Data.Set as S
32import Control.Applicative
32import Control.Applicative
33−import Control.Monad.Except
33+import Control.Monad
34+import Control.Monad.Error.Class
35+import Control.Monad.Trans.Except
36+import Control.Monad.IO.Class
35import System.FilePath (takeFileName, takeDirectory)
38import System.FilePath (takeFileName, takeDirectory)
36import System.Exit (exitFailure)
39import System.Exit (exitFailure)
@@ -599,4 +602,4 @@ main = do
599 footerInfo = footer $ "psc-bundle " ++ showVersion Paths.version
602 footerInfo = footer $ "psc-bundle " ++ showVersion Paths.version
601 version :: Parser (a -> a)
604 version :: Parser (a -> a)
602− version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden
605+ version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden