git.iko.soy/typeable/pandoc
on master help sign in
Removed unneeded imports.
af8fb5eJohn MacFarlane
src/Text/Pandoc/MediaBag.hs−1
compare with master
unifiedsplit
@@ -41,7 +41,6 @@ import qualified System.FilePath.Posix as Posix
41import System.Directory (createDirectoryIfMissing)
41import System.Directory (createDirectoryIfMissing)
42import qualified Data.Map as M
42import qualified Data.Map as M
43import qualified Data.ByteString.Lazy as BL
43import qualified Data.ByteString.Lazy as BL
44−import Data.List (intercalate)
45import Data.Monoid (Monoid)
44import Data.Monoid (Monoid)
46import Control.Monad (when)
45import Control.Monad (when)
47import Text.Pandoc.MIME (MimeType, getMimeTypeDef)
46import Text.Pandoc.MIME (MimeType, getMimeTypeDef)
src/Text/Pandoc/Shared.hs+2−2
@@ -111,7 +111,7 @@ import Network.URI ( escapeURIString, isURI, nonStrictRelativeTo,
111 unEscapeString, parseURIReference, isAllowedInURI )
111 unEscapeString, parseURIReference, isAllowedInURI )
112import qualified Data.Set as Set
112import qualified Data.Set as Set
113import System.Directory
113import System.Directory
114−import System.FilePath (joinPath, splitDirectories, isPathSeparator)
114+import System.FilePath (splitDirectories, isPathSeparator)
115import qualified System.FilePath.Posix as Posix
115import qualified System.FilePath.Posix as Posix
116import Text.Pandoc.MIME (MimeType, getMimeType)
116import Text.Pandoc.MIME (MimeType, getMimeType)
117import System.FilePath ( (</>), takeExtension, dropExtension)
117import System.FilePath ( (</>), takeExtension, dropExtension)
@@ -833,7 +833,7 @@ readDefaultDataFile fname =
833 case lookup (makeCanonical fname) dataFiles of
833 case lookup (makeCanonical fname) dataFiles of
834 Nothing -> err 97 $ "Could not find data file " ++ fname
834 Nothing -> err 97 $ "Could not find data file " ++ fname
835 Just contents -> return contents
835 Just contents -> return contents
836− where makeCanonical = joinPath . transformPathParts . splitDirectories
836+ where makeCanonical = Posix.joinPath . transformPathParts . splitDirectories
837 transformPathParts = reverse . foldl go []
837 transformPathParts = reverse . foldl go []
838 go as "." = as
838 go as "." = as
839 go (_:as) ".." = as
839 go (_:as) ".." = as