Remove unneeded context with the IfMax layout instance

Extra constraints on instances are about as useful as -XDataTypeContexts
This commit is contained in:
Adam Vogt
2014-04-22 22:11:05 +00:00
parent e2ff50687e
commit 6a2ad3f1ee

View File

@@ -47,8 +47,7 @@ import qualified XMonad.StackSet as W
data IfMax l1 l2 w = IfMax Int (l1 w) (l2 w) data IfMax l1 l2 w = IfMax Int (l1 w) (l2 w)
deriving (Read, Show) deriving (Read, Show)
instance (LayoutClass l1 a, LayoutClass l2 a, Read a, Show a, Eq a, Typeable a) instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (IfMax l1 l2) a where
=> LayoutClass (IfMax l1 l2) a where
runLayout (W.Workspace _ (IfMax n l1 l2) s) rect = arrange (W.integrate' s) runLayout (W.Workspace _ (IfMax n l1 l2) s) rect = arrange (W.integrate' s)
where where