b49fe41 · typeable/wai

git.iko.soy/typeable/wai

enumerator 0.4.6

commitb49fe41dd427d0ec6c9cc289f709b93716a046d9 authorMichael Snoyman <michael@snoyman.com> dateThu 3 Feb 2011, 07:27 (16 years ago) parent7cb4492

2 files changed+1−12

unifiedsplit

Network/Wai/Handler/DevelServer.hs−11

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

2525

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

2727import System.Time (ClockTime)

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

29−import Data.Enumerator (Iteratee)

30−import Data.ByteString (ByteString)

3128

3229type FunctionName = String

3330

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

161158

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

163160

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−

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

173162theapp modu func =

174163 runInterpreter $ do

wai-handler-devel.cabal+1−1

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

3030 , hint >= 0.3.2.3 && < 0.4

3131 , text >= 0.7 && < 0.12

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

33− , enumerator >= 0.4.5 && < 0.5

33+ , enumerator >= 0.4.6 && < 0.5

3434 , transformers >= 0.2.2 && < 0.3

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

3636 Network.Wai.Application.Devel