From 4ef0e13c474de94419a938852c40ddc152a35376 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 2 Mar 2019 15:12:33 -0800
Subject: Shared: remove withTempDir.

---
 src/Text/Pandoc/Shared.hs | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index cf92a1fda..215fbfde1 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -87,8 +87,6 @@ module Text.Pandoc.Shared (
                      defaultBlocksSeparator,
                      -- * Safe read
                      safeRead,
-                     -- * Temp directory
-                     withTempDir,
                      -- * User data directory
                      defaultUserDataDirs,
                      -- * Version
@@ -119,7 +117,6 @@ import Paths_pandoc (version)
 import System.Directory
 import System.FilePath (isPathSeparator, splitDirectories)
 import qualified System.FilePath.Posix as Posix
-import System.IO.Temp
 import Text.HTML.TagSoup (RenderOptions (..), Tag (..), renderOptions,
                           renderTagsOptions)
 import Text.Pandoc.Builder (Blocks, Inlines, ToMetaValue (..))
@@ -898,20 +895,6 @@ safeRead s = case reads s of
                     | all isSpace x -> return d
                   _                 -> mzero
 
---
--- Temp directory
---
-
--- TODO remove in next major release; this is no longer
--- used in the code base.
-withTempDir :: String -> (FilePath -> IO a) -> IO a
-withTempDir =
-#ifdef _WINDOWS
-  withTempDirectory "."
-#else
-  withSystemTempDirectory
-#endif
-
 --
 -- User data directory
 --
-- 
cgit v1.2.3