@@ -95,7 +95,7 @@ data Request = Request
9595 -- | Parsed query string information
9696 , queryString :: H.Query
9797 }
98− deriving Typeable
98+ deriving (Show, Typeable)
9999
100100data Response
101101 = ResponseFile H.Status H.ResponseHeaders FilePath (Maybe FilePart)
@@ -106,7 +106,7 @@ data Response
106106data FilePart = FilePart
107107 { filePartOffset :: Integer
108108 , filePartByteCount :: Integer
109− }
109+ } deriving Show
110110
111111type ResponseEnumerator a =
112112 (H.Status -> H.ResponseHeaders -> Iteratee Builder IO a) -> IO a