diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2015-05-08 13:12:42 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2015-05-08 13:12:42 +0200 |
| commit | 0777551ba8ed08cc1177b2e78cad9d5116a98673 (patch) | |
| tree | 1cb1c87194f7b64842e8c5502af01e76fd0301a7 | |
| parent | b8e864f7622c2f0238d628bbe6fb594eba2e8e20 (diff) | |
Add MonadIO instance for Query
| -rw-r--r-- | Distribution/Helper.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs index 323de0e..0ba62cf 100644 --- a/Distribution/Helper.hs +++ b/Distribution/Helper.hs @@ -98,7 +98,7 @@ data SomeLocalBuildInfo = SomeLocalBuildInfo { -- running all possible queries against it at once is cheap. newtype Query m a = Query { unQuery :: StateT (Maybe SomeLocalBuildInfo) (ReaderT (Programs, FilePath) m) a } - deriving (Functor, Applicative, Monad) + deriving (Functor, Applicative, Monad, MonadIO) type MonadQuery m = ( MonadIO m , MonadState (Maybe SomeLocalBuildInfo) m |