diff options
| author | Josh Rahm <rahm@josher.dev> | 2026-04-28 17:31:57 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@josher.dev> | 2026-04-28 17:31:57 -0600 |
| commit | 9e1175f878e4a4b24a9486e969d96a9df1fec34c (patch) | |
| tree | 1b6b3175d296bf9bff83706ca2187c8e7a0f9497 /src/Rahm/Desktop/XMobarLog | |
| parent | b173b7ddac441e9d6649b22029d08d4be7aa8431 (diff) | |
| download | rde-9e1175f878e4a4b24a9486e969d96a9df1fec34c.tar.gz rde-9e1175f878e4a4b24a9486e969d96a9df1fec34c.tar.bz2 rde-9e1175f878e4a4b24a9486e969d96a9df1fec34c.zip | |
[feat] properly color the borders when swapping windows.
Diffstat (limited to 'src/Rahm/Desktop/XMobarLog')
| -rw-r--r-- | src/Rahm/Desktop/XMobarLog/PendingBuffer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs b/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs index 67ae6a3..c8e7c75 100644 --- a/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs +++ b/src/Rahm/Desktop/XMobarLog/PendingBuffer.hs @@ -55,13 +55,13 @@ clearPendingBuffer = do getPendingBuffer :: X [Char] getPendingBuffer = unPendingBuffer <$> XS.get -pushPendingBuffer :: (Xish x) => String -> x a -> x a +pushPendingBuffer :: (Xish x, Monad x) => String -> x a -> x a pushPendingBuffer newPendingBuffer fn = do saved <- liftFromX getPendingBuffer liftFromX $ setPendingBuffer newPendingBuffer fn <* liftFromX (setPendingBuffer saved) -pushAddPendingBuffer :: (Xish x) => String -> x a -> x a +pushAddPendingBuffer :: (Xish x, Monad x) => String -> x a -> x a pushAddPendingBuffer toAdd fn = do saved <- liftFromX getPendingBuffer liftFromX $ setPendingBuffer (saved ++ toAdd) |