diff options
| -rw-r--r-- | Operations.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index ab585c7..ec93cca 100644 --- a/Operations.hs +++ b/Operations.hs @@ -386,6 +386,9 @@ instance ReadableSomeLayout a => Layout LayoutSelection a where return $ (\l' -> LayoutSelection (l':ls)) `fmap` ml' -- Unless there is no layout... handleMessage (LayoutSelection []) _ = return Nothing + + description (LayoutSelection (x:_)) = description x + description _ = "default" -- -- Builtin layout algorithms: -- |