named pipe

pipetest.hs

import Control.Concurrent 
import Control.Monad
import Control.Monad.Loops
import System.IO 
import System.Posix.Files 

main = do 
  -- createNamedPipe "/tmp/test.fifo" $ unionFileModes ownerReadMode ownerWriteMode
  -- forever (hGetLine pipe >>= putStrLn) 

  pipestr <- iterateUntil (not.null) $ do   
    putStrLn "reading pipe"
    threadDelay 5000000
    readFile "/tmp/test.fifo" -- ReadMode 
  putStrLn pipestr