The tighttp package

[Tags: bsd3, library]

Example programs

examples/get.hs

This is simple client. This send GET request and show page source. Run as following.

 runhaskell get.hs hackage.haskell.org /packages/

extensions

 import "monads-tf" Control.Monad.Trans
 import Data.Pipe
 import System.Environment
 import Network
 import Network.TigHTTP.Client
 import Network.TigHTTP.Types

 import qualified Data.ByteString as BS

 main :: IO ()
 main = do
 	addr : pth : _ <- getArgs
 	h <- connectTo addr $ PortNumber 80
 	r <- request h $ get addr 80 pth
 	_ <- runPipe $ responseBody r =$= finally printP (putStrLn "")
 	return ()

 printP :: MonadIO m => Pipe BS.ByteString () m ()
 printP = await >>= maybe (return ()) (\s -> liftIO (BS.putStr s) >> printP)

examples/server.hs

This is simple server. This recieve client's request. And send command line arguments as response. Run as following.

 runhaskell server.hs Hello World I Am TigHTTP
 import Control.Monad
 import Control.Concurrent
 import Data.Pipe
 import System.IO
 import System.Environment
 import Network
 import Network.TigHTTP.Server
 import Network.TigHTTP.Types

 import qualified Data.ByteString.Char8 as BSC
 import qualified Data.ByteString.Lazy as LBS

 main :: IO ()
 main = do
 	as <- getArgs
 	soc <- listenOn $ PortNumber 80
 	forever $ do
 		(h, _, _) <- accept soc
 		void . forkIO $ do
 			req <- getRequest h
 			print $ requestPath req
 			putResponse h
				. (response :: LBS.ByteString -> Response Pipe Handle)
				. LBS.fromChunks $ map BSC.pack as

If you want more examples. Please see examples directory.

Properties

Versions0.0.0.0, 0.0.0.1, 0.0.0.2, 0.0.0.3, 0.0.0.4, 0.0.0.5, 0.0.0.6, 0.0.0.7, 0.0.0.8 (info)
Change logNone available
Dependenciesbase (==4.*), bytestring (==0.10.*), handle-like (==0.1.*), monads-tf (==0.1.*), old-locale (==1.0.*), papillon (==0.1.*), simple-pipe (==0.0.0.*), time (==1.4.*)
LicenseBSD3
AuthorYoshikuni Jujo <PAF01143@nifty.ne.jp>
MaintainerYoshikuni Jujo <PAF01143@nifty.ne.jp>
StabilityExperimental
CategoryNetwork
Home pagehttps://github.com/YoshikuniJujo/tighttp/wiki
Source repositoryhead: git clone git://github.com/YoshikuniJujo/tighttp.git
this: git clone git://github.com/YoshikuniJujo/tighttp.git(tag tighttp-0.0.0.8)
UploadedThu Dec 18 01:00:03 UTC 2014 by YoshikuniJujo
DistributionsNixOS:0.0.0.8
Downloads750 total (70 in last 30 days)
StatusDocs uploaded by user
Build status unknown [no reports yet]

Modules

[Index]

Downloads

Maintainers' corner

For package maintainers and hackage trustees