Http刪除與空身體

Question

在Elm（0.18）我打電話一個http DELETE端點，如果成功響應200和一個空的身體。

在這種情況下（成功），我需要傳回一個消息與初始ID（OnDelete playerId）。但是由於身體是空的，我無法從那裏解析它。

目前我正在做這樣的，但在那裏寫的Http.Request的expect部分更優雅的方式：

Http.expectStringResponse (\response -> Ok playerId) 

？

這反映了我當前的代碼：

deletePlayer : PlayerId -> Cmd Msg 
deletePlayer playerId = 
    deleteRequest playerId 
     |> Http.send OnDelete 


deleteRequest : PlayerId -> Http.Request PlayerId 
deleteRequest playerId = 
    Http.request 
     { body = Http.emptyBody 

     , expect = Http.expectStringResponse (\response -> Ok playerId) 

     , headers = [] 
     , method = "DELETE" 
     , timeout = Nothing 
     , url = "http://someHost/players/" ++ playerId 
     , withCredentials = False 
     } 


type alias PlayerId = 
    String 

Answer 1

我創建了一個幫手expectUnit爲 「空」 200個迴應。

expectUnit : Expect() 
expectUnit = 
    Http.expectStringResponse << always <| Ok() 



deleteThing : String -> Request() 
deleteThing path = 
    Http.request 
     { method = "DELETE" 
     , headers = [] 
     , url = "http://localhost/api" 
     , body = Http.jsonBody <| Encode.object [ ("path", Encode.string path) ] 
     , expect = expectUnit 
     , timeout = Nothing 
     , withCredentials = False 
     } 

但對你來說，你可以得到最好的是。

{ ... 
, expect = Http.expectStringResponse << always <| Ok playerId 
... 
} 

或者你可以創建一個幫助（這實際上是Expect的singleton或pure）

alwaysExpect : a -> Expect a 
alwaysExpect = 
    Http.expectStringResponse << always << Ok 

哪位能像

{ ... 
, expect = alwaysExpect playerId 
... 
}