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