diff options
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |