diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-09-26 22:56:13 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-09-26 22:56:13 -0700 |
| commit | af8fb5e792aad81a0636948268cedb1a0dae529f (patch) | |
| tree | be382bccc6dd02ee5ce3a120e2b5929cc00b9a07 | |
| parent | 6532950b26a7dfc61818c73376a14d90ba79a631 (diff) | |
| download | pandoc-af8fb5e792aad81a0636948268cedb1a0dae529f.tar.gz | |
Removed unneeded imports.
| -rw-r--r-- | src/Text/Pandoc/MediaBag.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/MediaBag.hs b/src/Text/Pandoc/MediaBag.hs index 220ea7df9..e875d950e 100644 --- a/src/Text/Pandoc/MediaBag.hs +++ b/src/Text/Pandoc/MediaBag.hs @@ -41,7 +41,6 @@ import qualified System.FilePath.Posix as Posix import System.Directory (createDirectoryIfMissing) import qualified Data.Map as M import qualified Data.ByteString.Lazy as BL -import Data.List (intercalate) import Data.Monoid (Monoid) import Control.Monad (when) import Text.Pandoc.MIME (MimeType, getMimeTypeDef) diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 50bc31a9e..9bea0a65e 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -111,7 +111,7 @@ import Network.URI ( escapeURIString, isURI, nonStrictRelativeTo, unEscapeString, parseURIReference, isAllowedInURI ) import qualified Data.Set as Set import System.Directory -import System.FilePath (joinPath, splitDirectories, isPathSeparator) +import System.FilePath (splitDirectories, isPathSeparator) import qualified System.FilePath.Posix as Posix import Text.Pandoc.MIME (MimeType, getMimeType) import System.FilePath ( (</>), takeExtension, dropExtension) @@ -833,7 +833,7 @@ readDefaultDataFile fname = case lookup (makeCanonical fname) dataFiles of Nothing -> err 97 $ "Could not find data file " ++ fname Just contents -> return contents - where makeCanonical = joinPath . transformPathParts . splitDirectories + where makeCanonical = Posix.joinPath . transformPathParts . splitDirectories transformPathParts = reverse . foldl go [] go as "." = as go (_:as) ".." = as |