From 77df1ac30fa7af5948f7ff64f5fee9aed64552b3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 25 Nov 2018 15:10:29 +0000
Subject: Back to app/src, since it seems they're the default convention for
 stack

---
 src/lib/Xmobar/Plugins/PipeReader.hs | 48 ------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 src/lib/Xmobar/Plugins/PipeReader.hs

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

diff --git a/src/lib/Xmobar/Plugins/PipeReader.hs b/src/lib/Xmobar/Plugins/PipeReader.hs
deleted file mode 100644
index f18b9cb..0000000
--- a/src/lib/Xmobar/Plugins/PipeReader.hs
+++ /dev/null
@@ -1,48 +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 Xmobar.Plugins.PipeReader(PipeReader(..)) where
-
-import System.IO
-import Xmobar.Utils(hGetLineSafe)
-import Xmobar.Run.Commands(Exec(..))
-import Xmobar.System.Environment(expandEnv)
-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