git.iko.soy/distributed-process
on master help sign in
Minor, add warning at the top of Pipes about it being unfinished
fa27f80Ryan Newton
network-transport/src/Network/Transport/Pipes.hs+10−1
compare with master
unifiedsplit
@@ -1,5 +1,15 @@
1{-# LANGUAGE BangPatterns, CPP, ScopedTypeVariables, PackageImports #-}
1{-# LANGUAGE BangPatterns, CPP, ScopedTypeVariables, PackageImports #-}
2
2
3+----------------------------------------------------------------------------------------------------
4+
5+-- WARNING -- This transport is not yet completed. TODO:
6+
7+-- * Add support for messages greater than 4096 bytes.
8+-- * debug ODD problem with CEREAL below
9+-- * switch to unix-bytestring after that package is updated for 7.4.1
10+
11+----------------------------------------------------------------------------------------------------
12+
3module Network.Transport.Pipes
13module Network.Transport.Pipes
4 ( mkTransport
14 ( mkTransport
5 ) where
15 ) where
@@ -57,7 +67,6 @@ readit fd n = do (s,_) <- PIO.fdRead fd n
57-- The msg header consists of just a length field represented as a Word32
67-- The msg header consists of just a length field represented as a Word32
58sizeof_header = 4
68sizeof_header = 4
59
69
60−-- fileFlags = PIO.defaultFileFlags
61fileFlags =
70fileFlags =
62 PIO.OpenFileFlags {
71 PIO.OpenFileFlags {
63 PIO.append = False,
72 PIO.append = False,