From 650845a0fc55f9a505d2f460d79378facf2b3635 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 10 Feb 2020 23:33:14 -0700 Subject: Remove unused AlterZoom datatype --- src/Internal/Layout.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index 64c49ca..3fae26d 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -35,13 +35,8 @@ data Zoomable a = Zoomable Bool Float Float -- True if zooming in on the focused data ToggleZoom = ToggleZoom deriving (Typeable) -data AlterZoom = AlterZoom Float Float - deriving (Typeable) - instance Message ToggleZoom where -instance Message AlterZoom where - instance (Eq a) => LayoutModifier Zoomable a where redoLayout (Zoomable doit ws hs) (Rectangle x y w h) stack returned = if doit -- cgit