The latest version of xml-push is 0.0.0.18-0.
xml-push
Version 0.0.0.5 revision 0 uploaded by YoshikuniJujo.
Package meta
- Synopsis
- Push XML from/to client to/from server over XMPP or HTTP
- Description
examples/TestSimple.hs
extensions
ScopedTypeVariables
module TestSimple (testSimple) where import Control.Monad import Control.Concurrent import Data.Maybe import Data.Pipe import Data.Pipe.ByteString import System.IO import Text.XML.Pipe import Network.XmlPush import Network.XmlPush.Simple testSimple :: Handle -> IO () testSimple h = do (sp :: SimplePusher Handle) <- generate (One h) () void . forkIO . runPipe_ $ readFrom sp =$= convert (xmlString . (: [])) =$= toHandle stdout runPipe_ $ fromHandle stdin =$= xmlEvent =$= convert fromJust =$= xmlNode [] =$= writeTo sp
examples/simpleClient
import Network import TestSimple main :: IO () main = testSimple =<< connectTo "localhost" (PortNumber 54492)
examples/simpleServer
import Control.Monad import Control.Concurrent import Network import TestSimple main :: IO () main = forever . (void . forkIO . testSimple . fst3 =<<) . accept =<< listenOn (PortNumber 54492) fst3 :: (a, b, c) -> a fst3 (x, _, _) = x
- Author
- Yoshikuni Jujo <PAF01143@nifty.ne.jp>
- Bug reports
- n/a
- Category
- Network
- Copyright
- n/a
- Homepage
- https://github.com/YoshikuniJujo/xml-push/wiki
- Maintainer
- Yoshikuni Jujo <PAF01143@nifty.ne.jp>
- Package URL
- n/a
- Stability
- Experimenmtal