src/OpenFEC/API.hs:43:6: error:
    • Couldn't match type ‘Text’ with ‘Int’
      Expected type: Maybe Int
                     -> [Text]
                     -> [Text]
                     -> [QT.ElectionYear]
                     -> Maybe Int
                     -> Maybe QT.PageNumber
                     -> ClientM QT.Page
        Actual type: AsClientT ClientM
                     :- ("candidates"
                         :> (QueryParam "api_key" Text
                             :> (QueryParams "office" Text
                                 :> (QueryParams "party" Text
                                     :> (QueryParams "election_year" Int
                                         :> (QueryParam "per_page" Int
                                             :> (QueryParam "page" Int :> Get '[JSON] QT.Page)))))))
    • The function ‘_candidates’ is applied to 7 arguments,
      but its type ‘FEC_Routes (AsClientT ClientM)
                    -> AsClientT ClientM
                       :- ("candidates"
                           :> (QueryParam "api_key" Text
                               :> (QueryParams "office" Text
                                   :> (QueryParams "party" Text
                                       :> (QueryParams "election_year" Int
                                           :> (QueryParam "per_page" Int
                                               :> (QueryParam "page" Int
                                                   :> Get '[JSON] QT.Page)))))))’
      has only one
      In the expression:
        (_candidates fecClients)
          (Just (12 :: Int))
          (ttql offices)
          (ttql parties)
          years
          (Just QT.fecMaxPerPage)
          (Just page)
      In the expression:
        let ttql = QT.toTextQueryList
        in
          (_candidates fecClients)
            (Just (12 :: Int))
            (ttql offices)
            (ttql parties)
            years
            (Just QT.fecMaxPerPage)
            (Just page)
   |
43 |   in (_candidates fecClients) (Just (12 :: Int)) {- QT.fecApiKey -} (ttql offices) (ttql parties) years (Just QT.fecMaxPerPage) (Just page)
   |      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^