Permalink
Browse files

1.2.2; porting changes from PortFusion.c back to Haskell

  • Loading branch information...
Cetin Sert
Cetin Sert committed Jan 18, 2013
1 parent bd0fdbe commit 7dd9335620d5417520ed4d4a03734e479e7ecb85
Showing with 3 additions and 3 deletions.
  1. +1 −1 PortFusion.cabal
  2. +2 −2 src/Main.hs
View
@@ -1,5 +1,5 @@
name: PortFusion
version: 1.2.1.1
version: 1.2.2
stability: stable on all operating systems
synopsis: high-performance distributed reverse / forward proxy & tunneling for TCP
description: PortFusion is a minimalistic, cross-platform, transport-layer
View
@@ -191,7 +191,7 @@ data Request = (:-<-:) AddrPort
------------------------------------------------------------------------------------------------MAIN
name, copyright, build :: ByteString
name = "CORSIS PortFusion ( ]-[ayabusa 1.2.1 )"
name = "CORSIS PortFusion ( ]-[ayabusa 1.2.2 )"
copyright = "(c) 2012 Cetin Sert. All rights reserved."
build = __OS__ <> " - " <> __ARCH__ <> " [" <> __TIMESTAMP__ <> "]"
@@ -358,7 +358,7 @@ run (lp :>=: (rh, rp)) = do
----------------------------------------------------------------------------------------------SPLICE
(>-) :: Peer -> Peer -> ErrorIO () -> IO ()
( ( as :!: ah) >- ( bs :!: bh)) j =
( ( as :!: ah) >- ( bs :!: bh)) j =
void . forkIO . tryWith (const j) $! splice chunk (as, Just ah) (bs, Just bh)
(>-<) :: Peer -> Peer -> ErrorIO () -> IO ()

0 comments on commit 7dd9335

Please sign in to comment.