@@ -200,7 +200,7 @@ exitWithOverview intro outro interfaces =
202toSummary :: String -> Interface -> Maybe P.Doc
202toSummary :: String -> Interface -> Maybe P.Doc
203−toSummary exeName (Interface name summary _ _ _ _) =
203+toSummary exeName (Interface name summary _ (Args (args:_)) _ _) =
204 case summary of
204 case summary of
205 Uncommon ->
205 Uncommon ->
@@ -208,7 +208,7 @@ toSummary exeName (Interface name summary _ _ _ _) =
208 Common summaryString ->
208 Common summaryString ->
211− [ P.dullcyan $ P.text $ exeName ++ " " ++ name
211+ [ P.dullcyan $ argsToDoc (exeName ++ " " ++ name) args
212 , P.indent 4 $ reflow summaryString
212 , P.indent 4 $ reflow summaryString