diff options
| author | jao <jao@gnu.org> | 2025-02-12 02:46:02 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-02-12 02:46:02 +0000 |
| commit | 7dbc68e896ce23faf7c9b058d4a14eb49ac42da6 (patch) | |
| tree | 690fcaee545a2bfde373185932b315eb3c9adb31 /src/Xmobar/Plugins/MarqueePipeReader.hs | |
| parent | de7a0aff77114638f3e83835de0fe00395fe6bf7 (diff) | |
| download | xmobar-7dbc68e896ce23faf7c9b058d4a14eb49ac42da6.tar.gz xmobar-7dbc68e896ce23faf7c9b058d4a14eb49ac42da6.tar.bz2 | |
hlint hintson-click
Diffstat (limited to 'src/Xmobar/Plugins/MarqueePipeReader.hs')
| -rw-r--r-- | src/Xmobar/Plugins/MarqueePipeReader.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |