Commit 0903280b authored by Iustin Pop's avatar Iustin Pop
Browse files

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.
parent ee0cb5b7
......@@ -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
......
......@@ -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
......
......@@ -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(..))
......
......@@ -30,7 +30,6 @@ module Ganeti.HTools.Simu
loadData
) where
import Control.Monad
import Text.Printf (printf)
import Ganeti.HTools.Utils
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment