adamczykm

module Data.Newtype.Helpers
  ( (#<)
  , flipViaR
  , over
  , over''
  , under
  , under''
  , viaR
  , viaR''
  , viaW

adamczykm

Keybase proof

I hereby claim:

• I am adamczykm on github.
• I am adamczykm (https://keybase.io/adamczykm) on keybase.
• I have a public key ASAAX_2oOFLt0vXUBrLW7zORAuAI1ai6X_BdgKMjaohBMQo

To claim this, I am signing this object:

adamczykm

module ThrottleDebounce
  ( ThrottlingContext
  , newThrottlingContext
  , debounce
  , throttle
  ) where


import Control.Applicative (pure)
import Control.Bind (bind, discard, (>>=))

adamczykm

module ThrottleDebounce
  ( ThrottlingContext
  , newThrottlingContext
  , debounce
  ) where


import Control.Applicative (pure)
import Control.Bind (bind, discard, (>>=))
import Data.DateTime (DateTime)

adamczykm

module Utils where

import Data.Array (snoc)
import Data.FormURLEncoded (FormURLEncoded(..))
import Data.Function (($))
import Data.Maybe (Maybe(..))
import Data.Monoid (mempty)
import Data.Symbol (class IsSymbol, SProxy, reflectSymbol)
import Data.Tuple (Tuple(..))
import Heterogeneous.Folding (class FoldingWithIndex, class HFoldlWithIndex, hfoldlWithIndex)

adamczykm

module Utils where

import Data.Array (snoc)
import Data.FormURLEncoded (FormURLEncoded(..))
import Data.Function (($))
import Data.Maybe (Maybe(..))
import Data.Symbol (class IsSymbol, SProxy, reflectSymbol)
import Data.Tuple (Tuple(..))
import Heterogeneous.Folding (class FoldingWithIndex, class HFoldlWithIndex, hfoldlWithIndex)

adamczykm

include :: forall a f. Alternative f => a -> f a -> f a
include a f = pure a <|> f

select :: forall a f. Functor f => Foldable f => f a -> Maybe a
select f = unwrap $ fold (First <<< Just <$> f)

adamczykm

module Default where

import Control.Category (identity, (<<<))
import Data.Maybe (Maybe(..))
import Data.Symbol (class IsSymbol, SProxy(..))
import Data.Tuple (Tuple(..))
import Prim.Row as Row
import Prim.RowList (class RowToList, Cons, Nil, kind RowList)
import Record.Builder (Builder)
import Record.Builder as Builder

adamczykm

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

adamczykm

function createElement(type, config, children) {
  var propName = void 0;

  // Reserved names are extracted
  var props = {};

  var key = null;
  var ref = null;
  var self = null;
  var source = null;