Permalink
Browse files

1.2.2; porting changes from PortFusion.c back to Haskell

  • Loading branch information...
1 parent bd0fdbe commit 7dd9335620d5417520ed4d4a03734e479e7ecb85 Cetin Sert committed Jan 18, 2013
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.