diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-11 23:28:18 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 76ddb5b75808fe61e6f12bd3d9a54270d9b73886 (patch) | |
| tree | d20047603fc6448a66b720d456982bd70286791e /src/Rahm/Desktop/Layout/LayoutDraw.hs | |
| parent | 106695b521dedb23e314d94ba9a87e7c2e142a37 (diff) | |
| download | rde-76ddb5b75808fe61e6f12bd3d9a54270d9b73886.tar.gz rde-76ddb5b75808fe61e6f12bd3d9a54270d9b73886.tar.bz2 rde-76ddb5b75808fe61e6f12bd3d9a54270d9b73886.zip | |
Fix bug with Poppable where it was passing the Resize to the underlying layout.
Unfortunately it's a little hacky how this ended up working, but I don't
have a great solution yet.
Diffstat (limited to 'src/Rahm/Desktop/Layout/LayoutDraw.hs')
| -rw-r--r-- | src/Rahm/Desktop/Layout/LayoutDraw.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Layout/LayoutDraw.hs b/src/Rahm/Desktop/Layout/LayoutDraw.hs index 7e59284..99828e3 100644 --- a/src/Rahm/Desktop/Layout/LayoutDraw.hs +++ b/src/Rahm/Desktop/Layout/LayoutDraw.hs @@ -11,7 +11,7 @@ import Control.Monad.Writer (execWriter, tell) import Data.Foldable (find) import Data.Maybe (fromMaybe) import Rahm.Desktop.Hash (quickHash) -import Rahm.Desktop.Layout.Layout (ZoomModifier(..)) +import Rahm.Desktop.Layout.Pop (PopMessage(..)) import System.Directory (createDirectoryIfMissing, doesFileExist) import System.FilePath ((</>)) import Text.Printf (printf) @@ -48,7 +48,7 @@ drawLayout = do -- Gotta reset the layout to a consistent state. layout' <- foldM (flip ($)) layout [ handleMessage' $ ModifyWindowBorder $ const $ Border 0 0 0 0, - handleMessage' Unzoom + handleMessage' Unpop ] (cached, xpm) <- drawXpmIO layout' |