将http-conduit源连接到xml-conduit接收器

Question

我尝试跟随this连接-http-conduit-to-xml-conduit stackoverflow问题，因为它看起来与我想做的完全一样。

我正在从yesod书的http-conduit部分开始构建示例。

守则

getBody = do
   manager <- liftIO $ newManager def
   req <- liftIO $ parseUrl fredURL
   http req manager

错误

No instance for (monad-control-0.3.1.3:Control.Monad.Trans.Control.MonadBaseControl
                   IO m0)
  arising from a use of `http'
Possible fix:
  add an instance declaration for
  (monad-control-0.3.1.3:Control.Monad.Trans.Control.MonadBaseControl
     IO m0)
In a stmt of a 'do' block: http req manager
In the expression:
  do { manager <- liftIO $ newManager def;
       req <- liftIO $ parseUrl fredURL;
       http req manager }
In an equation for `getBody':
    getBody
      = do { manager <- liftIO $ newManager def;
             req <- liftIO $ parseUrl fredURL;
             http req manager }

目标

我正在尝试返回将由xml-conduit Sink使用的Source，目的是我想使用XML-Conduit来解析XML并将其表达为Haskell data类型。 我能否澄清一下为什么我收到错误？