From 7de2796a2448a33ef4ed80111681bd6175f57477 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 10 Jul 2014 18:39:50 +0200
Subject: derive Applicative instances to suppress AMP warning

Ignore-this: c2110d07bccc61462c3fbf73c900aaa1

darcs-hash:20140710163950-1499c-ee7151d0314d7c5f154782c2099a02377311aaf3.gz
---
 XMonad/Hooks/DebugEvents.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad/Hooks')

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
-- 
cgit v1.2.3