import Control.Concurrent ( forkIO, newEmptyMVar, putMVar, readMVar )
import Control.Exception ( evaluate )
import Control.Monad ( liftM )
-import Data.List ( intercalate )
import Data.Time ( formatTime, getZonedTime )
import System.Console.CmdArgs.Default ( Default(..) )
import System.Exit ( ExitCode(..) )
formatted_headers =
if null (headers m)
then ""
- else (intercalate "\n" (headers m)) ++ "\n"
+ else unlines (headers m)