From 82b65199357b5d5b98d17f8fefdce24b3cb336a6 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sat, 19 Apr 2014 15:17:36 +0900
Subject: [PATCH] removing suppress stuff.

---
 Language/Haskell/GhcMod/Utils.hs | 42 +-------------------------------
 1 file changed, 1 insertion(+), 41 deletions(-)

diff --git a/Language/Haskell/GhcMod/Utils.hs b/Language/Haskell/GhcMod/Utils.hs
index cd9f0ba..00de5bc 100644
--- a/Language/Haskell/GhcMod/Utils.hs
+++ b/Language/Haskell/GhcMod/Utils.hs
@@ -1,41 +1 @@
-{-# LANGUAGE CPP #-}
-
-module Language.Haskell.GhcMod.Utils (
-    suppressStdout
-  , suppressStderr
-  ) where
-
-import Control.Exception (finally)
-import GHC.IO.Handle (hDuplicate, hDuplicateTo)
-import GHC.IO.Handle.Types (Handle)
-import System.IO (hClose, stdout, stderr)
-#ifdef WINDOWS
-import System.Directory (getTemporaryDirectory, removeFile)
-import System.IO (openTempFile)
-#else
-import System.IO (openFile, IOMode(..))
-#endif
-
-suppressStdout :: IO a -> IO a
-suppressStdout = suppress stdout
-
-suppressStderr :: IO a -> IO a
-suppressStderr = suppress stderr
-
-suppress :: GHC.IO.Handle.Types.Handle -> IO a -> IO a
-suppress std f = do
-#ifdef WINDOWS
-    tmpdir <- getTemporaryDirectory
-    (path, handle) <- openTempFile tmpdir "ghc-mod"
-#else
-    handle <- openFile "/dev/null" WriteMode
-#endif
-    dup <- hDuplicate std
-    hDuplicateTo handle std
-    hClose handle
-    f `finally` do
-        hDuplicateTo dup std
-#ifdef WINDOWS
-        removeFile path
-#endif
-
+module Language.Haskell.GhcMod.Utils where