# Pastebin DBK968rO
formatted = foldMap f things
  where
    f lm = case logData lm of
             Nothing -> []
             Just j -> case j of
                         Object o -> case HM.lookup "formatted" o of
                                       Nothing -> []
                                       Just v -> case v of
                                                   String s -> [s]
                                                   _ -> []
                         _ -> []