add waitForTermination to process package ?

[Simon Michael]

happstack-state has this function:

http://hackage.haskell.org/packages/archive/happstack-state/0.4.1/doc/html/src/Happstack-State-Control.html#waitForTermination

which I find handy. Here's what I use it for:

    tid <- forkIO $ server opts args l
    putStrLn "starting web browser"
    openBrowserOn homeurl
    waitForTermination
    putStrLn "shutting down web server..."
    killThread tid
    putStrLn "shutdown complete"

I'd like to not depend on happstack just for this. Could it be added to System.Process ?

Best - Simon