diff options
| -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 |