diff --git a/src/Snap/Http/Server.hs b/src/Snap/Http/Server.hs
index bb85c326..11837e7f 100644
--- a/src/Snap/Http/Server.hs
+++ b/src/Snap/Http/Server.hs
@@ -25,7 +25,6 @@ import           Control.Monad
 import           Control.Monad.CatchIO
 import           Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
-import           Data.Char
 import           Data.List
 import           Data.Maybe
 import           Prelude hiding (catch)
diff --git a/src/Snap/Internal/Http/Parser.hs b/src/Snap/Internal/Http/Parser.hs
index 4bc837a6..9cf20b17 100644
--- a/src/Snap/Internal/Http/Parser.hs
+++ b/src/Snap/Internal/Http/Parser.hs
@@ -18,7 +18,6 @@ module Snap.Internal.Http.Parser
 
 
 ------------------------------------------------------------------------------
-import           Control.Arrow (second)
 import           Control.Exception
 import           Control.Monad (liftM)
 import           Control.Monad.Trans
@@ -31,16 +30,11 @@ import           Data.ByteString.Internal (w2c)
 import qualified Data.ByteString.Lazy.Char8 as L
 import qualified Data.ByteString.Nums.Careless.Hex as Cvt
 import           Data.Char
-import           Data.List (foldl')
 import           Data.Int
-import           Data.Map (Map)
-import qualified Data.Map as Map
-import           Data.Maybe (catMaybes)
 import           Data.Typeable
 import           Prelude hiding (head, take, takeWhile)
 ----------------------------------------------------------------------------
 import           Snap.Internal.Http.Types
-import           Snap.Internal.Debug
 import           Snap.Internal.Iteratee.Debug
 import           Snap.Internal.Parsing hiding (pHeaders)
 import           Snap.Iteratee hiding (map, take)
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index 23f1e0e0..88924cda 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -13,7 +13,6 @@ import           Blaze.ByteString.Builder.Char8
 import           Blaze.ByteString.Builder.Enumerator
 import           Blaze.ByteString.Builder.HTTP
 import           Control.Arrow (first, second)
-import           Control.Concurrent (newMVar)
 import           Control.Monad.CatchIO hiding ( bracket
                                               , catches
                                               , finally
@@ -32,7 +31,6 @@ import qualified Data.ByteString.Nums.Careless.Int as Cvt
 import           Data.Int
 import           Data.IORef
 import           Data.List (foldl')
-import           Data.Map (Map)
 import qualified Data.Map as Map
 import           Data.Maybe (catMaybes, fromJust, fromMaybe)
 import           Data.Monoid
@@ -42,7 +40,6 @@ import           Data.Version
 import           GHC.Conc
 import           Network.Socket (withSocketsDo)
 import           Prelude hiding (catch)
-import           System.IO
 import           System.PosixCompat.Files hiding (setFileSize)
 import           System.Posix.Types (FileOffset)
 import           System.Locale
diff --git a/src/Snap/Internal/Http/Server/HttpPort.hs b/src/Snap/Internal/Http/Server/HttpPort.hs
index 4297b6ee..3ca858e5 100644
--- a/src/Snap/Internal/Http/Server/HttpPort.hs
+++ b/src/Snap/Internal/Http/Server/HttpPort.hs
@@ -13,8 +13,6 @@ module Snap.Internal.Http.Server.HttpPort
 
 ------------------------------------------------------------------------------
 import           Data.ByteString (ByteString)
-import qualified Data.ByteString as B
-import           Data.ByteString.Internal (w2c)
 import           Foreign
 import           Foreign.C
 import           Network.Socket hiding (recv, send)
diff --git a/src/Snap/Internal/Http/Server/TLS.hs b/src/Snap/Internal/Http/Server/TLS.hs
index 61914c57..69a9da09 100644
--- a/src/Snap/Internal/Http/Server/TLS.hs
+++ b/src/Snap/Internal/Http/Server/TLS.hs
@@ -24,7 +24,6 @@ import           Data.ByteString.Char8 (ByteString)
 import           Data.Dynamic
 import           Foreign.C
 
-import           Snap.Internal.Debug
 import           Snap.Internal.Http.Server.Backend
 
 #ifdef OPENSSL