b49fe41 · typeable/wai

git.iko.soy/typeable/wai

on master help sign in

enumerator 0.4.6

b49fe41Michael Snoyman16 years ago

Network/Wai/Handler/DevelServer.hs−11

@@ -25,9 +25,6 @@ import Network.Wai.Application.Devel

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

27import System.Time (ClockTime)

28−import Data.Typeable (typeOf, Typeable1 (..), mkTyCon, mkTyConApp)

29−import Data.Enumerator (Iteratee)

30−import Data.ByteString (ByteString)

32type FunctionName = String

29type FunctionName = String

@@ -161,14 +158,6 @@ charsToLBS = encodeUtf8 . pack

161

158

162type Handler = (Application -> IO ()) -> IO ()

159type Handler = (Application -> IO ()) -> IO ()

163

160

164−instance Typeable1 (Iteratee ByteString IO) where

165− typeOf1 _ =

166− mkTyConApp i [c, io]

167− where

168− i = mkTyCon "Data.Enumerator.Iteratee"

169− c = typeOf (undefined :: ByteString)

170− io = typeOf1 (undefined :: IO ())

171−

172theapp :: String -> String -> IO (Either InterpreterError (Handler, [FilePath]))

161theapp :: String -> String -> IO (Either InterpreterError (Handler, [FilePath]))

173theapp modu func =

162theapp modu func =

174 runInterpreter $ do

163 runInterpreter $ do

wai-handler-devel.cabal+1−1

@@ -30,7 +30,7 @@ Library

30 , hint >= 0.3.2.3 && < 0.4

31 , text >= 0.7 && < 0.12

32 , old-time >= 1.0 && < 1.1

33− , enumerator >= 0.4.5 && < 0.5

33+ , enumerator >= 0.4.6 && < 0.5

34 , transformers >= 0.2.2 && < 0.3

35 Exposed-modules: Network.Wai.Handler.DevelServer

36 Network.Wai.Application.Devel