Use colon as preferred job ID separator

Changelog: Colon `:` is now accepted and preferred as job ID separator.

1 files changed, 2 insertions, 3 deletions

diff --git a/src/Command/Extract.hs b/src/Command/Extract.hs
index 8dee537..3f78e2e 100644
--- a/src/Command/Extract.hs
+++ b/src/Command/Extract.hs
@@ -32,9 +32,8 @@ instance CommandArgumentsType ExtractArguments where
             extractDestination <- return (last args)
             return ExtractArguments {..}
           where
-            toArtifactRef tref = case T.breakOnEnd "." (T.pack tref) of
-                (jobref', aref) | Just ( jobref, '.' ) <- T.unsnoc jobref'
-                    -> return ( parseJobRef jobref, ArtifactName aref )
+            toArtifactRef tref = case parseJobRefParts $ T.pack tref of
+                parts@(_ : _) -> return ( JobRef $ init parts, ArtifactName $ last parts )
                 _   -> throwError $ "too few parts in artifact ref ‘" <> tref <> "’"
         _ -> throwError "too few arguments"