findOptionDescription :: String -> CommandSummary -> Maybe T.Text
findOptionDescription a (CommandSummary _ _ opts) =
    listToMaybe $ map snd $ filter (any match . fst) opts
  where
    a' = T.pack a
    a'' = a' `T.snoc` ' '
    match f = f == a' || a'' `T.isPrefixOf` f
findOptionDescription :: String -> CommandSummary -> Maybe T.Text
findOptionDescription a (CommandSummary _ _ opts) =
    listToMaybe $ map snd $ filter (any match . fst) opts
  where
    a' = T.pack a
    a'' = a' `T.snoc` ' '
    match f = f == a' || a'' `T.isPrefixOf` f
findOptionDescription a (CommandSummary _ _ opts) =
    listToMaybe $ map snd $ filter (any match . fst) opts
  where
    a' = T.pack a
    a'' = a' `T.snoc` ' '
    match f = f == a' || a'' `T.isPrefixOf` f