diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2014-05-02 07:57:43 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2014-05-02 07:57:43 +0200 |
| commit | a14bbd10b915f8b8a54c1adf6266ba472e85e795 (patch) | |
| tree | 15a808caaa19279ab46aa2f1d821f1bac791e054 | |
| parent | bf2e311aaf062b11e1c870564ff03c0f1800a6a8 (diff) | |
| download | xmonad-a14bbd10b915f8b8a54c1adf6266ba472e85e795.tar.gz xmonad-a14bbd10b915f8b8a54c1adf6266ba472e85e795.tar.xz xmonad-a14bbd10b915f8b8a54c1adf6266ba472e85e795.zip | |
derive Applicative instance for Query
Ignore-this: 444b460116a8a153cdf45676ee5ad535
darcs-hash:20140502055743-1499c-3afa1dcf2315234c0f01120bba8f603c213129fe.gz
| -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 |