diff options
| -rw-r--r-- | LayoutHelpers.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LayoutHelpers.hs b/LayoutHelpers.hs index e51f45c..4401590 100644 --- a/LayoutHelpers.hs +++ b/LayoutHelpers.hs @@ -33,7 +33,9 @@ class (Show (m l a), Read (m l a), Layout l a) => LayoutModifier m l a where modifyModify _ _ = return Nothing redoLayout :: m l a -> Rectangle -> Stack a -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (l a -> m l a)) - redoLayout _ _ _ wrs = return (wrs, Nothing) + redoLayout m _ _ wrs = do hook m; return (wrs, Nothing) + hook :: m l a -> X () + hook _ = return () instance LayoutModifier m l a => Layout (m l) a where doLayout m r s = do (ws, ml') <- doLayout (extractLayout m) r s |