@@ -200,7 +200,7 @@ exitWithOverview intro outro interfaces =
200200
201201
202202toSummary :: String -> Interface -> Maybe P.Doc
203−toSummary exeName (Interface name summary _ _ _ _) =
203+toSummary exeName (Interface name summary _ (Args (args:_)) _ _) =
204204 case summary of
205205 Uncommon ->
206206 Nothing
@@ -208,7 +208,7 @@ toSummary exeName (Interface name summary _ _ _ _) =
208208 Common summaryString ->
209209 Just $
210210 P.vcat
211− [ P.dullcyan $ P.text $ exeName ++ " " ++ name
211+ [ P.dullcyan $ argsToDoc (exeName ++ " " ++ name) args
212212 , P.indent 4 $ reflow summaryString
213213 ]
214214