diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-10 10:54:06 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2021-11-10 10:54:06 -0700 |
| commit | ebc4b4be4a5a361c2b4376ab2c1b92b052b61b8a (patch) | |
| tree | 95c075b1a07606e72e881991ac04bb70a457a39f /src/Internal/Layout.hs | |
| parent | a6ff366f93d8123e5b897da6fbc74bfac64c1b2f (diff) | |
| download | rde-ebc4b4be4a5a361c2b4376ab2c1b92b052b61b8a.tar.gz rde-ebc4b4be4a5a361c2b4376ab2c1b92b052b61b8a.tar.bz2 rde-ebc4b4be4a5a361c2b4376ab2c1b92b052b61b8a.zip | |
Upgrade to XMonad v0.17
Diffstat (limited to 'src/Internal/Layout.hs')
| -rw-r--r-- | src/Internal/Layout.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index 8903fed..fed0fd9 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -52,7 +52,7 @@ data ThreeColDescMod = ThreeColDescMod class DescriptionModifier m l where newDescription :: m -> l a -> String -> String -instance (Show m, DescriptionModifier m l, LayoutClass l a) => LayoutClass (ModifyDescription m l) a where +instance (Typeable m, Show m, DescriptionModifier m l, LayoutClass l a) => LayoutClass (ModifyDescription m l) a where runLayout (W.Workspace t (ModifyDescription m l) a) rect = do (rects, maybeNewLayout) <- runLayout (W.Workspace t l a) rect return (rects, fmap (ModifyDescription m) maybeNewLayout) |