aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-09-26 22:56:13 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-09-26 22:56:13 -0700
commitaf8fb5e792aad81a0636948268cedb1a0dae529f (patch)
treebe382bccc6dd02ee5ce3a120e2b5929cc00b9a07 /src/Text
parent6532950b26a7dfc61818c73376a14d90ba79a631 (diff)
downloadpandoc-af8fb5e792aad81a0636948268cedb1a0dae529f.tar.gz
Removed unneeded imports.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/MediaBag.hs1
-rw-r--r--src/Text/Pandoc/Shared.hs4
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