From b2deab26bd52a994003cafc33872b6c084cdd716 Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 24 Oct 2015 22:09:55 +0200 Subject: tv: nano really is just vim This is required or else we have to modify glorious packages like cvs. --- tv/2configs/xserver/xmonad-tv/Util/Debunk.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tv/2configs/xserver/xmonad-tv/Util/Debunk.hs (limited to 'tv/2configs/xserver/xmonad-tv/Util/Debunk.hs') diff --git a/tv/2configs/xserver/xmonad-tv/Util/Debunk.hs b/tv/2configs/xserver/xmonad-tv/Util/Debunk.hs new file mode 100644 index 000000000..b4772e582 --- /dev/null +++ b/tv/2configs/xserver/xmonad-tv/Util/Debunk.hs @@ -0,0 +1,16 @@ +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 + -- cgit v1.2.3