tighttp 0.0.0.9 → 0.0.0.10

raw patch · 6 files changed

+4/−16 lines, 6 filesdep ~basedep ~time

Dependency ranges changed: base, time

Files

src/Network/TigHTTP/Client.hs +0/−1
src/Network/TigHTTP/CookieTime.hs +1/−2
src/Network/TigHTTP/HttpTypes.hs +0/−3
src/Network/TigHTTP/Server.hs +0/−6
src/Network/TigHTTP/Token.hs +0/−1
tighttp.cabal +3/−3

src/Network/TigHTTP/Client.hs view

@@ -2,7 +2,6 @@  module Network.TigHTTP.Client (request, get, post) where -import Control.Applicative import Control.Arrow hiding ((+++)) import Control.Monad import "monads-tf" Control.Monad.State (lift, MonadTrans)

src/Network/TigHTTP/CookieTime.hs view

@@ -1,8 +1,7 @@ module Network.TigHTTP.CookieTime ( 	cookieExpiresTime, parseCookieExpiresTime) where -import Data.Time-import System.Locale+import Data.Time (UTCTime, formatTime, parseTime, defaultTimeLocale)  import qualified Data.ByteString.Char8 as BSC

src/Network/TigHTTP/HttpTypes.hs view

@@ -23,19 +23,16 @@ 	SetCookie(..), setCookie, ) where -import Control.Applicative import "monads-tf" Control.Monad.Trans import Data.Maybe import Data.List import Text.Read (readMaybe) import Data.Char--- import Data.List import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BSC import Data.Time import Data.Pipe import Data.Pipe.List-import System.Locale  import Network.TigHTTP.Papillon import Network.TigHTTP.CookieTime

src/Network/TigHTTP/Server.hs view

@@ -2,8 +2,6 @@  module Network.TigHTTP.Server ( 	getRequest, putResponse, response,---	ContentType(..), Type(..), Subtype(..), Parameter(..), Charset(..),---	Request(..), Get(..), Post(..), 	requestBody, 	requestPath, 	) where@@ -17,7 +15,6 @@ import Data.Time import Data.Pipe import Data.Pipe.List-import System.Locale  import Network.TigHTTP.HttpTypes import Data.HandleLike@@ -35,8 +32,6 @@ 		RequestPost {} -> return . httpContent cl $ 			requestBodyLength req 		_ -> return (return ())---	mapM_ (hlDebug cl "critical" . (`BS.append` "\n")) .---		catMaybes =<< showRequest cl req 	return $ putPostBody cl req r  response :: (@@ -56,7 +51,6 @@ 	case n of 		0 -> return () 		_ -> do	r <- lift $ hlGet h n---			"" <- lift $ hlGetLine h 			yield r 			getChunked h

src/Network/TigHTTP/Token.hs view

@@ -5,7 +5,6 @@ 	) where  import Data.Char (isAscii)-import Control.Applicative  isCtl, isSeparator, isTokenChar, isTextChar, isQdtextChar :: Char -> Bool isCtl = (`elem` (['\0' .. '\31'] ++ "\DEL"))

tighttp.cabal view

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		tighttp-version:	0.0.0.9+version:	0.0.0.10 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -113,7 +113,7 @@         Network.TigHTTP.Token, Network.TigHTTP.CookieTime     build-depends:         base == 4.*, bytestring == 0.10.*, handle-like == 0.1.*,-        old-locale == 1.0.*, time == 1.4.*, monads-tf == 0.1.*,+        old-locale == 1.0.*, time == 1.5.*, monads-tf == 0.1.*,         papillon == 0.1.*, simple-pipe == 0.0.0.*-    ghc-options:	-Wall+    ghc-options:	-Wall -fno-warn-tabs     extensions:		PatternGuards