Re: [Haskell-cafe] using createProcess and waitForProcess, but mpg123 plays for only 6 seconds

15 Nov 2012

      Herbert Valerio Riedel  wrote:
...
Try to keep hin/hout "alive" a bit longer, and mpg123 should survive
longer. Also you should most probably consume the output comming from
'mpg123 -R' via 'hout', as otherwise it the buffer might build up and
mpg123 might block.
[1]:  
http://hackage.haskell.org/packages/archive/base/4.6.0.0/doc/html/System-IO....
Shame of me, I've opened that link several times without noticing that
paragraph.
You're quite right. After understanding the details, I think there can be
many solutions.

But at present, I'm satisfied with this quick fix:

import System.Exit
import System.IO
import System.Process
import Control.Concurrent

mpgLoop = do
       let sh = "mpg123 -R"
       (Just hin, Just hout, _, hdl) <- createProcess (shell sh){ std_in =
CreatePipe, std_out = CreatePipe }
       hPutStrLn hin "SILENCE"  -- mildly prevent buffer blocking
       hPutStrLn hin "LOAD /home/rnons/Music/test.mp3"
       hFlush hin
       waitForProcess hdl >>= exitWith
       hPutStrLn hin "STOP"  -- keep hin "alive" a bit longer
       hGetContents hout
       hFlush hin
       return ()

main = do
       forkIO mpgLoop
       getChar

Thank you very much!

rnons