我正在尝试使用Warp构建一个简单的反向代理服务器(主要是为了自己的教育,因为有很多其他现成的选项)。
到目前为止,我的代码主要来自Warp文档(将输出写入文件仅是一个过渡性测试,同样来自文档):
import Network.Wai as W
import Network.Wai.Handler.Warp
import Network.HTTP.Types
import Network.HTTP.Conduit as H
import qualified Data.Conduit as C
import Data.Conduit.Binary (sinkFile)
import Blaze.ByteString.Builder.ByteString
import Control.Monad.Trans.Resource
import Control.Monad.IO.Class
proxApp req = do
let hd = headerAccept "Some header"
{-liftIO $ logReq req-}
pRequest <- parseUrl "http://some_website.com"
H.withManager $ \manager -> do
Response _ _ _ src <- http pRequest manager
src C.$$ sinkFile "test.html"
return $ ResponseBuilder status200 [hd] $ fromByteString "OK\n"
main = do
putStrLn "Setting up reverse proxy on 8080"
run 8080 proxApp
当我尝试在ResourceT Monad中运行Network.HTTP操作时,编译器要求它是MonadThrow的实例。我的困难在于如何将其添加到monad堆栈中或将其实例添加到ResourceT中。以下代码会导致编译器错误:
No instance for (MonadThrow
(conduit-0.1.1.1:Control.Monad.Trans.Resource.ResourceT IO))
arising from a use of `proxApp'
Possible fix:
add an instance declaration for
(MonadThrow
(conduit-0.1.1.1:Control.Monad.Trans.Resource.ResourceT IO))
In the second argument of `run', namely `proxApp'
In a stmt of a 'do' block: run 8080 proxApp
In the expression:
do { putStrLn "Setting up reverse proxy on 8080";
run 8080 proxApp }
如果我移除HTTP的行,就不需要MonadThrow实例,一切都能正常工作。
如果我定义一个新的自定义monad作为MonadThrow的实例,如何让服务器实际运行它?寻找正确的方式来引入这个异常处理在我的堆栈中(或者只是满足编译器)。
谢谢/O