@@ -3,7 +3,7 @@ module Network.Wai.Handler.Webkit (run) where
4import Network.Wai (Application)
4import Network.Wai (Application)
5import qualified Network.Wai.Handler.SimpleServer as S
5import qualified Network.Wai.Handler.SimpleServer as S
6−import Control.Concurrent (forkOS, myThreadId, killThread)
6+import Control.Concurrent (forkOS)
7import Control.Concurrent.MVar
7import Control.Concurrent.MVar
8import Foreign.C.String (CString, withCString)
8import Foreign.C.String (CString, withCString)
9import Control.Exception (finally)
9import Control.Exception (finally)