V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
lupino
V2EX  ›  Serverless

用 20 行 Haskell 写 FaaS 服务器

  •  
  •   lupino · 2017-04-23 15:14:42 +08:00 · 6280 次点击
    这是一个创建于 2531 天前的主题,其中的信息可能已经有所发展或是发生改变。

    FaaS 是 Function as a Service 的简称,是构建 Serverless 的一种框架。 那么 FaaS 做了什么事情呢?简单来讲 FaaS 将 HTTP 请求转发到可执行命令,然后将命令的执行结果转发给 HTTP Response 。

    有了这么一条业务逻辑我们就可以构建自己的 FaaS 服务器。

    首先定义可执行命令的数据结构:

    data Proc = Proc { procFuncName :: String
                     , procName :: String
                     , procArgv :: [String]
                     }
    
    • procFuncName 为 HTTP 请求的函数名字
    • procName 为可执行的命令
    • procArgv 为可执行命令的参数

    执行命令使用 System.Process 里面的 readProcessWithExitCode

    runProc :: Proc -> String -> IO (Either String String)
    runProc (Proc { procName = name, procArgv = argv}) wb = do
      (code, out, err) <- readProcessWithExitCode name argv wb
      case code of 
        ExitSuccess   -> return (Right out)
        ExitFailure _ -> return (Left err)
    

    使用 Web.Scotty 来构建 web 服务器

    processHandler :: (String -> Maybe Proc) -> ActionM ()
    processHandler getProc = do 
      func <- param "func"
      case (getProc func) of
        Nothing -> do 
            status status404
            raw LB.empty
        Just proc -> do 
            wb <- body
            result <- liftIO $ runProc proc (LB.unpack wb)
            case result of 
              Left err -> do 
                status status500
                raw (LB.pack err)
              Right out -> raw ( LB.pack out)
    
    catProc :: Proc 
    catProc = Proc { procFuncName = "cat"
                   , procName     = "cat"
                   , procArgv     = []
                   }
    
    getProcByFuncName :: String -> Maybe Proc
    getProcByFuncName "cat" = Just catProc
    getProcByFuncName _     = Nothing
    
    main = scotty 3000 $ do
        post "/function/:func" $ processHandler getProcByFuncName
    

    到这里 FaaS 服务器已经完成。

    FaaS 服务器就这么简单,在生产环境上我们还需要做一些事情,比如 函数可以配置。

    完整的代码参见 func

    原文见 http://www.jianshu.com/p/f35f064c8868

    目前尚无回复
    关于   ·   帮助文档   ·   博客   ·   API   ·   FAQ   ·   我们的愿景   ·   实用小工具   ·   1024 人在线   最高记录 6543   ·     Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 · 25ms · UTC 19:23 · PVG 03:23 · LAX 12:23 · JFK 15:23
    Developed with CodeLauncher
    ♥ Do have faith in what you're doing.