Remove a help message from an error

This silpped by in the merge.
sellout · Jul 5, 2024 · 81f9458 · 81f9458
1 parent 0e76597
commit 81f9458
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unison-cli/src/Unison/CommandLine/InputPatterns.hs b/unison-cli/src/Unison/CommandLine/InputPatterns.hs
@@ -2184,7 +2184,7 @@ mergeCommitInputPattern =
                 ),
       parse = \case
         [] -> Right Input.MergeCommitI
-        _ -> Left (I.help mergeCommitInputPattern)
+        args -> wrongArgsLength "no arguments" args
     }
 
 parseLooseCodeOrProject :: String -> Maybe Input.LooseCodeOrProject