Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest Nov 20th, 2018 69 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. src/OpenFEC/API.hs:43:6: error:
  2.     • Couldn't match type ‘Text’ with ‘Int’
  3.       Expected type: Maybe Int
  4.                      -> [Text]
  5.                      -> [Text]
  6.                      -> [QT.ElectionYear]
  7.                      -> Maybe Int
  8.                      -> Maybe QT.PageNumber
  9.                      -> ClientM QT.Page
  10.         Actual type: AsClientT ClientM
  11.                      :- ("candidates"
  12.                          :> (QueryParam "api_key" Text
  13.                              :> (QueryParams "office" Text
  14.                                  :> (QueryParams "party" Text
  15.                                      :> (QueryParams "election_year" Int
  16.                                          :> (QueryParam "per_page" Int
  17.                                              :> (QueryParam "page" Int :> Get '[JSON] QT.Page)))))))
  18.     • The function ‘_candidates’ is applied to 7 arguments,
  19.       but its type ‘FEC_Routes (AsClientT ClientM)
  20.                     -> AsClientT ClientM
  21.                        :- ("candidates"
  22.                            :> (QueryParam "api_key" Text
  23.                                :> (QueryParams "office" Text
  24.                                    :> (QueryParams "party" Text
  25.                                        :> (QueryParams "election_year" Int
  26.                                            :> (QueryParam "per_page" Int
  27.                                                :> (QueryParam "page" Int
  28.                                                    :> Get '[JSON] QT.Page)))))))’
  29.       has only one
  30.       In the expression:
  31.         (_candidates fecClients)
  32.           (Just (12 :: Int))
  33.           (ttql offices)
  34.           (ttql parties)
  35.           years
  36.           (Just QT.fecMaxPerPage)
  37.           (Just page)
  38.       In the expression:
  39.         let ttql = QT.toTextQueryList
  40.         in
  41.           (_candidates fecClients)
  42.             (Just (12 :: Int))
  43.             (ttql offices)
  44.             (ttql parties)
  45.             years
  46.             (Just QT.fecMaxPerPage)
  47.             (Just page)
  48.    |
  49. 43 |   in (_candidates fecClients) (Just (12 :: Int)) {- QT.fecApiKey -} (ttql offices) (ttql parties) years (Just QT.fecMaxPerPage) (Just page)
  50.    |      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top