From 4d1402a1a7d87767267d48a77998e4fb13395b31 Mon Sep 17 00:00:00 2001
From: Pavan Rikhi <pavan.rikhi@gmail.com>
Date: Sat, 17 Mar 2018 22:48:24 -0400
Subject: Split Modules into Library & Executable Structure

Move the Main module to a new `app` directory. All other modules have
been nested under the `Xmobar` name. Lots of module headers & imports
were updated.
---
 src/Plugins/PipeReader.hs | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 src/Plugins/PipeReader.hs

(limited to 'src/Plugins/PipeReader.hs')

diff --git a/src/Plugins/PipeReader.hs b/src/Plugins/PipeReader.hs
deleted file mode 100644
index b3e178d..0000000
--- a/src/Plugins/PipeReader.hs
+++ /dev/null
@@ -1,47 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  Plugins.PipeReader
--- Copyright   :  (c) Andrea Rossato
--- License     :  BSD-style (see LICENSE)
---
--- Maintainer  :  Jose A. Ortega Ruiz <jao@gnu.org>
--- Stability   :  unstable
--- Portability :  unportable
---
--- A plugin for reading from named pipes
---
------------------------------------------------------------------------------
-
-module Plugins.PipeReader where
-
-import System.IO
-import Plugins
-import Environment
-import System.Posix.Files
-import Control.Concurrent(threadDelay)
-import Control.Exception
-import Control.Monad(forever, unless)
-import Control.Applicative ((<$>))
-
-data PipeReader = PipeReader String String
-    deriving (Read, Show)
-
-instance Exec PipeReader where
-    alias (PipeReader _ a)    = a
-    start (PipeReader p _) cb = do
-        (def, pipe) <- split ':' <$> expandEnv p
-        unless (null def) (cb def)
-        checkPipe pipe
-        h <- openFile pipe ReadWriteMode
-        forever (hGetLineSafe h >>= cb)
-      where
-        split c xs | c `elem` xs = let (pre, post) = span (c /=) xs
-                                   in (pre, dropWhile (c ==) post)
-                   | otherwise   = ([], xs)
-
-checkPipe :: FilePath -> IO ()
-checkPipe file =
-    handle (\(SomeException _) -> waitForPipe) $ do
-        status <- getFileStatus file
-        unless (isNamedPipe status) waitForPipe
-    where waitForPipe = threadDelay 1000000 >> checkPipe file
-- 
cgit v1.2.3