@@ -15,17 +15,10 @@ import Network.Wai
1515import Data.Text.Lazy (pack)
1616import Data.Text.Lazy.Encoding (encodeUtf8)
1717import qualified Data.ByteString.Lazy.Char8 as L8
18−import Network
19− ( listenOn, accept, sClose, PortID(PortNumber), Socket
20− , withSocketsDo)
21−import Control.Exception (bracket, finally, Exception,
22− SomeException, toException)
18+import Control.Exception (Exception, SomeException, toException)
2319import qualified Control.Exception as E
24−import System.IO (Handle, hClose)
2520import Control.Concurrent (forkIO, threadDelay)
2621
27−import qualified Control.Concurrent.MVar as M
28−import qualified Control.Concurrent.Chan as C
2922import System.Directory (getModificationTime)
3023import qualified Network.Wai.Handler.Warp as Warp
3124import Network.Wai.Application.Devel