AspNet核心重定向循环中的Giraffe+GitHub OAuth流

Question

我创建了一个测试应用程序，希望在其中使用GitHub Oauth流，示例代码如下：路由如下所示：

let webApp =
    logRequest >=> choose [
        GET >=> 
            choose [
                route "/" >=> indexHandler "world"
                route "/login" >=> loginHandler
                route "/signin-github" >=> signinHandler
            ]
        mustBeLoggedIn >=>
            GET >=>
                choose [
                    route "/api" >=> indexHandler "authenticated world"
                ]    
        setStatusCode 404 >=> text "Not Found" ]

let mustBeLoggedIn : HttpHandler =
    requiresAuthentication (redirectTo true "/login")

let loginHandler = 
    challenge "GitHub"

options.CallbackPath <- new PathString("/signin-github")

编辑6/14/2018：工作解决方案：https://github.com/eelcomulder/giraffeoauth

Answer 1

长颈鹿频道上的函数式编程的某人（damukles）为我解决了这个问题，结果是一个少是多的情况和我犯的一个错误。mustBeLoggedIn处理程序应该如下所示：

    let mustBeLoggedIn : HttpHandler =
        requiresAuthentication (challenge "GitHub")

路由“/login”和“/signin-github”可能会被删除，显然身份验证库比以前处理得更多了。我会写一个关于这个的博客，会更新这个帖子，当完成。