git.iko.soy/typeable/wai
on master help sign in
derive show
fbe2de8Greg Weber
Network/Wai.hs+2−2
compare with master
unifiedsplit
@@ -95,7 +95,7 @@ data Request = Request
95 -- | Parsed query string information
95 -- | Parsed query string information
96 , queryString :: H.Query
96 , queryString :: H.Query
97 }
97 }
98− deriving Typeable
98+ deriving (Show, Typeable)
99
99
100data Response
100data Response
101 = ResponseFile H.Status H.ResponseHeaders FilePath (Maybe FilePart)
101 = ResponseFile H.Status H.ResponseHeaders FilePath (Maybe FilePart)
@@ -106,7 +106,7 @@ data Response
106data FilePart = FilePart
106data FilePart = FilePart
107 { filePartOffset :: Integer
107 { filePartOffset :: Integer
108 , filePartByteCount :: Integer
108 , filePartByteCount :: Integer
109− }
109+ } deriving Show
110
110
111type ResponseEnumerator a =
111type ResponseEnumerator a =
112 (H.Status -> H.ResponseHeaders -> Iteratee Builder IO a) -> IO a
112 (H.Status -> H.ResponseHeaders -> Iteratee Builder IO a) -> IO a