From a14bbd10b915f8b8a54c1adf6266ba472e85e795 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 2 May 2014 07:57:43 +0200
Subject: derive Applicative instance for Query

Ignore-this: 444b460116a8a153cdf45676ee5ad535

darcs-hash:20140502055743-1499c-3afa1dcf2315234c0f01120bba8f603c213129fe.gz
---
 XMonad/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 20d7258..7d2e1cf 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -155,7 +155,7 @@ instance Default a => Default (X a) where
 
 type ManageHook = Query (Endo WindowSet)
 newtype Query a = Query (ReaderT Window X a)
-    deriving (Functor, Monad, MonadReader Window, MonadIO)
+    deriving (Functor, Applicative, Monad, MonadReader Window, MonadIO)
 
 runQuery :: Query a -> Window -> X a
 runQuery (Query m) w = runReaderT m w
-- 
cgit v1.2.3