git.iko.soy/typeable/wai
on master help sign in
Minor cleanups, still have an orphan instance
7cb4492Michael Snoyman
Network/Wai/Handler/DevelServer.hs+1−8
compare with master
unifiedsplit
@@ -15,17 +15,10 @@ import Network.Wai
15import Data.Text.Lazy (pack)
15import Data.Text.Lazy (pack)
16import Data.Text.Lazy.Encoding (encodeUtf8)
16import Data.Text.Lazy.Encoding (encodeUtf8)
17import qualified Data.ByteString.Lazy.Char8 as L8
17import 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)
23import qualified Control.Exception as E
19import qualified Control.Exception as E
24−import System.IO (Handle, hClose)
25import Control.Concurrent (forkIO, threadDelay)
20import Control.Concurrent (forkIO, threadDelay)
26
21
27−import qualified Control.Concurrent.MVar as M
28−import qualified Control.Concurrent.Chan as C
29import System.Directory (getModificationTime)
22import System.Directory (getModificationTime)
30import qualified Network.Wai.Handler.Warp as Warp
23import qualified Network.Wai.Handler.Warp as Warp
31import Network.Wai.Application.Devel
24import Network.Wai.Application.Devel
wai-handler-devel.hs−1
@@ -1,7 +1,6 @@
1{-# LANGUAGE DeriveDataTypeable #-}
1{-# LANGUAGE DeriveDataTypeable #-}
2import Network.Wai.Handler.DevelServer (runQuit)
2import Network.Wai.Handler.DevelServer (runQuit)
3import System.Console.CmdArgs
3import System.Console.CmdArgs
4−import Control.Concurrent (forkIO)
5
4
6data Devel = Devel
5data Devel = Devel
7 { port :: Int
6 { port :: Int