b3bb9a4 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Avoid some warnings when compiled wo/ embed_data_files flag.

b3bb9a4John MacFarlane9 years ago

src/Text/Pandoc/Class.hs+3−2

@@ -105,7 +105,6 @@ import Data.Time.Clock.POSIX ( utcTimeToPOSIXSeconds

105 , posixSecondsToUTCTime

106 , POSIXTime )

107import Data.Time.LocalTime (TimeZone, ZonedTime, utcToZonedTime, utc)

108−import qualified System.FilePath.Posix as Posix

109import Network.URI ( escapeURIString, nonStrictRelativeTo,

108import Network.URI ( escapeURIString, nonStrictRelativeTo,

110 unEscapeString, parseURIReference, isAllowedInURI,

109 unEscapeString, parseURIReference, isAllowedInURI,

111 parseURI, URI(..) )

110 parseURI, URI(..) )

@@ -119,7 +118,7 @@ import qualified System.Environment as IO (lookupEnv)

119import System.FilePath.Glob (match, compile)

118import System.FilePath.Glob (match, compile)

120import System.Directory (createDirectoryIfMissing, getDirectoryContents,

119import System.Directory (createDirectoryIfMissing, getDirectoryContents,

121 doesDirectoryExist)

120 doesDirectoryExist)

122−import System.FilePath ((</>), (<.>), takeDirectory, splitDirectories,

121+import System.FilePath ((</>), (<.>), takeDirectory,

123 takeExtension, dropExtension, isRelative, normalise)

122 takeExtension, dropExtension, isRelative, normalise)

124import qualified System.FilePath.Glob as IO (glob)

123import qualified System.FilePath.Glob as IO (glob)

125import qualified System.Directory as IO (getModificationTime)

124import qualified System.Directory as IO (getModificationTime)

@@ -141,6 +140,8 @@ import Text.Pandoc.Translations (Term(..), Translations(..), readTranslations)

141import qualified Debug.Trace

140import qualified Debug.Trace

142#ifdef EMBED_DATA_FILES

141#ifdef EMBED_DATA_FILES

143import Text.Pandoc.Data (dataFiles)

142import Text.Pandoc.Data (dataFiles)

143+import qualified System.FilePath.Posix as Posix

144+import System.Directory (splitDirectories)

144#else

145#else

145import qualified Paths_pandoc as Paths

146import qualified Paths_pandoc as Paths

146#endif

147#endif