From 0777551ba8ed08cc1177b2e78cad9d5116a98673 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Fri, 8 May 2015 13:12:42 +0200
Subject: Add MonadIO instance for Query

---
 Distribution/Helper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Distribution')

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
-- 
cgit v1.2.3