diff options
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Run.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index 068f3a2..e117c57 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -238,11 +238,15 @@ cmdRun (RunCommand RunOptions {..} args) = do ( rangeOptions, jobOptions ) <- partitionEithers . concat <$> sequence [ forM roRanges $ \range -> case T.splitOn ".." range of - [ base, tip ] -> return $ Left ( Just base, tip ) + [ base, tip ] + | not (T.null base) && not (T.null tip) + -> return $ Left ( Just base, tip ) _ -> tfail $ "invalid range: " <> range , forM roSinceUpstream $ return . Left . ( Nothing, ) , forM args $ \arg -> case T.splitOn ".." arg of - [ base, tip ] -> return $ Left ( Just base, tip ) + [ base, tip ] + | not (T.null base) && not (T.null tip) + -> return $ Left ( Just base, tip ) [ _ ] -> return $ Right $ JobName arg _ -> tfail $ "invalid argument: " <> arg ] |