vbrandl/yagcdn
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fail on empty path elements

Browse Source
This commit is contained in:
Valentin Brandl 2019-08-12 19:09:43 +02:00
parent fcd9b963ff
commit a95eac709a
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
frontend/src/Parse.elm
View File

@ -1,16 +1,17 @@
module Parse exposing (parseUrl) module Parse exposing (parseUrl)
import Data exposing (Provider(..), Url, pathSeparator) import Data exposing (Provider(..), Url, pathSeparator)
import Maybe.Extra
parseUrl : String -> Maybe Url parseUrl : String -> Maybe Url
parseUrl url = parseUrl url =
stripProtocol url stripProtocol url
|> splitProvider |> splitProvider
|> Maybe.andThen splitOffHead |> Maybe.andThen filteredSplit
|> Maybe.andThen splitOffHead |> Maybe.andThen filteredSplit
|> Maybe.andThen splitOffHead |> Maybe.andThen filteredSplit
|> Maybe.andThen splitOffHead |> Maybe.andThen filteredSplit
|> Maybe.andThen |> Maybe.andThen
(\( ( ( ( ( prov, user ), repo ), separator ), gitref ), file ) -> (\( ( ( ( ( prov, user ), repo ), separator ), gitref ), file ) ->
if if
@ -30,9 +31,15 @@ parseUrl url =
) )
splitOffHead : ( a, List b ) -> Maybe ( ( a, b ), List b ) filteredSplit : ( a, List String ) -> Maybe ( ( a, String ), List String )
splitOffHead ( head, tail ) = filteredSplit =
splitOffHead (\s -> not (String.isEmpty s))
splitOffHead : (b -> Bool) -> ( a, List b ) -> Maybe ( ( a, b ), List b )
splitOffHead pred ( head, tail ) =
splitPart tail splitPart tail
|> Maybe.Extra.filter (\( h, _ ) -> pred h)
|> Maybe.map (\( h, t ) -> ( ( head, h ), t )) |> Maybe.map (\( h, t ) -> ( ( head, h ), t ))