Main.purs

apiGet
  :: forall e m p
  . MonadJsonHttp e m => MonadApiAccess m => WriteForeign { | p } => Lacks "login" p => Lacks "passwd" p
 => ApiRoute → { | p } → ExceptV e m Json
apiGet route params = do
  {login, password, apiUrl} <- lift getApiAccess
  let inter = insert (SProxy :: SProxy "passwd") password params
      authP = insert (SProxy :: SProxy "login") login inter
  get (apiUrl <> route) authP

get :: forall p.  WriteForeign { | p } => String → { | p } → ExceptV e m Json
get = ?asd