@@ -163,7 +163,6 @@ eventLogTracer =
163logfileTracer :: FilePath -> Process ()
163logfileTracer :: FilePath -> Process ()
164logfileTracer p = do
164logfileTracer p = do
165 -- TODO: error handling if the handle cannot be opened
165 -- TODO: error handling if the handle cannot be opened
166− liftIO $ putStrLn $ "writing to " ++ (show p)
167 h <- liftIO $ openFile p AppendMode
166 h <- liftIO $ openFile p AppendMode
168 liftIO $ hSetBuffering h LineBuffering
167 liftIO $ hSetBuffering h LineBuffering
169 logger h `finally` (liftIO $ hClose h)
168 logger h `finally` (liftIO $ hClose h)