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:
Joan Milev
2021-05-24 01:02:10 +03:00
committed by Tomas Janousek
parent d72da951c9
commit 9e5b16ed8a
3 changed files with 8 additions and 8 deletions

View File

@@ -154,7 +154,7 @@ newtype ScreenDetail = SD { screenRect :: Rectangle }
-- instantiated on 'XConf' and 'XState' automatically.
--
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
pure = return
@@ -383,7 +383,7 @@ instance Message Event
-- layouts) should consider handling.
data LayoutMessages = Hide -- ^ sent when a layout becomes non-visible
| ReleaseResources -- ^ sent when xmonad is exiting or restarting
deriving (Typeable, Eq)
deriving Eq
instance Message LayoutMessages

View File

@@ -8,7 +8,7 @@
--
-- Maintainer : spencerjanssen@gmail.com
-- Stability : unstable
-- Portability : not portable, Typeable deriving, mtl, posix
-- Portability : not portable, mtl, posix
--
-- The collection of core layouts.
--
@@ -35,10 +35,10 @@ import Data.Maybe (fromMaybe)
------------------------------------------------------------------------
-- | 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.
data IncMasterN = IncMasterN !Int deriving Typeable
data IncMasterN = IncMasterN !Int
instance Message Resize
instance Message IncMasterN
@@ -132,7 +132,7 @@ mirrorRect (Rectangle rx ry rw rh) = Rectangle ry rx rh rw
-- Layouts that transition between other layouts
-- | Messages to change the current layout.
data ChangeLayout = FirstLayout | NextLayout deriving (Eq, Show, Typeable)
data ChangeLayout = FirstLayout | NextLayout deriving (Eq, Show)
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'.
data CLR = CL | CR deriving (Read, Show, Eq)
data NextNoWrap = NextNoWrap deriving (Eq, Show, Typeable)
data NextNoWrap = NextNoWrap deriving (Eq, Show)
instance Message NextNoWrap
-- | A small wrapper around handleMessage, as it is tedious to write

View File

@@ -8,7 +8,7 @@
--
-- Maintainer : dons@cse.unsw.edu.au
-- Stability : unstable
-- Portability : not portable, Typeable deriving, mtl, posix
-- Portability : not portable, mtl, posix
--
-- Operations.
--