getChats = toList . fmap toText <$> (get [i|#{base}/get_chats?token=#{token}|] <&> (^. responseBody . _Array))
    where toText (String s) = s