hasufell/ghup
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix parser

Browse Source
This commit is contained in:
Julian Ospald 2020-01-31 23:41:47 +01:00
parent b031456619
commit 20a9fcd210
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/GHup.hs
View File

@ -358,10 +358,10 @@ ghURLParser =
<|> str "git@github.com:" <|> str "git@github.com:"
<|> empty' <|> empty'
) )
*> takeWhile1 (\w -> (w /= _slash) && isAlphaNum w) *> takeWhile1 (/= _slash)
<* word8 _slash <* word8 _slash
) )
<*> (takeWhile1 isAlphaNum <* ((str ".git" <|> empty') <* endOfInput)) <*> (takeWhile1 (/= _period) <* ((str ".git" <|> empty') <* endOfInput))
where where
str = string . u8 str = string . u8
empty' = str "" empty' = str ""