用 20 行 Haskell 写 FaaS 服务器

[lupino]

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