Fix parser

2020-01-31 23:41:47 +01:00 · 2020-01-31 23:41:47 +01:00 · 20a9fcd210
commit 20a9fcd210
parent b031456619
1 changed files with 2 additions and 2 deletions
--- a/lib/GHup.hs
+++ b/lib/GHup.hs
@ -358,10 +358,10 @@ ghURLParser =
           <|> str "git@github.com:"
           <|> empty'
           )
-        *> takeWhile1 (\w -> (w /= _slash) && isAlphaNum w)
+        *> takeWhile1 (/= _slash)
        <* word8 _slash
        )
-    <*> (takeWhile1 isAlphaNum <* ((str ".git" <|> empty') <* endOfInput))
+    <*> (takeWhile1 (/= _period) <* ((str ".git" <|> empty') <* endOfInput))
 where
  str    = string . u8
  empty' = str ""