From 79887be9ef0d95a44e7fdad1a143aaca28947eb8 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Thu, 27 Jun 2013 21:45:51 -0400 Subject: Removed redundant imports. --- Presence/AdaptServer.hs | 1 - Presence/ConfigFiles.hs | 1 - Presence/GetHostByAddr.hs | 1 - Presence/XMPPServer.hs | 2 -- Presence/main.hs | 1 - 5 files changed, 6 deletions(-) diff --git a/Presence/AdaptServer.hs b/Presence/AdaptServer.hs index dd453ba9..e4940331 100644 --- a/Presence/AdaptServer.hs +++ b/Presence/AdaptServer.hs @@ -3,7 +3,6 @@ module AdaptServer where import Data.IORef -import Debug.Trace import Data.HList -- import Network.Socket (Socket) import qualified Data.ByteString.Lazy.Char8 as L diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs index 48049c08..6d36f4cd 100644 --- a/Presence/ConfigFiles.hs +++ b/Presence/ConfigFiles.hs @@ -10,7 +10,6 @@ import System.IO import System.IO.Error import Control.Exception import Control.Monad -import Todo import Control.DeepSeq import ByteStringOperators() -- For NFData instance diff --git a/Presence/GetHostByAddr.hs b/Presence/GetHostByAddr.hs index fd01108d..a451f088 100644 --- a/Presence/GetHostByAddr.hs +++ b/Presence/GetHostByAddr.hs @@ -14,7 +14,6 @@ import System.IO.Unsafe import System.IO.Error (ioeSetErrorString, mkIOError) import Network.Socket import GHC.IO.Exception -import Network.Socket.Internal throwNoSuchThingIfNull :: String -> String -> IO (Ptr a) -> IO (Ptr a) diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 892cc177..7ed16f6b 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs @@ -7,7 +7,6 @@ module XMPPServer where -- ( listenForXmppClients ) where import Data.Char (isSpace) -import Todo import Data.HList.TypeEqGeneric1() import Data.HList.TypeCastGeneric1() import ByteStringOperators @@ -47,7 +46,6 @@ import Text.PrettyPrint import Data.Maybe import Debug.Trace import Control.Arrow -import LocalPeerCred import Network.Socket import Data.String import Control.Monad.Trans.Maybe diff --git a/Presence/main.hs b/Presence/main.hs index 08943b08..74589a41 100644 --- a/Presence/main.hs +++ b/Presence/main.hs @@ -3,7 +3,6 @@ {-# LANGUAGE TypeFamilies #-} module Main where -import Debug.Trace import System.Directory import Control.Monad import System.Posix.Signals -- cgit v1.2.3