diff options
Diffstat (limited to 'src/Rahm/Desktop/XMobarLog')
| -rw-r--r-- | src/Rahm/Desktop/XMobarLog/PendingBuffer.hs | 11 |
1 files changed, 9 insertions, 2 deletions
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 |