From 98857472d93e6c6b4c9d501ae5c7172874c1ed82 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 31 Mar 2025 17:02:58 +0100
Subject: hlinting

---
 src/Xmobar/Plugins/MarqueePipeReader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xmobar/Plugins/MarqueePipeReader.hs')

diff --git a/src/Xmobar/Plugins/MarqueePipeReader.hs b/src/Xmobar/Plugins/MarqueePipeReader.hs
index 075503c..a6d590e 100644
--- a/src/Xmobar/Plugins/MarqueePipeReader.hs
+++ b/src/Xmobar/Plugins/MarqueePipeReader.hs
@@ -60,7 +60,7 @@ writer txt sep len rate chan cb = do
         Nothing -> tenthSeconds rate >> writer (drop 1 txt) sep len rate chan cb
 
 toInfTxt :: String -> String -> String
-toInfTxt line sep = concat (repeat $ line ++ " " ++ sep ++ " ")
+toInfTxt line sep = cycle (line ++ " " ++ sep ++ " ")
 
 checkPipe :: FilePath -> IO ()
 checkPipe file = handle (\(SomeException _) -> waitForPipe) $ do
-- 
cgit v1.2.3