summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/BufferedPipeReader.hs
diff options
context:
space:
mode:
authorJochen Keil <jochen.keil@gmail.com>2012-08-09 09:43:49 +0200
committerJochen Keil <jochen.keil@gmail.com>2012-08-09 10:47:09 +0200
commit58427c76c892334522dfb28ea2d2a858469fc65a (patch)
tree4ed2294e0a0d7254fbeee5bbd7c53e35f675cd8c /src/Plugins/BufferedPipeReader.hs
parentcc77b5a7bc8309f694fd0aed4110b92f16316c0b (diff)
downloadxmobar-58427c76c892334522dfb28ea2d2a858469fc65a.tar.gz
xmobar-58427c76c892334522dfb28ea2d2a858469fc65a.tar.bz2
Cosmetic surgery
Realign methods, remove unnecessary imports and remove clutter
Diffstat (limited to 'src/Plugins/BufferedPipeReader.hs')
-rw-r--r--src/Plugins/BufferedPipeReader.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/src/Plugins/BufferedPipeReader.hs b/src/Plugins/BufferedPipeReader.hs
index 1fb9dcb..e232916 100644
--- a/src/Plugins/BufferedPipeReader.hs
+++ b/src/Plugins/BufferedPipeReader.hs
@@ -18,18 +18,12 @@ import Control.Monad(forM_, when)
import Control.Concurrent
import Control.Concurrent.STM
import System.IO
--- import System.IO.Unsafe(unsafePerformIO)
import Plugins
data BufferedPipeReader = BufferedPipeReader String [(Int, String)]
deriving (Read, Show)
--- pipeState :: MVar String
--- pipeState = unsafePerformIO $ newMVar ""
-
--- pipe :: (String -> IO ()) -> Handle -> IO ()
--- pipe cb h = hGetLineSafe h >>= cb
instance Exec BufferedPipeReader where
alias ( BufferedPipeReader a _ ) = a