@@ -25,13 +25,13 @@ import Data.Maybe
2525import Control.Monad
2626import Control.Concurrent.MVar
2727
28−import System.Directory (getModificationTime)
2928import qualified Network.Wai.Handler.Warp as Warp
3029import Network.Wai.Application.Devel
3130import Network.Wai.Middleware.RequestLogger (logStdoutDev)
3231
3332import Data.List (nub, group, sort)
34−import System.Time (ClockTime)
33+
34+import Network.Wai.Handler.DevelServer.Compat
3535
3636type FunctionName = String
3737
@@ -98,8 +98,8 @@ startApp queue withApp = do
9898 void x = x >> return ()
9999-}
100100
101−getTimes :: [FilePath] -> IO [ClockTime]
102−getTimes = E.handle (constSE $ return []) . mapM getModificationTime
101+getTimes :: [FilePath] -> IO [TimeStamp]
102+getTimes = E.handle (constSE $ return []) . mapM getTimeStamp
103103
104104constSE :: x -> SomeException -> x
105105constSE = const
@@ -129,7 +129,7 @@ reload :: String -> String
129129 -> Maybe SomeException
130130 -> AppHolder
131131 -> [IO ()]
132− -> IO (Maybe SomeException, [(FilePath, ClockTime)])
132+ -> IO (Maybe SomeException, [(FilePath, TimeStamp)])
133133reload modu func extras prevError ah actions = do
134134 case prevError of
135135 Nothing -> putStrLn "Attempting to interpret your app..."