From a14bbd10b915f8b8a54c1adf6266ba472e85e795 Mon Sep 17 00:00:00 2001 From: Adam Vogt 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