    throwError (GithubE "length of pieces were not the same")

  pure (mkItems titles links dates)

fetch (Reddit (Keyword subreddit)) = do
  let
    url
      = "https://www.reddit.com/r/" <> subreddit <> "/new/.json"
  json <- httpGet url
  let
    results
      = json ^.. key "data" . key "children" . values . key "data"
    titles
      = results ^.. traversed . key "title" . _String
    links