@@ -23,8 +23,8 @@ module Text.Pandoc.App (
2323 , applyFilters
2424 ) where
2525import qualified Control.Exception as E
26−import Control.Monad
27−import Control.Monad.Trans
26+import Control.Monad ( (>=>), when )
27+import Control.Monad.Trans ( MonadIO(..) )
2828import Control.Monad.Except (throwError)
2929import qualified Data.ByteString as BS
3030import qualified Data.ByteString.Lazy as BL
@@ -40,7 +40,7 @@ import qualified Data.Text.Encoding.Error as TSE
4040import Network.URI (URI (..), parseURI)
4141import System.Directory (doesDirectoryExist)
4242import System.Exit (exitSuccess)
43−import System.FilePath
43+import System.FilePath ( takeBaseName, takeExtension )
4444import System.IO (nativeNewline, stdout)
4545import qualified System.IO as IO (Newline (..))
4646import Text.Pandoc