From 8708716ce903d30097265ec95e7adcf3d030d6de Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 22 Nov 2022 12:12:25 -0700 Subject: withPendingBuffer -> pushPendingBuffer. --- src/Rahm/Desktop/XMobarLog/PendingBuffer.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src/Rahm/Desktop/XMobarLog') diff --git a/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs b/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs index 1ae298b..d49b835 100644 --- a/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs +++ b/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs @@ -46,7 +46,14 @@ clearPendingBuffer = do getPendingBuffer :: X [Char] getPendingBuffer = unPendingBuffer <$> XS.get -withPendingBuffer :: X a -> X a -withPendingBuffer fn = do +pushPendingBuffer :: String -> X a -> X a +pushPendingBuffer newPendingBuffer fn = do saved <- getPendingBuffer + setPendingBuffer newPendingBuffer + fn <* setPendingBuffer saved + +pushAddPendingBuffer :: String -> X a -> X a +pushAddPendingBuffer toAdd fn = do + saved <- getPendingBuffer + setPendingBuffer (saved ++ toAdd) fn <* setPendingBuffer saved -- cgit