strip extraneous / in packageParser

akacase · Jul 24, 2023 · bfe8c59 · bfe8c59
1 parent efcaa14
commit bfe8c59
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Purl.hs b/src/Purl.hs
@@ -151,7 +151,8 @@ schemeParser = do
 
 packageParser :: Parser Package
 packageParser = do
-  void $ satisfy (== ':')
+  void $ satisfy (== ':') -- ':' must come after scheme
+  void $ optional $ try $ some (char '/') -- strip per standard extraneous '/' after ':' if present
   start <- satisfy isAsciiLower -- Must start with a letter
   rest <- many (satisfy isValidChar) -- Followed by any number of valid characters
   let packType = T.pack (start : rest)