@@ -202,7 +202,7 @@ exitWithOverview intro outro interfaces =
204toSummary :: String -> Interface -> Maybe P.Doc
204toSummary :: String -> Interface -> Maybe P.Doc
205−toSummary exeName (Interface name summary _ _ (Args (args:_)) _ _) =
205+toSummary exeName (Interface name summary _ _ (Args args) _ _) =
206 case summary of
206 case summary of
207 Uncommon ->
207 Uncommon ->
@@ -210,7 +210,7 @@ toSummary exeName (Interface name summary _ _ (Args (args:_)) _ _) =
210 Common summaryString ->
210 Common summaryString ->
213− [ P.cyan $ argsToDoc (exeName ++ " " ++ name) args
213+ [ P.cyan $ argsToDoc (exeName ++ " " ++ name) (head args)
214 , P.indent 4 $ reflow summaryString
214 , P.indent 4 $ reflow summaryString