diff options
| -rw-r--r-- | src/Command/Run.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index f93e619..45056f5 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -176,7 +176,10 @@ cmdRun (RunCommand RunOptions {..} args) = do T.hPutStrLn stderr $ "No repository found at `" <> T.pack absPath <> "'" exitFailure - ranges <- forM (args ++ roRanges) $ \changeset -> do + let args' | null args, null roRanges, null roNewCommitsOn, null roNewTags = [ "HEAD" ] + | otherwise = args + + ranges <- forM (args' ++ roRanges) $ \changeset -> do ( base, tip ) <- case T.splitOn ".." changeset of base : tip : _ -> return ( base, tip ) [ param ] -> liftIO $ do |