17 lines
389 B
Haskell
17 lines
389 B
Haskell
|
module Util.Debunk
|
||
|
|
( printToErrors
|
||
|
|
) where
|
||
|
|
|
||
|
|
import XMonad
|
||
|
|
import System.FilePath ( (</>) )
|
||
|
|
import Control.Exception ( bracket )
|
||
|
|
import System.IO ( hPrint, stderr, openFile, hClose, IOMode( AppendMode ) )
|
||
|
|
|
||
|
|
|
||
|
|
printToErrors x = do
|
||
|
|
dir <- getXMonadDir
|
||
|
|
let base = dir </> "xmonad"
|
||
|
|
err = base ++ ".errors"
|
||
|
|
bracket (openFile err AppendMode) hClose $ \h -> hPrint h x
|
||
|
|
|