mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 12:11:53 -07:00
Remove all instances of deriving Typeable
The derivation of Typeable has been automatic for quite a while now. Related: https://github.com/xmonad/xmonad-contrib/issues/548
This commit is contained in:
committed by
Tomas Janousek
parent
d72da951c9
commit
9e5b16ed8a
@@ -154,7 +154,7 @@ newtype ScreenDetail = SD { screenRect :: Rectangle }
|
|||||||
-- instantiated on 'XConf' and 'XState' automatically.
|
-- instantiated on 'XConf' and 'XState' automatically.
|
||||||
--
|
--
|
||||||
newtype X a = X (ReaderT XConf (StateT XState IO) a)
|
newtype X a = X (ReaderT XConf (StateT XState IO) a)
|
||||||
deriving (Functor, Monad, MonadFail, MonadIO, MonadState XState, MonadReader XConf, Typeable)
|
deriving (Functor, Monad, MonadFail, MonadIO, MonadState XState, MonadReader XConf)
|
||||||
|
|
||||||
instance Applicative X where
|
instance Applicative X where
|
||||||
pure = return
|
pure = return
|
||||||
@@ -383,7 +383,7 @@ instance Message Event
|
|||||||
-- layouts) should consider handling.
|
-- layouts) should consider handling.
|
||||||
data LayoutMessages = Hide -- ^ sent when a layout becomes non-visible
|
data LayoutMessages = Hide -- ^ sent when a layout becomes non-visible
|
||||||
| ReleaseResources -- ^ sent when xmonad is exiting or restarting
|
| ReleaseResources -- ^ sent when xmonad is exiting or restarting
|
||||||
deriving (Typeable, Eq)
|
deriving Eq
|
||||||
|
|
||||||
instance Message LayoutMessages
|
instance Message LayoutMessages
|
||||||
|
|
||||||
|
@@ -8,7 +8,7 @@
|
|||||||
--
|
--
|
||||||
-- Maintainer : spencerjanssen@gmail.com
|
-- Maintainer : spencerjanssen@gmail.com
|
||||||
-- Stability : unstable
|
-- Stability : unstable
|
||||||
-- Portability : not portable, Typeable deriving, mtl, posix
|
-- Portability : not portable, mtl, posix
|
||||||
--
|
--
|
||||||
-- The collection of core layouts.
|
-- The collection of core layouts.
|
||||||
--
|
--
|
||||||
@@ -35,10 +35,10 @@ import Data.Maybe (fromMaybe)
|
|||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
|
|
||||||
-- | Change the size of the master pane.
|
-- | Change the size of the master pane.
|
||||||
data Resize = Shrink | Expand deriving Typeable
|
data Resize = Shrink | Expand
|
||||||
|
|
||||||
-- | Increase the number of clients in the master pane.
|
-- | Increase the number of clients in the master pane.
|
||||||
data IncMasterN = IncMasterN !Int deriving Typeable
|
data IncMasterN = IncMasterN !Int
|
||||||
|
|
||||||
instance Message Resize
|
instance Message Resize
|
||||||
instance Message IncMasterN
|
instance Message IncMasterN
|
||||||
@@ -132,7 +132,7 @@ mirrorRect (Rectangle rx ry rw rh) = Rectangle ry rx rh rw
|
|||||||
-- Layouts that transition between other layouts
|
-- Layouts that transition between other layouts
|
||||||
|
|
||||||
-- | Messages to change the current layout.
|
-- | Messages to change the current layout.
|
||||||
data ChangeLayout = FirstLayout | NextLayout deriving (Eq, Show, Typeable)
|
data ChangeLayout = FirstLayout | NextLayout deriving (Eq, Show)
|
||||||
|
|
||||||
instance Message ChangeLayout
|
instance Message ChangeLayout
|
||||||
|
|
||||||
@@ -147,7 +147,7 @@ data Choose l r a = Choose CLR (l a) (r a) deriving (Read, Show)
|
|||||||
-- | Choose the current sub-layout (left or right) in 'Choose'.
|
-- | Choose the current sub-layout (left or right) in 'Choose'.
|
||||||
data CLR = CL | CR deriving (Read, Show, Eq)
|
data CLR = CL | CR deriving (Read, Show, Eq)
|
||||||
|
|
||||||
data NextNoWrap = NextNoWrap deriving (Eq, Show, Typeable)
|
data NextNoWrap = NextNoWrap deriving (Eq, Show)
|
||||||
instance Message NextNoWrap
|
instance Message NextNoWrap
|
||||||
|
|
||||||
-- | A small wrapper around handleMessage, as it is tedious to write
|
-- | A small wrapper around handleMessage, as it is tedious to write
|
||||||
|
@@ -8,7 +8,7 @@
|
|||||||
--
|
--
|
||||||
-- Maintainer : dons@cse.unsw.edu.au
|
-- Maintainer : dons@cse.unsw.edu.au
|
||||||
-- Stability : unstable
|
-- Stability : unstable
|
||||||
-- Portability : not portable, Typeable deriving, mtl, posix
|
-- Portability : not portable, mtl, posix
|
||||||
--
|
--
|
||||||
-- Operations.
|
-- Operations.
|
||||||
--
|
--
|
||||||
|
Reference in New Issue
Block a user