+2

src/Library/Sources/Services/WebDav/Marker.elm

reviewed

··· 1 1 module Sources.Services.WebDav.Marker exposing (concat, removeOne, takeOne) 2 2 3 3 {-| Custom `Marker`. 4 4 + 4 5 WebDAV doesn't make a recursive list, so we have to manage that ourselves. 5 6 The spec seems to have `Depth: Infinity` which should allow that. 6 7 But a lot of clients don't implement it. 7 8 This basically re-exports `Sources.Services.IPFS.Marker`. 9 9 + 8 10 -} 9 11 10 12 import Sources.Processing exposing (Marker(..))

+1 -1

src/Library/Sources/Services/WebDav/Parser.elm

reviewed

··· 42 42 43 43 treeDecoder : Decoder (List String) 44 44 treeDecoder = 45 45 - path [ "D:response" ] (list treeItemDecoder) 45 45 + path [ "D:response" ] (leakyList treeItemDecoder) 46 46 47 47 48 48 treeItemDecoder : Decoder String