Woody88

exports._callApex = function (fullyQualifiedApexMethodName){
    return function(apexMethodParameters){
        return function(apexCallConfiguration){
            return function(error){
                return function(success){
                    return function (onError, onSuccess) { // and callbacks
                        console.log('hello world2');
                        var responseHandler = function(result, event){
                            console.log(event);
                            if (event.status){

Woody88

(function(w){
    "use strict"; //Optional because LC on LockerService active runs in strict mode

// Generated by purs bundle 0.12.1
var PS = {};
(function(exports) {
    "use strict";

  exports.arrayApply = function (fs) {
    return function (xs) {

Woody88

var Button = require('@salesforce/design-system-react/lib/components/button');


exports._buttonImpl = function(){
    return Button;
}

Woody88

module Component.FileUploader where 

import Prelude (($), (<$>), (>>=), (=<<), (<<<), unit, bind, void, pure)
import Control.Monad.Except (runExcept)
import Control.Bind (join)
import Data.Maybe (Maybe(..), fromMaybe)
import Data.Traversable (sequence)
import Effect.Console (log, logShow)
import Foreign as Foreign
import React.Basic (Component, JSX, StateUpdate(..), element, capture, capture_, createComponent, make, send)

Woody88

import Data.Argonaut.Core as J
import Data.Argonaut.Decode (class DecodeJson, decodeJson, getField)
import Data.Argonaut.Decode.Generic.Rep (genericDecodeJson)
import Data.Argonaut.Encode (class EncodeJson)
import Data.Argonaut.Encode.Combinators ((:=), (~>))
import Data.Argonaut.Encode.Generic.Rep (genericEncodeJson)
import Data.Maybe (Maybe(..), fromMaybe)
import Data.Maybe.First (First(..))

type OauthConnectionProps 

Woody88

module Control.Router where 


import Prelude

import Control.Monad (class Monad)
import Control.Monad.Reader (class MonadAsk, ask)
import Data.Router
import Effect (Effect)
import Effect.Class (class MonadEffect, liftEffect)

Woody88

module Reader1 where 

data Reader r a = Reader { runReader :: r -> a }

instance Functor (Reader r) where 
 -- fmap :: (a -> b) -> Reader r a -> Reader r b
 -- fmap :: (a -> b) -> (r -> a) -> (r -> b)
 -- I can compose the body 
 -- fmap f (Reader ra) = Reader $ \r -> f (ra r) 
    fmap f (Reader ra) = Reader $ f . ra 

Woody88

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}

module SyncConfig where 

import GHC.Generics (Generic)
import Data.Aeson (FromJSON(..), genericParseJSON, defaultOptions, fieldLabelModifier)
import Data.Yaml (ParseException, decodeFileEither)
import Data.Text (Text)

Woody88

module Salesforce.SObject.Internal where

import Affjax as AX
import Affjax.Internal (decodeWithEitherError)
import Affjax.RequestBody (json, string)
import Affjax.RequestHeader (RequestHeader(..))
import Affjax.ResponseFormat as ResponseFormat
import Data.Argonaut.Core (fromString, stringify)
import Data.Bifunctor (lmap)
import Data.Either (Either(..))

Woody88

module Environment where 

import Prelude 

foreign import kind SFEnvironment
foreign import data Production :: SFEnvironment
foreign import data Sandbox :: SFEnvironment

data EnvProxy (env :: SFEnvironment) = EnvProxy