@@ -202,7 +202,7 @@ exitWithOverview intro outro interfaces =
202202
203203
204204toSummary :: String -> Interface -> Maybe P.Doc
205−toSummary exeName (Interface name summary _ _ (Args (args:_)) _ _) =
205+toSummary exeName (Interface name summary _ _ (Args args) _ _) =
206206 case summary of
207207 Uncommon ->
208208 Nothing
@@ -210,7 +210,7 @@ toSummary exeName (Interface name summary _ _ (Args (args:_)) _ _) =
210210 Common summaryString ->
211211 Just $
212212 P.vcat
213− [ P.cyan $ argsToDoc (exeName ++ " " ++ name) args
213+ [ P.cyan $ argsToDoc (exeName ++ " " ++ name) (head args)
214214 , P.indent 4 $ reflow summaryString
215215 ]
216216