diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2014-07-10 18:39:50 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2014-07-10 18:39:50 +0200 |
| commit | 7de2796a2448a33ef4ed80111681bd6175f57477 (patch) | |
| tree | 08a190bd0c09c83039cf606ad4c6b67a88cea6cc /XMonad/Hooks/DebugEvents.hs | |
| parent | 61e3488be86e7b11916bf23b4a0bc3826570e5df (diff) | |
| download | XMonadContrib-7de2796a2448a33ef4ed80111681bd6175f57477.tar.gz XMonadContrib-7de2796a2448a33ef4ed80111681bd6175f57477.tar.xz XMonadContrib-7de2796a2448a33ef4ed80111681bd6175f57477.zip | |
derive Applicative instances to suppress AMP warning
Ignore-this: c2110d07bccc61462c3fbf73c900aaa1
darcs-hash:20140710163950-1499c-ee7151d0314d7c5f154782c2099a02377311aaf3.gz
Diffstat (limited to 'XMonad/Hooks/DebugEvents.hs')
| -rw-r--r-- | XMonad/Hooks/DebugEvents.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs index a038b6c..753dc1f 100644 --- a/XMonad/Hooks/DebugEvents.hs +++ b/XMonad/Hooks/DebugEvents.hs @@ -47,6 +47,7 @@ import Numeric (showHex) import System.Exit import System.IO import System.Process +import Control.Applicative -- | Event hook to dump all received events. You should probably not use this -- unconditionally; it will produce massive amounts of output. @@ -270,6 +271,7 @@ data DecodeState = DecS {value :: Raw -- unconsumed raw property value newtype Decoder a = Decoder (ReaderT Decode (StateT DecodeState X) a) #ifndef __HADDOCK__ deriving (Functor + ,Applicative ,Monad ,MonadIO ,MonadState DecodeState |