allow use of host:port in a FROM instruction

fixes: hadolint/hadolint#355
petitlapin · Oct 29, 2021 · 6b7bebd · 6b7bebd
1 parent 57c2db8
commit 6b7bebd
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/Language/Docker/Parser/From.hs b/src/Language/Docker/Parser/From.hs
@@ -9,11 +9,9 @@ import Language.Docker.Syntax
 
 parseRegistry :: (?esc :: Char) => Parser Registry
 parseRegistry = do
-  domain <- someUnless "a domain name" (== '.')
-  void $ char '.'
-  tld <- someUnless "a TLD" (== '/')
+  registry <- someUnless "a registry" (== '/')
   void $ char '/'
-  return $ Registry (domain <> "." <> tld)
+  return $ Registry (registry)
 
 parsePlatform :: (?esc :: Char) => Parser Platform
 parsePlatform = do