@@ -1,5 +1,15 @@
11{-# LANGUAGE BangPatterns, CPP, ScopedTypeVariables, PackageImports #-}
22
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+
313module Network.Transport.Pipes
414 ( mkTransport
515 ) where
@@ -57,7 +67,6 @@ readit fd n = do (s,_) <- PIO.fdRead fd n
5767-- The msg header consists of just a length field represented as a Word32
5868sizeof_header = 4
5969
60−-- fileFlags = PIO.defaultFileFlags
6170fileFlags =
6271 PIO.OpenFileFlags {
6372 PIO.append = False,