From 0903280b99d4b5a4a8e723876d99ca2117fe6c51 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 25 Feb 2010 13:34:29 +0100
Subject: [PATCH] Fix unused imports for ghc 6.12

GHC 6.12 has become more picky about unused imports, so we need to
remove/tighten some of them.
---
 Ganeti/HTools/Luxi.hs    | 2 --
 Ganeti/HTools/PeerMap.hs | 1 -
 Ganeti/HTools/Rapi.hs    | 2 --
 Ganeti/HTools/Simu.hs    | 1 -
 Ganeti/HTools/Utils.hs   | 1 -
 Ganeti/Luxi.hs           | 3 +--
 Ganeti/OpCodes.hs        | 3 +--
 hail.hs                  | 3 +--
 hbal.hs                  | 3 +--
 hscan.hs                 | 5 +++--
 hspace.hs                | 2 +-
 11 files changed, 8 insertions(+), 18 deletions(-)

diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs
index 4463683ba..fc7da138d 100644
--- a/Ganeti/HTools/Luxi.hs
+++ b/Ganeti/HTools/Luxi.hs
@@ -28,9 +28,7 @@ module Ganeti.HTools.Luxi
       loadData
     ) where
 
-import Data.List
 import qualified Control.Exception as E
-import Control.Monad
 import Text.JSON.Types
 
 import qualified Ganeti.Luxi as L
diff --git a/Ganeti/HTools/PeerMap.hs b/Ganeti/HTools/PeerMap.hs
index 27e993869..a101dd1c8 100644
--- a/Ganeti/HTools/PeerMap.hs
+++ b/Ganeti/HTools/PeerMap.hs
@@ -43,7 +43,6 @@ module Ganeti.HTools.PeerMap
 import Data.Maybe (fromMaybe)
 import Data.List
 import Data.Function
-import Data.Ord
 
 import Ganeti.HTools.Types
 
diff --git a/Ganeti/HTools/Rapi.hs b/Ganeti/HTools/Rapi.hs
index 623baeb5b..a0367b720 100644
--- a/Ganeti/HTools/Rapi.hs
+++ b/Ganeti/HTools/Rapi.hs
@@ -30,8 +30,6 @@ module Ganeti.HTools.Rapi
 
 import Network.Curl
 import Network.Curl.Types ()
-import Network.Curl.Code
-import Data.List
 import Control.Monad
 import Text.JSON (JSObject, JSValue, fromJSObject, decodeStrict)
 import Text.JSON.Types (JSValue(..))
diff --git a/Ganeti/HTools/Simu.hs b/Ganeti/HTools/Simu.hs
index d82216871..81c57682e 100644
--- a/Ganeti/HTools/Simu.hs
+++ b/Ganeti/HTools/Simu.hs
@@ -30,7 +30,6 @@ module Ganeti.HTools.Simu
       loadData
     ) where
 
-import Control.Monad
 import Text.Printf (printf)
 
 import Ganeti.HTools.Utils
diff --git a/Ganeti/HTools/Utils.hs b/Ganeti/HTools/Utils.hs
index 66498db70..e7f63b39e 100644
--- a/Ganeti/HTools/Utils.hs
+++ b/Ganeti/HTools/Utils.hs
@@ -42,7 +42,6 @@ module Ganeti.HTools.Utils
     ) where
 
 import Data.List
-import Control.Monad
 import qualified Text.JSON as J
 import Text.Printf (printf)
 
diff --git a/Ganeti/Luxi.hs b/Ganeti/Luxi.hs
index 0468a4df1..26ca7f6e9 100644
--- a/Ganeti/Luxi.hs
+++ b/Ganeti/Luxi.hs
@@ -33,10 +33,9 @@ module Ganeti.Luxi
     , queryJobsStatus
     ) where
 
-import Data.List
 import Data.IORef
 import Control.Monad
-import Text.JSON (JSObject, JSValue, toJSObject, encodeStrict, decodeStrict)
+import Text.JSON (encodeStrict, decodeStrict)
 import qualified Text.JSON as J
 import Text.JSON.Types
 import System.Timeout
diff --git a/Ganeti/OpCodes.hs b/Ganeti/OpCodes.hs
index ca2d8f431..53c97a16e 100644
--- a/Ganeti/OpCodes.hs
+++ b/Ganeti/OpCodes.hs
@@ -29,9 +29,8 @@ module Ganeti.OpCodes
     , opID
     ) where
 
-import Data.List
 import Control.Monad
-import Text.JSON (JSObject, JSValue, readJSON, showJSON, makeObj, JSON)
+import Text.JSON (readJSON, showJSON, makeObj, JSON)
 import qualified Text.JSON as J
 import Text.JSON.Types
 
diff --git a/hail.hs b/hail.hs
index 8af889b75..886b07101 100644
--- a/hail.hs
+++ b/hail.hs
@@ -26,10 +26,9 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 module Main (main) where
 
 import Data.List
-import Data.Function
 import Data.Maybe (isJust, fromJust)
 import Monad
-import System
+import System (exitWith, ExitCode(..))
 import System.IO
 import qualified System
 
diff --git a/hbal.hs b/hbal.hs
index 529a6431c..635fc3c29 100644
--- a/hbal.hs
+++ b/hbal.hs
@@ -28,10 +28,9 @@ module Main (main) where
 import Control.Concurrent (threadDelay)
 import Control.Exception (bracket)
 import Data.List
-import Data.Function
 import Data.Maybe (isJust, fromJust)
 import Monad
-import System
+import System (exitWith, ExitCode(..))
 import System.IO
 import qualified System
 
diff --git a/hscan.hs b/hscan.hs
index f36758b80..44985ae15 100644
--- a/hscan.hs
+++ b/hscan.hs
@@ -28,10 +28,11 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 module Main (main) where
 
 import Data.List
-import Data.Function
 import Data.Maybe (isJust, fromJust)
 import Monad
-import System
+#ifdef NO_CURL
+import System (exitWith, ExitCode(..))
+#endif
 import System.IO
 import System.FilePath
 import qualified System
diff --git a/hspace.hs b/hspace.hs
index d55762cbe..429288816 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -30,7 +30,7 @@ import Data.List
 import Data.Function
 import Data.Maybe (isJust, fromJust)
 import Monad
-import System
+import System (exitWith, ExitCode(..))
 import System.IO
 import qualified System
 
-- 
GitLab