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/Util/WindowState.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Util/WindowState.hs')

diff --git a/XMonad/Util/WindowState.hs b/XMonad/Util/WindowState.hs
index 5b19a20..4ffc93e 100644
--- a/XMonad/Util/WindowState.hs
+++ b/XMonad/Util/WindowState.hs
@@ -26,7 +26,7 @@ import XMonad hiding (get, put, modify)
 import Control.Monad.Reader(ReaderT(..))
 import Control.Monad.State.Class
 import Data.Typeable (Typeable, typeOf)
-import Control.Applicative((<$>))
+import Control.Applicative((<$>), Applicative)
 -- $usage
 --
 -- This module allow to store state data with some 'Window'.
@@ -54,7 +54,7 @@ import Control.Applicative((<$>))
 -- window.
 newtype StateQuery s a = StateQuery {
       getQuery :: Query a
-    } deriving (Monad, MonadIO, Functor)
+    } deriving (Monad, MonadIO, Applicative, Functor)
 
 packIntoQuery :: (Window -> X a) -> Query a
 packIntoQuery = Query . ReaderT
-- 
cgit v1.2.3