97e55f3 · typeable/wai

Network/Wai/Handler/DevelServer.hs+2−1

compare with master

unifiedsplit

@@ -22,6 +22,7 @@ import Control.Concurrent (forkIO, threadDelay)

22import System.Directory (getModificationTime)

23import qualified Network.Wai.Handler.Warp as Warp

24import Network.Wai.Application.Devel

25+import Network.Wai.Middleware.Debug (debug)

25

26

26import Data.List (nub, group, sort)

27import Data.List (nub, group, sort)

27import System.Time (ClockTime)

28import System.Time (ClockTime)

@@ -124,7 +125,7 @@ reload modu func extras prevError ah = do

124 let files = map head $ group $ sort $ concat $ files' : files''

125 let files = map head $ group $ sort $ concat $ files' : files''

125 putStrLn "Interpreting success, new app loaded"

126 putStrLn "Interpreting success, new app loaded"

126 E.handle onInitErr $ do

127 E.handle onInitErr $ do

127− swapApp app ah

128+ swapApp (\f -> app $ f . debug) ah

128 times <- getTimes files

129 times <- getTimes files

129 return (Nothing, zip files times)

130 return (Nothing, zip files times)

130 where

131 where

Testapp.hsnew file+9

@@ -0,0 +1,9 @@

1+{-# LANGUAGE OverloadedStrings #-}

2+module Testapp where

3+

4+import Network.Wai

5+import Data.ByteString.Lazy.Char8 ()

6+

7+testapp' _ = return $ responseLBS status200 [("Content-Type", "text/html")] "test"

8+

9+testapp f = f testapp'

testapp.hsnew file+3

@@ -0,0 +1,3 @@

1+import Network.Wai.Handler.DevelServer (runQuit)

2+

3+main = runQuit 3000 "Testapp" "testapp" (const $ return [])

wai-handler-devel.cabal+1

@@ -23,6 +23,7 @@ Source-repository head

23Library

24 Build-Depends: base >= 4 && < 5

25 , wai >= 0.3 && < 0.4

26+ , wai-extra >= 0.3 && < 0.4

26 , warp >= 0.3 && < 0.4

27 , warp >= 0.3 && < 0.4

27 , directory >= 1.0 && < 1.2

28 , directory >= 1.0 && < 1.2

28 , network >= 2.2 && < 2.4

29 , network >= 2.2 && < 2.4